|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2014/8/2 13:05:54 |
标题: |
求助,delphi android 如何下载APK并自动安装? |
浏览:1518 |
|
加入我的收藏 |
楼主: |
哪个大大可以指点一下?谢谢
----------------------------------------------
- |
作者: |
hans (hans) |
★☆☆☆☆ |
-
|
普通会员 |
|
2014/8/3 19:01:26 |
2楼: |
遇到这样的apk,绝对把作者砍了,你凭什么自动安装? 我怎么知道你的APK是不是安全的
----------------------------------------------
Hans
|
作者: |
ww123 (ww123) |
★☆☆☆☆ |
-
|
普通会员 |
|
2014/8/3 19:09:35 |
3楼: |
楼主的意图就是做一些不能让人知道的事情
----------------------------------------------
-
|
作者: |
|
2014/8/4 9:05:49 |
4楼: |
使用标准代码,安装的时候,有提示的,用户可以选择不安装。下载也做成让用户选择,就好了。
----------------------------------------------
(C)(P)Flying Wang
|
作者: |
|
2014/8/4 9:07:33 |
5楼: |
procedure TZXingCall.openFile(const sPath: string); {$IF DEFINED(ANDROID)} var LIntent: JIntent; barfile:JFile; {$ENDIF} begin {$IF DEFINED(ANDROID)} LIntent := TJIntent.JavaClass.init(); LIntent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); LIntent.setAction(TJIntent.JavaClass.ACTION_VIEW); barfile := TJFile.JavaClass.init(StringToJString(sPath)); barfile.setReadable(True,False); //--这几句很重要,不然调不出来安装包 barfile.setWritable(True,False); LIntent.setDataAndType(TJnet_Uri.JavaClass.fromFile(barfile), StringToJString('application/vnd.android.package-archive'));
//--SharedActivity.startActivity(LIntent); SharedActivity.startActivityForResult(LIntent, 0); FZXingApkOpened := True; {$ENDIF} end;
----------------------------------------------
(C)(P)Flying Wang
|
作者: |
|
2016/7/26 16:43:49 |
6楼: |
注意,上面的代码,只负责安装,不负责下载。
----------------------------------------------
(C)(P)Flying Wang
|
作者: |
|
2016/7/27 9:49:30 |
7楼: |
不错...
----------------------------------------------
山外青山楼外楼,能人背后有能人弄..
|
|