Ver Mensaje Individual
  #1  
Antiguo 23-02-2021
viverosjosem viverosjosem is offline
Baneado
 
Registrado: dic 2017
Posts: 64
Reputación: 0
viverosjosem Va por buen camino
Red face Permisos android 8. v/s android 10

Hola Amigos.
Tengo una aplicacion para android realizada en Delphi Rio. Funciona bien. Pero solo para android 8, o inferior. Si la instalo en android 10. La aplicacion se cuelga. Solo muestra el splash de inicio, y no hace nada.

Anteriormente habia consultado por un problema similar, en este mismo foro. La aplicacion corria bien en android 8, compilada con delphi tokio, pero se colgaba si la compilaba con delphi Rio.

En este mismo foro jhonny me dio la solucion. Tenia un problema de permisos. (http://clubdelphi.com/~marcsc/foros/...ad.php?t=94292)
En ese momento, incorpore el codigo de mas abajo, y todo funciono bien. Pero ahora, instalando la aplicacion en un tablet con android 10, la aplicacion se cuelga. Pero, si la instalo en un tablet con android 8, si funciona. ...Alguna idea?


Código Delphi [-]
procedure TFCentral.FormCreate(Sender: TObject);
begin
   PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE)],
   procedure(const APermissions: TArray<string>; const AGrantResults: TArray)
   begin
    if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
    begin

       ValidaConector;
       ValidaResiduos;
       ActivaFTP;        //AddFiles;
       lbEstado.Text := 'Conectado';
    end
    else
       begin
         lbEstado.Text := 'No conectado';
       end;
   end)
end;

Gracias.

Saludos.
Jose Miguel.
Responder Con Cita