Leer imagen de la carpeta Pictures de Android

[Casimiro Notevi]

Perfecto entonces
Me alegro de que lo hayas resuelto.

[jmbarrio]

Hola Johnalone, estoy tratando de replicar tu código y tengo un error de compilación que no se resolver con
TPermissionArray y TPermissionStatusArray

Código Delphi [-]
if TOSVersion.Check(13) then
  PermissionsService.RequestPermissions([Read_Video, Read_Imagen, Read_Media_Visual, Read_External_Storage],
  procedure(const APermissions: TPermissionArray; const AGrantResults: TPermissionStatusArray)
        begin
       // ShowMessage( Length(AGrantResults).ToString);
         if (Length(AGrantResults) = 4) then
  begin
   // permitido;
  //  ShowMessage('Se aceptaron todos los permisos.');
  end
  else
  begin

    exit; /// No permitimos que haga lo que viene MAS ABAJO
   // ShowMessage('NO Se aceptaron todos los permisos.');
  end;
        end
      );

Las uses

Código Delphi [-]
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListBox,
  FMX.StdCtrls, FMX.Effects, FMX.Edit, FMX.Objects, FMX.Controls.Presentation,
  FMX.Layouts, System.IOUtils, System.UIConsts, FMX.Helpers.Android,
  System.Permissions, Androidapi.Helpers, Androidapi.JNI.Os,
  FMX.Media;

Muchas gracias, un saludo

[jmbarrio]

Hola Johnalone, estoy tratando de replicar tu código y tengo un error de compilación que no se resolver con
TPermissionArray y TPermissionStatusArray

Código Delphi [-]
if TOSVersion.Check(13) then
  PermissionsService.RequestPermissions([Read_Video, Read_Imagen, Read_Media_Visual, Read_External_Storage],
  procedure(const APermissions: TPermissionArray; const AGrantResults: TPermissionStatusArray)
        begin
       // ShowMessage( Length(AGrantResults).ToString);
         if (Length(AGrantResults) = 4) then
  begin
   // permitido;
  //  ShowMessage('Se aceptaron todos los permisos.');
  end
  else
  begin

    exit; /// No permitimos que haga lo que viene MAS ABAJO
   // ShowMessage('NO Se aceptaron todos los permisos.');
  end;
        end
      );

Las uses

Código Delphi [-]
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListBox,
  FMX.StdCtrls, FMX.Effects, FMX.Edit, FMX.Objects, FMX.Controls.Presentation,
  FMX.Layouts, System.IOUtils, System.UIConsts, FMX.Helpers.Android,
  System.Permissions, Androidapi.Helpers, Androidapi.JNI.Os,
  FMX.Media;

Muchas gracias, un saludo

[jhonalone]

Hola jmbarrio.
No sé exactamente lo que pretendes hacer.
Supongo que estás usando Delphi 11 Alexandria y que has aplicado el parche de Dani, previamente.
Las constantes que te dan problema es porque se usan en las dos units que te faltan en los uses:
DW.Consts.Android, DW.Permissions.Helpers; // Para los nuevos permisos de KastriFree
Pertenecen a un conjunto de librerías de KastriFree. No sé si las conoces.
Puedes descargarlas aqui.
Un saludo.

[jmbarrio]

Empezado por jhonalone

Hola jmbarrio.
No sé exactamente lo que pretendes hacer.
Supongo que estás usando Delphi 11 Alexandria y que has aplicado el parche de Dani, previamente.
Las constantes que te dan problema es porque se usan en las dos units que te faltan en los uses:
DW.Consts.Android, DW.Permissions.Helpers; // Para los nuevos permisos de KastriFree
Pertenecen a un conjunto de librerías de KastriFree. No sé si las conoces.
Puedes descargarlas aqui.
Un saludo.

Muchas gracias Johnalone, las probare.

Un saludo.