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.
Marcus Pereira

Marcus Pereira

Responder

Post mais votado

23/07/2018

<delphi>
procedure fazer;
begin
showmessage('asdf');
end;
</delphi>

Marcus Pereira

Marcus Pereira
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar