Ik heb bezig met een Local Service, dit heb ik nu, maar nu zou ik graag 2 variable naar de Service
kunnen zenden, en 2 variable van de Service kunnen ontvangen.
Ik ben aan het zoeken geweest en vindt er wel iets over, maar begrijp er nog niet veel van.
Hoe pak ik dit aan ?
Dit is de App:
Code:
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
//T.b.v. Service:
System.Android.Service;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FService: TLocalServiceConnection;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormCreate(Sender: TObject);
begin
Fservice:= TLocalServiceConnection.Create;
FService.StartService('MMSoftService1'); //De Naam van de Service opgeven
end;
end.
En dit de Service:
Code:
unit Unit2;
interface
uses
System.SysUtils,
System.Classes,
System.Android.Service,
AndroidApi.JNI.GraphicsContentViewText,
Androidapi.JNI.Os;
type
TDM = class(TAndroidService)
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}
uses
Androidapi.JNI.App;
function TDM.AndroidServiceStartCommand(const Sender: TObject;
const Intent: JIntent; Flags, StartId: Integer): Integer;
begin
Result := TJService.JavaClass.START_STICKY; // Keep service running
end;
end.
Bookmarks