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
if (Length(AGrantResults) = 4) then
begin
end
else
begin
exit; 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