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.