0

我正在尝试在不使用 Android Market 的情况下为我的应用程序创建一个仅分发给我的客户的应用程序的自动更新。我有下面的代码，但它不起作用。它给了我错误Android.content.ActivityNotFoundException : In Actitivy found to handle intent { ...。

有没有人设法在 Delphi 自动更新 XE5 中做到这一点？

TFrmMain.BtnInstalarClick procedure (Sender : TObject ) ;
var
    Intent : JIntent ;
    Uri : TJnet_Uri ;
begin
    Intent : = TJIntent.Create ;
    Intent.setAction ( TJIntent.JavaClass.ACTION_VIEW );
    Intent.setDataAndType(TJnet_Uri.JavaClass.parse(StringToJString('/storage/sdcard0/Android/data/com.CloudCon.AtualizacaoAutomatica/files/Rota.apk')),StringToJString('application/vnd.android.package-archive')); 
    SharedActivity.startActivity ( Intent ) ;
end ;

路径是正确的。INTERNET、WRITE_EXTERNAL_STORAGE和的权限INSTALL_PACKAGES也已设置。

显然我可以在 Java 中执行以下操作：

" String command = " chmod 666 " + PATH ;
Runtime.getRuntime ( ) . Exec (command ) ; "

我怎么能在 Delphi 中做到这一点。

4

1 回答 1

1

你可以试试这段代码

var
  aFile:Jfile;
  Intent:JIntent;
begin    

  aFile:=TJfile.JavaClass.init(stringtojstring('/storage/sdcard0/Android/data/com.CloudCon.AtualizacaoAutomatica/files/'),stringtojstring('Rota.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;
于 2014-01-10T04:30:05.603 回答