Ver Mensaje Individual
  #21  
Antiguo 16-03-2019
cocute cocute is offline
Miembro
 
Registrado: nov 2008
Posts: 390
Reputación: 11
cocute Va por buen camino
intentando resumir a lo más mínimo el código necesario, poniendo sólo esto me funciona en rio el permiso de escritura/lectura y lo deja guardado

Código Delphi [-]
uses
  System.Permissions,
{$IFDEF ANDROID}
  Androidapi.JNI.Os,
  Androidapi.JNI.JavaTypes,
  Androidapi.Helpers,
{$ENDIF}
  FMX.DialogService;


y metiendo esto en el form create

begin
   PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE)],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray)
    begin
    end);
    PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE)],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray)
    begin
    end)
end;

seguro que aun se puede resumir más el código quitando la parte de los dos procedures, pero no se que poner en su cuenta
Responder Con Cita