Delphi 安卓下打开 PDF, MP4 等外部文件


本文整理自网络,侵删。

 
用 Delphi 写的 APP 要打开诸如 MP4,PDF 等文件,可以调用安卓系统里的其它程序来打开。调用方法,我之前写过一篇:

https://blog.csdn.net/pcplayer/article/details/80852385

最近要播放 MP4,再次把这段代码拿来测试了一下。发现在 Delphi 10.3.1 + Android 9.0 的情况下:

URI := TJnet_Uri.JavaClass.parse(StringToJString('file:///' + fName));  这一句搞出来的 URI 会导致异常。

网上查了一下:

https://en.delphipraxis.net/topic/1437-pdf-view-on-android/

LUri := TAndroidHelper.JFileToJURI(TJFile.JavaClass.init(StringToJString(AFileName)));
因此,如果要播放 MP4,代码就是这样:
    Uri :=  TAndroidHelper.JFileToJURI(TJFile.JavaClass.init(StringToJString(AURI)));
 
    Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW);
    intent.setDataAndType(uri, StringToJstring('video/mp4'));
 
    Intent.setFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);
TAndroidHelper.Activity.startActivity(Intent);  //pcplayer 2018-4-11



//打开PDF文件
uses
  Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers, Androidapi.JNI.Net;
  
procedure OpenPDF(const AFileName: string);
var
  LIntent: JIntent;
  LUri: Jnet_Uri;
begin
  LUri := TAndroidHelper.JFileToJURI(TJFile.JavaClass.init(StringToJString(AFileName)));
  LIntent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW);
  LIntent.setDataAndType(LUri, StringToJString('application/pdf'));
  LIntent.setFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);
  TAndroidHelper.Activity.startActivity(LIntent);
end;

相关阅读 >>

Delphi服务程序(service)的调试方法

Delphi tfdconnection只能取得50处理

Delphi如何获取qq2010聊天窗口句柄

Delphi 在firemonkey应用程序中使用torientationsensor获取设备倾斜和指南针航向

Delphi 开发64位应用程序使用windows api的注意事项

Delphi 实现 托动pagecontrol上的标签页

Delphi cef4 忽略不安全网站

Delphi 隐藏进程代码

Delphi md5单元文件

Delphi 打开win8及以上操作系统的系统已安装程序目录

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...