Auto-actualizar apk

[er_lolo]

Hola buenas tardes,

Estoy desarrollando una pequeña APK y me gustaría actualizar desde ella misma, para ello he conseguido descargar el APK, pero no consigo ejecutarlo.
He encontrado probado este código:

procedure TMainForm.EjecutaAPK(sRuta : String);
var
  Intent: JIntent;
  F: Jfile;
begin
  Intent := TJIntent.Create;
  Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);

  Intent.setFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);

  Intent.setDataAndType(TAndroidHelper.JFileToJURI(TJFile.JavaClass.init(StringToJString(sRuta))), StringToJString('application/vnd.android.package-archive'));

  TAndroidHelper.Activity.startActivity(Intent);

end;

Perdón por no citar el autor, pero no vi de quien era...

El caso es que no consigo que funcione, alguna forma mas sencilla de ejecutar un APK?.

Un saludo y gracias.

[Casimiro Notevi]

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 Notevi]

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 Notevi]

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.

[Casimiro Notevi]

Ya digo, cuando empecé con Android todavía Delphi no compilaba para Android, y utilizo otra cosa.
Pero más o menos es algo así:

i : Intent
i.Initialize("android.intent.action.INSTALL_PACKAGE", GetFileUri(" nombre de tu apk ")) ' ejemplo: temp.apk
i.Flags = Bit.Or(i.Flags, 1)
StartActivity(i)

[dani36652]

Tengo en este repositorio de GitHub un ejemplo para lo que buscas:
https://github.com/dani36652/Delphi-...o-Actualizable

[Casimiro Notevi]

[er_lolo]

Mil gracias, ahora lo reviso!.

[er_lolo]

Empezado por dani36652

Tengo en este repositorio de GitHub un ejemplo para lo que buscas:
https://github.com/dani36652/Delphi-...o-Actualizable

Funciono perfectamente, Gracias a todos por la ayuda!.

[dani36652]

Empezado por er_lolo

Funciono perfectamente, Gracias a todos por la ayuda!.

Un gusto audar a la comunidad Delphi

[Parveen]

Empezado por er_lolo

Funciono perfectamente, Gracias a todos por la ayuda!.

Hello,
Can you give a summary of what you did?