Android service com notificações
04/06/2018
0
Bom dia,
estou implementando uma aplicação no fmx com um android service, e preciso que meu service emita notificações caso atenda a um requisito.
Segue o trexo do código:
procedure TNotificationServiceDM.LaunchNotification;
var
mynotification : TNotification;
begin
TThread.CreateAnonymousThread(
procedure()
var
i : Integer;
begin
for I := 0 to 15 do
begin
MyNotification := NotificationCenter1.CreateNotification;
try
MyNotification.Name := ''ServiceNotification'';
MyNotification.Title := ''Android Service Notification'';
MyNotification.AlertBody := ''RAD Studio 10 Seattle'';
NotificationCenter1.PresentNotification(MyNotification);
finally
end;
sleep(10000);
end;
end
).Start;
end;
e na minha procedure de start comand segue o código:
LaunchNotification;
Result := TJService.JavaClass.START_STICKY;
Ele emite as notificações a cada 10 segundos normalmente porém quando fecho o aplicativo principal o serviço para de emitir as notificações.
Alguem poderia me ajudar com este pequeno problema.
estou implementando uma aplicação no fmx com um android service, e preciso que meu service emita notificações caso atenda a um requisito.
Segue o trexo do código:
procedure TNotificationServiceDM.LaunchNotification;
var
mynotification : TNotification;
begin
TThread.CreateAnonymousThread(
procedure()
var
i : Integer;
begin
for I := 0 to 15 do
begin
MyNotification := NotificationCenter1.CreateNotification;
try
MyNotification.Name := ''ServiceNotification'';
MyNotification.Title := ''Android Service Notification'';
MyNotification.AlertBody := ''RAD Studio 10 Seattle'';
NotificationCenter1.PresentNotification(MyNotification);
finally
end;
sleep(10000);
end;
end
).Start;
end;
e na minha procedure de start comand segue o código:
LaunchNotification;
Result := TJService.JavaClass.START_STICKY;
Ele emite as notificações a cada 10 segundos normalmente porém quando fecho o aplicativo principal o serviço para de emitir as notificações.
Alguem poderia me ajudar com este pequeno problema.
Marcus Pereira
Curtir tópico
+ 0
Responder
Post mais votado
23/07/2018
<delphi>
procedure fazer;
begin
showmessage('asdf');
end;
</delphi>
procedure fazer;
begin
showmessage('asdf');
end;
</delphi>
Marcus Pereira
Responder
Clique aqui para fazer login e interagir na Comunidade :)