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

Question

我正在使用 Delphi XE7，我想将有关我的应用程序的一些信息记录到日志文件中，因此我需要移植 MSWindows 中的 GetFileVersionInfo 以在 Android 中工作。如果可能的话，我想要一个适用于任何文件的通用例程。我看到有一个 Delphi 示例 how to get file version info in OSX here ，但我找不到任何指向相关 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;