Auto-actualizar apk

[Casimiro Noteví]

No es tan simple, además tendrás que dar permiso REQUEST_INSTALL_PACKAGES, que recuerde, y MANAGE_UNKNOWN_APP_SOURCES.

[er_lolo]

Si, lo de dar permisos de aplicaciones desconocidas los esperaba, pero de momento no he conseguido mucho. Seguiré investigando....

[Casimiro Noteví]

No es Delphi, pero a ver si esto te sirve de referencia:

Private Sub SendInstallIntent
    Dim ApkName As String = kcTmpApk ''' "tmp.apk"
    Dim i As Intent
    If phone.SdkVersion >= 24 Then                                                    'Nougat 7.0
        i.Initialize("android.intent.action.INSTALL_PACKAGE", GetFileUri(ApkName))
        i.Flags = Bit.Or(i.Flags, 1) 'FLAG_GRANT_READ_URI_PERMISSION
    Else
        i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(SharedFolder, ApkName))
        i.SetType("application/vnd.android.package-archive")
    End If
    StartActivity(i)
End Sub

Private Sub GetFileUri (FileName As String) As Object
    If UseFileProvider = False Then
        Dim uri As JavaObject
        Return uri.InitializeStatic("android.net.Uri").RunMethod("parse", Array("file://" & File.Combine(SharedFolder, FileName)))
    Else
        Dim f As JavaObject
        f.InitializeNewInstance("java.io.File", Array(SharedFolder, FileName))
        Dim fp As JavaObject
        Dim context As JavaObject
        context.InitializeContext
        fp.InitializeStatic("android.support.v4.content.FileProvider")
        Return fp.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
    End If
End Sub

[er_lolo]

Gracias, voy a estudiarlo!

[er_lolo]

Seguimos intentándolo sin mucho éxito...

He intentando varios códigos, pero no consigo dar con la tecla, lo último que he probado es este código:

procedure TMainForm.OpenAPK(AFileName: string);
var
	LIntent: JIntent;
	LAuthority: JString;
	LUri: Jnet_Uri;
begin
	LAuthority := StringToJString(JStringToString(TAndroidHelper.Context.getApplicationContext.getPackageName)+'.fileprovider');
	LUri := TJFileProvider.JavaClass.getUriForFile(TAndroidHelper.Context, LAuthority, TJFile.JavaClass.init(StringToJString(AFileName)));
	LIntent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW);
	LIntent.setDataAndType(LUri, StringToJString('application/vnd.android.package-archive'));
	LIntent.setFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);
	TAndroidHelper.Activity.startActivity(LIntent);
end;

He añadido la siguiente unit: "github.com/DelphiWorlds/KastriFree/blob/master/API/DW.Androidapi.JNI.FileProvider.pas"

Ahora el error que obtengo es: "Java type JFileProvider could not be found", y no se por donde seguir

[Casimiro Noteví]

En teoría algo más o menos así:

Código Delphi [-]
procedure RestartApplication;
var
  Intent: JIntent;
begin
  Intent := TAndroidHelper.Context.getPackageManager.getLaunchIntentForPackage(TAndroidHelper.Context.getPackage  Name);
  Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_CLEAR_TOP);
  TAndroidHelper.Activity.startActivity(Intent);
end;

No sé por qué sale "Contex.getPackageName" separado el "Name" del "getPackage"

[er_lolo]

Gracias por la respuesta,

el Apk lo descargo desde un servidor FTP.
La idea era intentar "Ejecutarlo", como ShellExecute en Windows, para que el usuario pudiera seguir con la instalación.

Pd. Ya no me sale el error "Java type JFileProvider could not be found", era una ruta que tenia mal configurada, sin embargo, ahora simplemente no hace nada.