Einzelnen Beitrag anzeigen

jmich

Registriert seit: 24. Dez 2007
40 Beiträge
 
#1

Fehlermeldung bei RequestPermissions unter Android 11 mit Delphicode

  Alt 2. Mai 2023, 15:32
Hi Leute,
bin am verzweifeln mit den Delphi-Code und bekomme beim
Compiler folgenden Fehler:
E2250 Es gibt keine überladenene Version von RequestPermissions, die Argumente .....

Hier der Code
Delphi-Quellcode:
procedure Timportexport.btn_importClick(Sender: TObject);
var
  pfadexport, pfadimport: String;
begin
  pfadimport := TPath.Combine(TPath.GetSharedDocumentsPath, 'file.db');
  pfadexport := TPath.Combine(TPath.GetDocumentsPath, 'file.db');

  if TFile.Exists(pfadimport) then
  begin
    PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE), JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE)],
      procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
      begin
        if (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) then
        begin
          try
            TFile.Copy(pfadimport, pfadexport);
            ShowMessage('Datei erfolgreich kopiert.');
          except
            on E: Exception do
            begin
              ShowMessage('Fehler beim Kopieren: ' + E.Message);
            end;
          end;
        end
        else
        begin
          ShowMessage('Berechtigungen wurden nicht erteilt.');
        end;
      end);
  end
  else
  begin
    ShowMessage('Datei nicht gefunden.');
  end;
end;
Wo könnte der Fehler liegen für diese Meldung?
Dieser Code soll später unter Android ab 11 laufen.
  Mit Zitat antworten Zitat