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 tms web core 获取url 参数

精通Delphi模拟按键

wmi技术介绍和应用

Delphi 获得指定进程的id号

Delphi 实现数据库读取图片文件

Delphi 判断网站文件是否存在

Delphi 检测文件是否被占用

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi 取bmp图片宽高

Delphi实现的sunday字符串搜索算法

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

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