在Android上运行Delphi时,如何获取文件的文件版本信息？

Question

我正在使用Delphi XE7,我想将有关我的应用程序的一些信息记录到日志文件中,因此我需要将MSWindows中的GetFileVersionInfo移植到Android中.如果可能的话,我想要一个适用于任何文件的通用例程.我看到有一个如何在OSX中获取文件版本信息的Delphi示例,但我找不到任何指向相关Android单元的内容.有人可以帮忙吗？

Answer 1

这是一个简单的例子:

uses
  ...
  Androidapi.Helpers,
  Androidapi.JNI.App,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.NativeActivity;

function GetPackageInfo: JPackageInfo;
var
  Activity: JActivity;
begin
  Activity := TJNativeActivity.Wrap(PANativeActivity(System.DelphiActivity)^.clazz);
  Result := Activity.getPackageManager.getPackageInfo(Activity.getPackageName, 0);
end;

procedure TPForm.FormCreate(Sender: TObject);
var
  Info: JPackageInfo;
begin
  Info := GetPackageInfo;
  Label1.Text := Format('versionName: "%s", versionCode: %d', [JStringToString(Info.versionName), Info.versionCode]);
end;