halilhanbadem / delphi-android-service-method Goto Github PK

unit Unit1;

interface

uses
System.SysUtils,
System.Classes,
System.Android.Service,
AndroidApi.JNI.GraphicsContentViewText,
Androidapi.JNI.Os, AndroidServiceMethod;

type
TDM = class(TAndroidService)
procedure AndroidServiceCreate(Sender: TObject);
function AndroidServiceStartCommand(const Sender: TObject;
const Intent: JIntent; Flags, StartId: Integer): Integer;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DM: TDM;

implementation

{%CLASSGROUP 'FMX.Controls.TControl'}

{$R *.dfm}

procedure TDM.Notification_Push;
begin
///---> Code....
end;

procedure TDM.AndroidServiceCreate(Sender: TObject);
begin
AndroidServiceMethod.ServiceLoop(Notification_Push)
end;

function TDM.AndroidServiceStartCommand(const Sender: TObject;
const Intent: JIntent; Flags, StartId: Integer): Integer;
begin
Result := TJService.JavaClass.START_STICKY;
end;

end.