Ik loop helaas alleen nog tegen 1 probleem aan waar ik niet uitkom, bij het toestemming vragen voor toegang tot bestanden:
Dit werkte in de oude delphi versie:
Code:
//Toestemming: Opslag / Bestanden
procedure TForm1.Toestemming_1();
begin
// Storage
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 (Length(AGrantResults) = 2) and
(AGrantResults[0] = TPermissionStatus.Granted) and
(AGrantResults[1] = TPermissionStatus.Granted) then
begin
// Er is Toesteming
//Toestemming_2(); //De Volgende Toestemming Vragen
//App_Start();
end
else
begin
// Er is Geen Toesteming
MessageDlg('Deze App kan niet werken Zonder toegang tot de Bestanden.' + #13#10 +
'Als deze keuze niet meer verschijnt:' + #13#10 +
'-Instellingen' + #13#10 +
'-Apps' + #13#10 +
'-Zoek deze App' + #13#10 +
'-Rechten/Machtigingen' + #13#10 +
'-Opslag/Bestanden Aanzetten' + #13#10 +
'Of Verwijder de App en Installeer deze opnieuw !' + #13#10 +
#13#10 +
'App Afsluiten ?', TMsgDlgType.mtConfirmation,
[TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0,
procedure(const AResult: TModalResult)
begin
if AResult = mrYes then
begin
Application.Terminate; //App Afsluiten
Exit;
end
else
Toestemming_1(); //Nogmaals Toestemming Vragen
end);
end;
end); //FOUT MELDING Bij het ")" teken
end;
==========================
En nu krijg ik een fout melding bij het laatste ) teken.
Melding:
[DCC Warning] Unit1.pas(2226): W1000 Symbol 'SharedActivityContext' is deprecated: 'Use TAndroidHelper.Context'
Begrijpen jullie waarom dit nu niet meer werkt, en hoe los ik dit op ?
Bookmarks