在 android delphi seattle 应用程序错误中启动 apk

Question

出于多种原因，我不想使用 Google Play 机制来升级 android 应用程序。 于是决定自己做一个系统下载升级一个android的应用。

第 1 步：下载更新.apk文件。

第 2 步：在原始应用程序中放置一个按钮，以便用户可以单击它以启动.apk进行升级。

以下代码给我一个错误。

  procedure TfrmUpdateProgram.DoUpgrade;  
  {$IF DEFINED(IOS) or DEFINED(ANDROID)}
    var Intent : JIntent;
  {$ELSE}
  {$ENDIF}
  begin
    {$IF DEFINED(IOS) or DEFINED(ANDROID)}
      Intent := TJIntent.Create;
      Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
      Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
      Intent.setDataAndType(StrToJURI(newAPKFile), StringToJString('application/vnd.android.package-archive'));

      SharedActivityContext.startActivity(Intent);
      Application.Terminate;

    {$ELSE}
      ShellExecute(0, PWideChar('Open'), PWideChar(newAPKFile), nil, nil, SW_HIDE);
    {$ENDIF}
  end;

android.content.activitynotfoundexception：找不到处理意图的活动 {act=android.intent.action.view dat=/storage.....update.apk typ=application/vnd.android.package-archive flg=0x1000000}

有什么想法吗？

Answer 1

尝试删除对Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK)的调用，这并不是严格需要的。

启动Intent之前，请确保.apk文件可被世界读取，除非将其存储到公共外部文件夹中。 并确保可以通过以下file:访问它file: URI。

并确保将您的Android设备配置为允许从未知来源安装应用程序。

Answer 2

    var
        Path: JString;
        Name: JString;
        F: Jfile;
        Intent: JIntent;
        FileName, DestFileName: string;



     FileName := System.IOUtils.TPath.GetDownloadsPath + PathDelim + 'myAPK_name.apk';
     Intent := TJIntent.Create;
     Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
     if TJBuild_VERSION.JavaClass.SDK_INT >= TJBuild_VERSION_CODES.JavaClass.N then
     begin

          lFile := TJFile.JavaClass.init(StringToJString(FileName));

          Intent.setFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION + TJIntent.JavaClass.FLAG_GRANT_WRITE_URI_PERMISSION);
          Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
         //This line used to be in Delphi 10.4 
         //Data := TJFileProvider.JavaClass.getUriForFile(TAndroidHelper.Context,StringToJString('com.embarcadero.BarcodexMS.fileprovider'), lFile);
         //Use Following line in Delphi 11.1
         Data := TJcontent_FileProvider.JavaClass.getUriForFile(TAndroidHelper.Context,StringToJString(JStringToString(TAndroidHelper.Context.getApplicationContext.getPackageName) + '.fileprovider'), lFile);
     end
     else
     begin
          Data := TJnet_Uri.JavaClass.parse(StringToJString('file://' + FileName));
     end;


     Intent.setDataAndType(Data, StringToJString('application/vnd.android.package-archive'));
     TAndroidHelper.Activity.startActivity(Intent);