Cambios para solicitar permisos Android en Delphi 11

  • 3 Respuestas
  • 789 Vistas
*

noshy

  • *****
  • 42
    • Delphi desde cero
Cambios para solicitar permisos Android en Delphi 11
« : febrero 23, 2022, 11:23:59 am »
En Delphi 11 se ha cambiado la declaración del procedimiento de respuesta en los permisos Android, la nueva forma de declararla es la siguiente:

Código: [Seleccionar]
procedure TFormMain.RequestPermissions;
begin
{$IFDEF ANDROID}
  FPermission_SEND := JStringToString(TJManifest_permission.JavaClass.SEND_SMS);
  FPermission_READ := JStringToString(TJManifest_permission.JavaClass.READ_SMS);
  FPermission_RECEIVE := JStringToString(TJManifest_permission.JavaClass.RECEIVE_SMS);
  PermissionsService.RequestPermissions([FPermission_SEND, FPermission_READ, FPermission_RECEIVE], RequestResult, DisplayRationale)
{$ENDIF}
end;

procedure TFormMain.RequestResult(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray);
begin
  if (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) and (AGrantResults[2] = TPermissionStatus.Granted) then
  begin
 
  end;
end;

Con la declaración anterior nos producía el error "[DCC Error] Unit.pas(305): E2250 There is no overloaded version of ‘RequestPermissions’ that can be called with these arguments." como se explica en este link

Re:Cambios para solicitar permisos Android en Delphi 11
« Respuesta #1 : marzo 06, 2022, 07:04:29 pm »
 :)

Re:Cambios para solicitar permisos Android en Delphi 11
« Respuesta #2 : abril 05, 2022, 12:36:36 am »
Gracias, por la Info...

Acabo de actualizar a Delphi 11.1 y al compilar en Android 32 o 64 bits, me marca CIRCULAR REFERENCE...

[PAClient Error] Error: E7688 Unable to execute '"C:\Program Files\AdoptOpenJDK\jdk-8.0.242.08-hotspot\bin\java.exe" -cp "c:\program files (x86)\embarcadero\studio\22.0\bin\Android\r8-3.0.73.jar" com.android.tools.r8.D8 --output "C:\Daniel\POS\Android\Release\POS.classes" @"C:\Daniel\POS\Android\Release\dex_list.txt"' (Error 1)

*

noshy

  • *****
  • 42
    • Delphi desde cero
Re:Cambios para solicitar permisos Android en Delphi 11
« Respuesta #3 : abril 05, 2022, 11:37:54 pm »
, es un proyecto creado en versiones anteriores?? si es asi, debe actualizar las librerias, para ello en el administrador de proyecto, dentro de "Target Proyect" (tanto 32 como 64) presionas boton derecho sobre "libraries", y presionas sobre "revert System Files to Default"

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20