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是否显示错误信息。

来自：http://www.dfwlt.com/forum.php?mod=viewthread&tid=445
 

相关阅读 >>

Delphi写一个utf8编码格式的文本文件

Delphi 如何检查字符串是否为数字

Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明

Delphi 获取打印机纸型的例子

Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数

Delphi getmodulefilename函数的用法(可以获取项目的路径，桌面的路径，我的文档的路径)

winapi 字符及字符串函数(9): lstrcat - 合并字符串

Delphi 根据分割符只取最后的值

Delphi idhttp解决获取utf-8网页中文乱码问题

Delphi 如何判断可见字符 unicode

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

转载请注明出处：木庄网络博客 » Delphi XE6开发的AndRoid应用实现在线升级完成后自动安装apk代码(加说明)