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 最好的线程操作

Delphi string.parse

Delphi unigui 调用js

Delphi 读取全网站链接

Delphi goto语句用法

Delphi指针的定义和取值

Delphi 开启内存泄漏报告模式

Delphi 网上获取北京时间idhttpserver and idhttp 使用 encoding utf8

Delphi tstringstream 简单用法

Delphi 移位函数

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



打赏

取消

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

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

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

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

评论

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