Delphi XE6开发的AndRoid应用实现在线升级完成后自动安装apk代码


本文整理自网络,侵删。

 介绍

现在很多应用如果有更新后会自动下载并自动进行安装,这样可以让使用者最早的发现应用更新,下面的代码介绍了如果进行下载,下载完成后并且自动进行安装apk,下面是具体的一个函数。

function OpenFile(const URL: string; const DisplayError: Boolean = False): Boolean;
{$IFDEF ANDROID}
var Intent: JIntent;
begin 
  Intent:=TJIntent.Create;
  Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
  Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
  Intent.setDataAndType(TJnet_Uri.JavaClass.parse(StringToJString(URL)),
  StringToJString('application/vnd.android.package-archive'));
  try
    SharedActivity.startActivity(Intent);
    exit(true);
  except
    on e: Exception do
    begin
      if DisplayError then ShowMessage('Error: ' + e.Message);
      exit(false);
    end;
  end;
end;
{$IFDEF}


函数说明,有两个参
1:URL='file://'+apk文件路径
需引用单元:
{$IFDEF ANDROID}
  FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.Net, Androidapi.JNI.JavaTypes;
{$IFDEF}


2:DisplayError是否显示错误信息。

相关阅读 >>

Delphi获取操作系统安装磁盘盘符

Delphi中用拼音首字符序列来实现检索功能

Delphi中paramstr的用法

Delphi 通过读取注册表信息获取桌面路径

Delphi post数据与对应的接收方式

Delphi-xe5-开发 android uri简介

Delphi的判断文件和文件夹

Delphi 给字加边的又一个算法

Delphi与进程、窗口句柄、文件属性、程序运行状态

idhttp访问网页出现socket error #10054错误

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



打赏

取消

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

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

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

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

评论

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