ActiveDelphi

[Missias]

Boa noite! Estou desenvolvendo um app para um cliente e está funcionando bem. No entanto o Cliente quer que o app atualize pela internet, até ai, tudo bem. Só que agora ele quer que atualize sem precisar apertar botao para BAIXAR e depois apertar em INSTALAR. Ele quer que o app ao chegar em uma area da empresa o app se atualize automaticamente se ele estiver desatualizado. Gostaria de saber se tem nos Itents da vida alguma configuracao que iniba pelo menos o pedido de Baixar sim ou nao. o app está em um servidor web na propria empresa usando o Xamp. Qualquer sugestão é bem vinda. Obrigado, Sergio Missias

[Missias]

Segue o código que pelo menos consigo baixar o apk em uma url definida pelo usuario e iniciar a instalacao a única frustação é que ainda preciso autorizar a atualização e depois que atualiza pede para abrir o app.
mas funcionou no Android 13 com delphi 11.

function OpenURL(const URL: string; const DisplayError: Boolean = False): Boolean;
{$IFDEF ANDROID}
var
Intent: JIntent;
aFile : Jfile;
MyFile : TMemoryStream;
IdHTTP : TiDHTTP ;
rsl : boolean;
fdir,Filename:string;

begin
fdir := GetSharedDownloadsDir+'/Onibus';
if not DirectoryExists(fdir) then
CreateDir(fdir);

IdHTTP := TiDHTTP.Create;

MyFile := TMemoryStream.Create;
{Download do arquivo}
IdHTTP.Get(URL, MyFile);
MyFile.SaveToFile(fdir+'/MasterBusApp.apk') ;
FileName := TPath.Combine( fdir, 'MasterBusApp.apk' );
aFile := TJFile.JavaClass.init(StringToJString(FileName));
Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_INSTALL_PACKAGE);
Intent.setDataAndType(TAndroidHelper.JFileToJURI(aFile), StringToJString('application/vnd.android.package-archive'));
Intent.setFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);

try
TAndroidHelper.context.startActivity(Intent);



// Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, TJnet_Uri.JavaClass.parse(StringToJString(TIdURI.URLEncode(URL))));


// SharedActivity.startActivity(Intent);

exit(true);
except
on e: Exception do
begin

if DisplayError then ShowMessage('Error: ' + e.Message);
exit(false);
end;
end;