Question

我试图为我的应用程序创建一个自动更新，而不使用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中执行此操作。

Answer 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;

自动更新NO MARKET DELPHI XE5

1 个答案: