没有Oustement Permissions的超载版本＆＃x27;可以用这些论点给出的允许更多

Question

使用Delphi 10，我使用了一个程序在ongreate事件上为Android应用提供多个权限：

  var
  permBatt, permRead, permWrite, permBlue, permAccess, permCoarse: string;
begin
  {$IFDEF ANDROID}

  // Request permissions
  permBatt := JStringToString(TJManifest_permission.JavaClass.REQUEST_IGNORE_BATTERY_OPTIMIZATIONS);
  permRead := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
  permWrite := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);
  permBlue := JStringToString(TJManifest_permission.JavaClass.BLUETOOTH);
  permAccess := JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION);
  permCoarse := JStringToString(TJManifest_permission.JavaClass.ACCESS_COARSE_LOCATION);

  PermissionsService.RequestPermissions([permBatt, permRead, permWrite, permBlue, permAccess, permCoarse], PermissionRequestResult);

 {$ENDIF}

现在在Delphi 11 Alexandria，我收到了一个编译器错误

[DCC Error] data.main.pas(237): E2250 There is no overloaded version of 'RequestPermissions' that can be called with these arguments 

，我尝试使用permississionservice.requeStermiss.requepperrismis.requequestpersimper。 ：

const
  permBatt = 'android.permission.REQUEST_IGNORE_BATTERY_OPTIMIZATIONS';
  permRead = 'android.permission.READ_EXTERNAL_STORAGE';
  permWrite = 'android.permission.WRITE_EXTERNAL_STORAGE';
  permBlue  = 'android.permission.BLUETOOTH';
  permAccess = 'android.permission.ACCESS_FINE_LOCATION';
  permCoarse = 'android.permission.ACCESS_COARSE_LOCATION';
  {$IFDEF ANDROID}

  PermissionsService.RequestPermissions([permBatt, permRead, permWrite, permBlue, permAccess, permCoarse ],
  procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
      begin
        if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
          TDialogService.ShowMessage('OK permessi')
      else
        begin
          TDialogService.ShowMessage('Location permission not granted');
        end;
      end);
  {$ENDIF}

但是错误仍然存​​在，有什么想法吗？谢谢你

Answer 1

我找到了正确的解决方案，希望它会有所帮助

procedure TMainData.DataModuleCreate(Sender: TObject);
const
permBatt = 'android.permission.REQUEST_IGNORE_BATTERY_OPTIMIZATIONS';
permRead = 'android.permission.READ_EXTERNAL_STORAGE';
permWrite = 'android.permission.WRITE_EXTERNAL_STORAGE';
permBlue  = 'android.permission.BLUETOOTH';
permAccess = 'android.permission.ACCESS_FINE_LOCATION';
permCoarse = 'android.permission.ACCESS_COARSE_LOCATION';
begin

{$IFDEF ANDROID}
  PermissionsService.RequestPermissions([permBatt,permRead, permWrite, permBlue, permAccess, permCoarse],
    procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
        { activate or deactivate the location sensor }
      else
      begin
       TDialogService.ShowMessage('Devi dare il permesso alla localizzazione esplicitamente');
      end;
    end);

 {$ENDIF}
end