Delphi 10 Seattle的Android应用程序中使用参数启动服务

本文整理自网络，侵删。

 
现在，您可以使用Delphi 10 Seattle的Android应用程序创建服务。

可以使用“ TLocalServiceConnection.StartService（服务名称）；”启动服务。
很简单

但是，有时您想使用信息启动服务。
似乎没有这种方便的功能。

因此，创建自己的Intent并使用putExtra方法传递信息。
准备一个这样的函数：

function CreateIntent(const AServiceName: string; I: Integer; S: string): JIntent;
var
  ServiceName: string;
begin
  Result := TJIntent.Create;
  ServiceName := AServiceName;
  if not ServiceName.StartsWith('com.embarcadero.services.') then
    ServiceName := 'com.embarcadero.services.' + ServiceName;
  Result.setClassName(TAndroidHelper.Context.getPackageName(), TAndroidHelper.StringToJString(ServiceName));
  Result.putExtra(TAndroidHelper.StringToJString('Int'), I);
  Result.putExtra(TAndroidHelper.StringToJString('Str'), TAndroidHelper.StringToJString(S));
end;
像这样启动Sender。

procedure TForm1.Button1Click(Sender: TObject);
var
  Intent: JIntent;
begin
  Intent := CreateIntent(SERVICE_NAME, 987, '测试');
  TAndroidHelper.Activity.startService(Intent);
end;
在服务端，它接收OnStartCommand事件中发送的参数。

function TAndroidServiceDM.AndroidServiceStartCommand(const Sender: TObject;
  const Intent: JIntent; Flags, StartId: Integer): Integer;
var
  Int: Integer;
  Str: string;
begin
  Int := Intent.getIntExtra(TAndroidHelper.StringToJString('Int'), -1);
  Str := TAndroidHelper.JStringToString
    (Intent.getStringExtra(TAndroidHelper.StringToJString('Str')));

  //处理

  Result := TJService.JavaClass.START_STICKY;
end;
 

相关阅读 >>

Delphi gettempdirectory 获取临时文件夹路径

Delphi 获取指定当前目录下指定文件扩展名所有文件

Delphi timer定时器使用

Delphi如何给tedit控件加上背景图片

Delphi 坐标截图如何实现

Delphi文本加密解密

Delphi 实现生成手机号段

Delphi 获取cpuid的函数

Delphi 简化版的inputquery 中文版输入对话框

Delphi 鼠标跟随代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 10 Seattle的Android应用程序中使用参数启动服务