Delphi 安卓APP在线升级

本文整理自网络，侵删。

 
安卓APP在线升级

通过IDHTTP组件在线下载APP到手机中，然后自动安装这个APP程序。

1）在线下载APP程序

需引用单元: 

{$IFDEF ANDROID}
FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.Net, Androidapi.JNI.JavaTypes;
{IFDEF}
procedure TForm1.Button2Click(Sender: TObject);
var
caminho_d: string;
MyFile: TFileStream;
begin
//verifica se ja existe para apagar e criar novamente
if FileExists(GetSharedDownloadsDir+’/PJMOBILE.apk’) then
DeleteFile(GetSharedDownloadsDir+’/PJMOBILE.apk’);
// definir o link
caminho_d:= ‘http://susite.com.br/download/APP.apk‘; // aqui defini um caminho pard?o pro download , pode ser trocado por um edit, etc
MyFile := TFileStream.Create(GetSharedDownloadsDir+’/APP.apk’, fmCreate); // local no celular e nome do arquivo com a extens?o, onde vai salvar.
try
IdHTTP1.Get(caminho_d, MyFile); // fazendo o download do arquivo e salva no celular
finally
MyFile.Free;
end;
end;
procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
begin
ProgressBar1.value := AWorkCount;
Application.ProcessMessages;
end;
procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Int64);
begin
ProgressBar1.value := 0;
ProgressBar1.Max := AWorkCountMax;
Label1.Text := ‘开始下载’;
end;
procedure TForm1.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Value := ProgressBar1.Max;
Label1.text := ‘下载完成’;
end;
　　

2）安装下载的APK

procedure TForm1.Button1Click(Sender: TObject);
var
aFile:Jfile;
Intent:JIntent;
begin
aFile:=TJfile.JavaClass.init(stringtojstring(GetSharedDownloadsDir),stringtojstring(‘APP.apk’));
Intent := TJIntent.Create ;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
Intent.setDataAndType(TJnet_Uri.JavaClass.fromFile(aFile),StringToJString(‘application/vnd.android.package-archive’));
SharedActivityContext.startActivity(Intent);
end;
 

相关阅读 >>

Delphi tcxgrid的tcxgriddbtableview.viewdata.rows跟records有什么区别

Delphi中对进程内存进行读写

Delphi文件是否正在使用

Delphi中的各种文件类型介绍

Delphi获取桌面图标

sqlite中的pragma语句攻略

Delphi 精确打印image画布

Delphi 无法调用cmd nbtstat命令解决办法

Delphi中formatdatetime函数的用法

Delphi 调用打印软件代码

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

转载请注明出处：木庄网络博客 » Delphi 安卓APP在线升级