Реализация уведомлений для Android 26 с использованием Delphi - PullRequest
2 голосов
/ 01 апреля 2019

Я использую Delphi 10.1 для разработки приложений для Android, и я использовал Delphi образец для реализации API Android 26, и когда я использовал уведомление, оно не отображается.А также я попытался с Пример уведомления .Но это не работает.Пожалуйста, помогите мне реализовать уведомление, поскольку мне нужно реализовать это из служб 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;

1 Ответ

0 голосов
/ 01 апреля 2019

Видя, что вы не реагируете, я иду по прихоти, я выложил для вас код уведомления, чтобы реализовать его с помощью службы 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;
...