Delphi Android服务全局变量读取异常：主应用读取值全为零求助

核心原因 #

你遇到的问题本质是主应用与服务的变量内存空间隔离，常见场景有以下几种：

1. 服务运行在独立进程 #

如果你的Android服务在配置中指定了android:process属性，服务会启动一个独立进程，主应用和服务的全局变量处于完全分离的内存空间，主应用读取的是自身进程中该变量的初始值（默认零），自然看不到服务进程的更新结果。

2. 错误的变量访问方式 #

• 若你在主应用中手动创建了服务类的新实例，而非访问正在运行的服务实例，读取的只是新实例的默认变量值；
• 若全局变量声明在服务单元的implementation部分，主应用无法正确访问到服务更新后的变量。

3. 未通过绑定获取服务实例 #

仅通过StartService启动服务，主应用无法直接关联到运行中的服务实例，依赖单元全局变量共享数据在进程复用、服务重启等场景下会失效。

解决方法 #

1. 确保服务与主应用同进程 #

检查AndroidManifest.xml中的服务配置，移除android:process属性（Delphi默认不设置该属性，若手动添加过需删除）。你可以在Delphi的服务设计器中查看服务属性，确认没有指定独立进程。

2. 修正变量声明与访问方式 #

• 将需要共享的变量声明在服务单元的interface区域，确保主应用能直接访问；
• 主应用不要创建服务类的新实例，直接访问服务单元的全局变量（仅适合同进程场景）。

3. 通过绑定服务获取实例（推荐） #

使用Android的服务绑定机制，直接获取运行中的服务实例，通过实例访问变量或方法：

1. 在服务类中重写OnBind方法，返回服务自身的Binder引用：

function TLocationService.OnBind(const Intent: JIntent): JIBinder;
begin
  Result := TBinder.Wrap((Self as ILocalObject).GetObjectID);
end;

2. 在主应用中创建TBindServiceConnection对象，绑定服务并在OnServiceConnected事件中获取服务实例：

var
  FServiceConnection: TBindServiceConnection;
  FLocationService: TLocationService;

procedure TMainForm.FormCreate(Sender: TObject);
var
  Intent: JIntent;
begin
  FServiceConnection := TBindServiceConnection.Create;
  FServiceConnection.OnServiceConnected := ServiceConnected;
  Intent := TJIntent.Create;
  Intent.setComponent(TJComponentName.Create(TAndroidHelper.Context,
    StringToJString('com.yourpackage.LocationService')));
  TAndroidHelper.Context.bindService(Intent, FServiceConnection, TJContext.JavaClass.BIND_AUTO_CREATE);
end;

procedure TMainForm.ServiceConnected(Sender: TObject; const ComponentName: JComponentName; const Service: JIBinder);
begin
  FLocationService := TLocationService.Wrap(Service);
end;

3. 之后通过FLocationService实例直接访问服务中的属性（建议将全局变量改为服务类的属性），而非依赖单元全局变量。

4. 跨进程场景的替代方案 #

如果必须让服务运行在独立进程，需使用Android跨进程通信机制：

• 使用TAndroidServiceMessenger发送消息传递数据；
• 借助ContentProvider共享数据；
• 实现AIDL接口（Delphi支持通过JNI调用AIDL）。

内容的提问来源于stack exchange，提问作者Valerio