android - 如何使用 Delphi XE5 从私有(private)目录在 Android 上播放视频文件

Question

我正在使用 Delphi XE5 和 Firemonkey 构建一个用于播放视频文件的 Android 应用程序:此代码有效:

var
  Intent: JIntent;
  fChosenVideo : string;
  Data: Jnet_Uri;


  fChosenVideo := IncludeTrailingPathDelimiter(TPath.GetSharedDownloadsPath) + 'myVideo.mp4';
  Data := TJnet_Uri.JavaClass.parse(StringToJString('file://' + fChosenVideo));
  Intent := TJIntent.Create;
  Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
  Intent.setDataAndType(Data, StringToJString('video/mp4'));
  SharedActivity.startActivity(Intent);

但我真的希望它从应用程序私有(private)文件夹中播放:

  fChosenVideo := IncludeTrailingPathDelimiter(TPath.GetDocumentsPath)+'myMovie.mp4';

我发现我应该能够设置权限，以便外部应用程序可以通过在某处设置 MODE_WORLD_READABLE 来读取文件，但我似乎无法掌握如何实现这一点。

感谢任何帮助。提前致谢延斯福吉

Answer 1

您的问题已经得到解答here
将文件放到公共(public)场所后，您可能想要更改 MODE_WORLD_READABLE 等属性。在 Delphi 中，您可以使用类似这样的方法来执行此操作:

var
  xFas: TFileAttributes;
begin
  sFnExt = '/sdcard/file1.mp4';
  xFas:= System.IOUtils.TFile.GetAttributes(sFnExt);
  Include(xFas,TFileAttribute.faOthersRead);
  System.IOUtils.TFile.SetAttributes(sFnExt,xFas);