如何检查 Delphi 10 西雅图的服务是否为 运行
How to check if a service is running in Delphi 10 Seattle
Java 开发者的共识（最多选票）似乎是
private boolean isMyServiceRunning(Class<?> serviceClass) {
ActivityManager manager = (ActivityManager) getSystemService(Context.ACTIVITY_SERVICE);
for (RunningServiceInfo service : manager.getRunningServices(Integer.MAX_VALUE)) {
if (serviceClass.getName().equals(service.service.getClassName())) {
return true;
}
}
return false;
}
但我是一名 Delphi 开发人员，在 10 Seattle 工作。
我的函数编码已经走到这一步了，但卡住了。
什么是r？ Androidapi.JNI.App.pas包括JActivityManager和getRunningServices方法，returns一个JList，但是一个JList到底是什么？
该 .pas 文件中没有 JRunningServiceInfo 的定义。我如何定义它并完成代码？
function TfrmMain.IsServiceStarted: Boolean;
var
ActivityServiceManager: JObject;
FActivityManager : JActivityManager;
List: JList;
Iterator: JIterator;
r:
s: String;
begin
Result := False;
ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE);
FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID);
List := FActivityManager.getRunningServices(MAXINT);
Iterator := List.iterator;
while Iterator.hasNext and (not Result) do
begin
r :=
s := JStringToString(r.service.getClassName);
Result := (s = 'com.embarcadero.services.MyService');
end;
end;
好的，我想我已经找到了我要找的答案（都是在问 正确的 问题）。在一个中文网站上，我找到了 RunningServiceInfo 的 Delphi 包装代码，它在原样 Androidapi.JNI.App.pas
中丢失了
http://blog.csdn.net/flcop/article/details/17190009uses (Chinese)
这是 ActivityManager 的完整单元，早于 Delphi 10 Seattle (Delphi XE5)，但省去了我自己编写 RunningServiceInfo 包装器的麻烦。为什么 Embarcadero 还是忽略了这个？
通过制作一个单元Androidapi.JNI.RunningServiceInfo.pas，仅仅为了JActivityManager_RunningServiceInfo class，我能够完成我的功能代码。它在测试中编译并产生可预测的结果。
uses
Androidapi.JNI.RunningServiceInfo;
function TfrmHostMain.ServiceIsStarted: Boolean;
var
ActivityServiceManager: JObject;
FActivityManager : JActivityManager;
List: JList;
Iterator: JIterator;
ri: JActivityManager_RunningServiceInfo;
s: String;
begin
Result := False;
ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE);
FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID);
List := FActivityManager.getRunningServices(MAXINT);
Iterator := List.iterator;
while Iterator.hasNext and (not Result) do
begin
ri := TJActivityManager_RunningServiceInfo.Wrap((Iterator.next as ILocalObject).GetObjectID);
s := JStringToString(ri.service.getClassName);
Result := (s = 'com.embarcadero.services.MyService');
end;
end;
这是我制作的 Androidapi.JNI.RunningServiceInfo.pas 的代码。我希望此解决方案可以帮助其他 Delphi 开发人员节省时间。我在这上面花了太多时间！
unit Androidapi.JNI.RunningServiceInfo;
interface
uses
Androidapi.JNI.App
,Androidapi.JNIBridge
,Androidapi.JNI.GraphicsContentViewText
,Androidapi.JNI.JavaTypes
,Androidapi.JNI.Os
;
type
{ Class forward declarations }
JActivityManager_RunningServiceInfo = interface;
{ http://developer.android.com/reference/android/app/ActivityManager.RunningServiceInfo.html Added in API level 1 }
JActivityManager_RunningServiceInfoClass = interface(JObjectClass)
['{8A01CD6D-5177-4F74-A65E-20BAC0B76F0F}']
{ Property Methods }
function _GetCREATOR: JParcelable_Creator;
function _GetFLAG_FOREGROUND: Integer;
function _GetFLAG_PERSISTENT_PROCESS: Integer;
function _GetFLAG_STARTED: Integer;
function _GetFLAG_SYSTEM_PROCESS: Integer;
{ Methods }
function init: JActivityManager_RunningServiceInfo; cdecl;
{ Properties }
property CREATOR: JParcelable_Creator read _GetCREATOR;
// Added in API level 5
property FLAG_FOREGROUND: Integer read _GetFLAG_FOREGROUND;
// Added in API level 5
property FLAG_PERSISTENT_PROCESS: Integer read _GetFLAG_PERSISTENT_PROCESS;
// Added in API level 5
property FLAG_STARTED: Integer read _GetFLAG_STARTED;
// Added in API level 5
property FLAG_SYSTEM_PROCESS: Integer read _GetFLAG_SYSTEM_PROCESS;
end;
[JavaSignature('android/app/ActivityManager$RunningServiceInfo')]
JActivityManager_RunningServiceInfo = interface(JObject)
['{CEECA783-977A-4E16-8907-C4F65F25D168}']
{ Property Methods }
function _GetactiveSince: Int64;
procedure _SetactiveSince(Value: Int64);
function _GetclientCount: Integer;
procedure _SetclientCount(Value: Integer);
function _GetclientLabel: Integer;
procedure _SetclientLabel(Value: Integer);
function _GetclientPackage: JString;
procedure _SetclientPackage(Value: JString);
function _GetcrashCount: Integer;
procedure _SetcrashCount(Value: Integer);
function _Getflags: Integer;
procedure _Setflags(Value: Integer);
function _Getforeground: Boolean;
procedure _Setforeground(Value: Boolean);
function _GetlastActivityTime: Int64;
procedure _SetlastActivityTime(Value: Int64);
function _Getpid: Integer;
procedure _Setpid(Value: Integer);
function _Getprocess: JString;
procedure _Setprocess(Value: JString);
function _Getrestarting: Int64;
procedure _Setrestarting(Value: Int64);
function _Getservice: JComponentName;
procedure _Setservice(Value: JComponentName);
function _Getstarted: Boolean;
procedure _Setstarted(Value: Boolean);
function _Getuid: Integer;
procedure _Setuid(Value: Integer);
{ Methods }
function describeContents: Integer; cdecl;
procedure readFromParcel(source: JParcel); cdecl;
procedure writeToParcel(dest: JParcel; flags: Integer); cdecl;
{ Properties }
property activeSince: Int64 read _GetactiveSince write _SetactiveSince;
property clientCount: Integer read _GetclientCount write _SetclientCount;
// API level 5
property clientLabel: Integer read _GetclientLabel write _SetclientLabel;
// API level 5
property clientPackage: JString read _GetclientPackage write _SetclientPackage;
property crashCount: Integer read _GetcrashCount write _SetcrashCount;
// API level 5
property flags: Integer read _Getflags write _Setflags;
property foreground: Boolean read _Getforeground write _Setforeground;
property lastActivityTime: Int64 read _GetlastActivityTime write _SetlastActivityTime;
property pid: Integer read _Getpid write _Setpid;
property process: JString read _Getprocess write _Setprocess;
property restarting: Int64 read _Getrestarting write _Setrestarting;
property service: JComponentName read _Getservice write _Setservice;
property started: Boolean read _Getstarted write _Setstarted;
// API level 5
property uid: Integer read _Getuid write _Setuid;
end;
TJActivityManager_RunningServiceInfo = class(TJavaGenericImport<JActivityManager_RunningServiceInfoClass,
JActivityManager_RunningServiceInfo>) end;
implementation
procedure RegisterTypes;
begin
TRegTypes.RegisterType('Androidapi.JNI.RunningServiceInfo.JActivityManager_RunningServiceInfo',
TypeInfo(Androidapi.JNI.RunningServiceInfo.JActivityManager_RunningServiceInfo));
end;
initialization
RegisterTypes;
end.
Java 开发者的共识（最多选票）似乎是
private boolean isMyServiceRunning(Class<?> serviceClass) {
ActivityManager manager = (ActivityManager) getSystemService(Context.ACTIVITY_SERVICE);
for (RunningServiceInfo service : manager.getRunningServices(Integer.MAX_VALUE)) {
if (serviceClass.getName().equals(service.service.getClassName())) {
return true;
}
}
return false;
}
但我是一名 Delphi 开发人员，在 10 Seattle 工作。
我的函数编码已经走到这一步了，但卡住了。
什么是r？ Androidapi.JNI.App.pas包括JActivityManager和getRunningServices方法，returns一个JList，但是一个JList到底是什么？
该 .pas 文件中没有 JRunningServiceInfo 的定义。我如何定义它并完成代码？
function TfrmMain.IsServiceStarted: Boolean;
var
ActivityServiceManager: JObject;
FActivityManager : JActivityManager;
List: JList;
Iterator: JIterator;
r:
s: String;
begin
Result := False;
ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE);
FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID);
List := FActivityManager.getRunningServices(MAXINT);
Iterator := List.iterator;
while Iterator.hasNext and (not Result) do
begin
r :=
s := JStringToString(r.service.getClassName);
Result := (s = 'com.embarcadero.services.MyService');
end;
end;
好的，我想我已经找到了我要找的答案（都是在问 正确的 问题）。在一个中文网站上，我找到了 RunningServiceInfo 的 Delphi 包装代码，它在原样 Androidapi.JNI.App.pas
中丢失了http://blog.csdn.net/flcop/article/details/17190009uses (Chinese)
这是 ActivityManager 的完整单元，早于 Delphi 10 Seattle (Delphi XE5)，但省去了我自己编写 RunningServiceInfo 包装器的麻烦。为什么 Embarcadero 还是忽略了这个？
通过制作一个单元Androidapi.JNI.RunningServiceInfo.pas，仅仅为了JActivityManager_RunningServiceInfo class，我能够完成我的功能代码。它在测试中编译并产生可预测的结果。
uses
Androidapi.JNI.RunningServiceInfo;
function TfrmHostMain.ServiceIsStarted: Boolean;
var
ActivityServiceManager: JObject;
FActivityManager : JActivityManager;
List: JList;
Iterator: JIterator;
ri: JActivityManager_RunningServiceInfo;
s: String;
begin
Result := False;
ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE);
FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID);
List := FActivityManager.getRunningServices(MAXINT);
Iterator := List.iterator;
while Iterator.hasNext and (not Result) do
begin
ri := TJActivityManager_RunningServiceInfo.Wrap((Iterator.next as ILocalObject).GetObjectID);
s := JStringToString(ri.service.getClassName);
Result := (s = 'com.embarcadero.services.MyService');
end;
end;
这是我制作的 Androidapi.JNI.RunningServiceInfo.pas 的代码。我希望此解决方案可以帮助其他 Delphi 开发人员节省时间。我在这上面花了太多时间！
unit Androidapi.JNI.RunningServiceInfo;
interface
uses
Androidapi.JNI.App
,Androidapi.JNIBridge
,Androidapi.JNI.GraphicsContentViewText
,Androidapi.JNI.JavaTypes
,Androidapi.JNI.Os
;
type
{ Class forward declarations }
JActivityManager_RunningServiceInfo = interface;
{ http://developer.android.com/reference/android/app/ActivityManager.RunningServiceInfo.html Added in API level 1 }
JActivityManager_RunningServiceInfoClass = interface(JObjectClass)
['{8A01CD6D-5177-4F74-A65E-20BAC0B76F0F}']
{ Property Methods }
function _GetCREATOR: JParcelable_Creator;
function _GetFLAG_FOREGROUND: Integer;
function _GetFLAG_PERSISTENT_PROCESS: Integer;
function _GetFLAG_STARTED: Integer;
function _GetFLAG_SYSTEM_PROCESS: Integer;
{ Methods }
function init: JActivityManager_RunningServiceInfo; cdecl;
{ Properties }
property CREATOR: JParcelable_Creator read _GetCREATOR;
// Added in API level 5
property FLAG_FOREGROUND: Integer read _GetFLAG_FOREGROUND;
// Added in API level 5
property FLAG_PERSISTENT_PROCESS: Integer read _GetFLAG_PERSISTENT_PROCESS;
// Added in API level 5
property FLAG_STARTED: Integer read _GetFLAG_STARTED;
// Added in API level 5
property FLAG_SYSTEM_PROCESS: Integer read _GetFLAG_SYSTEM_PROCESS;
end;
[JavaSignature('android/app/ActivityManager$RunningServiceInfo')]
JActivityManager_RunningServiceInfo = interface(JObject)
['{CEECA783-977A-4E16-8907-C4F65F25D168}']
{ Property Methods }
function _GetactiveSince: Int64;
procedure _SetactiveSince(Value: Int64);
function _GetclientCount: Integer;
procedure _SetclientCount(Value: Integer);
function _GetclientLabel: Integer;
procedure _SetclientLabel(Value: Integer);
function _GetclientPackage: JString;
procedure _SetclientPackage(Value: JString);
function _GetcrashCount: Integer;
procedure _SetcrashCount(Value: Integer);
function _Getflags: Integer;
procedure _Setflags(Value: Integer);
function _Getforeground: Boolean;
procedure _Setforeground(Value: Boolean);
function _GetlastActivityTime: Int64;
procedure _SetlastActivityTime(Value: Int64);
function _Getpid: Integer;
procedure _Setpid(Value: Integer);
function _Getprocess: JString;
procedure _Setprocess(Value: JString);
function _Getrestarting: Int64;
procedure _Setrestarting(Value: Int64);
function _Getservice: JComponentName;
procedure _Setservice(Value: JComponentName);
function _Getstarted: Boolean;
procedure _Setstarted(Value: Boolean);
function _Getuid: Integer;
procedure _Setuid(Value: Integer);
{ Methods }
function describeContents: Integer; cdecl;
procedure readFromParcel(source: JParcel); cdecl;
procedure writeToParcel(dest: JParcel; flags: Integer); cdecl;
{ Properties }
property activeSince: Int64 read _GetactiveSince write _SetactiveSince;
property clientCount: Integer read _GetclientCount write _SetclientCount;
// API level 5
property clientLabel: Integer read _GetclientLabel write _SetclientLabel;
// API level 5
property clientPackage: JString read _GetclientPackage write _SetclientPackage;
property crashCount: Integer read _GetcrashCount write _SetcrashCount;
// API level 5
property flags: Integer read _Getflags write _Setflags;
property foreground: Boolean read _Getforeground write _Setforeground;
property lastActivityTime: Int64 read _GetlastActivityTime write _SetlastActivityTime;
property pid: Integer read _Getpid write _Setpid;
property process: JString read _Getprocess write _Setprocess;
property restarting: Int64 read _Getrestarting write _Setrestarting;
property service: JComponentName read _Getservice write _Setservice;
property started: Boolean read _Getstarted write _Setstarted;
// API level 5
property uid: Integer read _Getuid write _Setuid;
end;
TJActivityManager_RunningServiceInfo = class(TJavaGenericImport<JActivityManager_RunningServiceInfoClass,
JActivityManager_RunningServiceInfo>) end;
implementation
procedure RegisterTypes;
begin
TRegTypes.RegisterType('Androidapi.JNI.RunningServiceInfo.JActivityManager_RunningServiceInfo',
TypeInfo(Androidapi.JNI.RunningServiceInfo.JActivityManager_RunningServiceInfo));
end;
initialization
RegisterTypes;
end.