用delphi实现Android26的通知

Question

我使用Delphi 10.1开发android应用程序，我使用Delphi示例实现Android26 API，当我使用通知时，它不显示。我还尝试了通知示例。但它不起作用。请帮助我实现通知，因为我需要从Android服务实现这一点。

procedure TForm1.ImmediateNotification; 
var 
LNotification: TNotification; 
begin 
LNotification.EnableSound := False;
 LNotification.Title := 'Immediate Notification';
 LNotification.Subtitle := 'Subtitles are cool';
 LNotification.AlertBody := 'This is an immediate notification'; 
FNotifications.PresentNotification(LNotification); 
end;

Answer 1

看到你没有响应，我在这里突发奇想，我给你放了我的通知代码，要用Android服务实现它，你应该检查一下：这个来自DocWiki

procedure TF_SS_MAIN.NotifyAndroid(text: string);
var
   Notification: TNotification;
begin
{verify if the service is actually supported}
if NotificationCenter1.Supported then
   begin
   Notification := NotificationCenter1.CreateNotification;
   Notification.Name := 'Notif Name';
   Notification.AlertBody := text;
   Notification.FireDate := Now;

   {Send notification in Notification Center}
   NotificationCenter1.ScheduleNotification(Notification);
   end;
end;