安卓APP在线升级
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了安卓APP在线升级,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含1935字,纯文字阅读大概需要3分钟。
内容图文
安卓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鉶 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鉶, 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;
原文:https://www.cnblogs.com/hnxxcxg/p/10908534.html
内容总结
以上是互联网集市为您收集整理的安卓APP在线升级全部内容,希望文章能够帮你解决安卓APP在线升级所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。