Delphi 手机APP打开一个安卓系统支持的文件,比如 PDF


本文整理自网络,侵删。

 实际上的代码就是这样几行:

procedure btnPdfClick(Sender: TObject);
var
   fName       : String;
{$IFDEF ANDROID}
   Intent      : JIntent;
   URI         : Jnet_Uri;
{$ENDIF}
begin
    fName := TPath.GetSharedDownloadsPath + PathDelim + 'test.pdf';
 
    {$IFDEF ANDROID}
      URI := TJnet_Uri.JavaClass.parse(StringToJString('file:///' + fName));
      intent := TJIntent.Create;
      intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
      intent.setDataAndType(URI,StringToJString('application/pdf'));
      SharedActivity.startActivity(intent);
    {$ENDIF}
end;
有了这几行代码,任何安卓系统支持的文件,都可以打开。

这里对于文件的描述,是一个 URI,因此,理论上,是一个网络文件,比如 http://xxx.xxx.xx/abc.mp4 也是能打开的。

不过根据我的经验,如果你的手机安装了多个播放器,这时候系统会问你用哪个播放器。
--------------------- 
作者:pcplayer 
来源:CSDN 
原文:https://blog.csdn.net/pcplayer/article/details/80852385 

相关阅读 >>

Delphi中使用内联变量(inline variables) 的5个理由

Delphi webservice 中采用 tsoapattachment 传输文件

Delphi xe5 android openurl

Delphi webbrowser控件属性

Delphi 禁用tedit右键菜单及复制粘贴

Delphi tfdmemtable 更新到数据库

Delphi xe3里判断网络是否连接成功

Delphi datamodule1 fdconnection1数据库连接

Delphi xe中 exit 的新用法

Delphi sender 的用法举例

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



打赏

取消

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

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

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

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

评论

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