PermissionsService.RequestPermissions ist asynchron!

[skoschke]

Hallo,

da Verwendung von Delphi Rio und Devices mit Android 9 hilft das Manifest bei den Berechtigungen nicht wirklich, denn die sind nach Installation der App zwar als Berechtigungen im App-Manager gelistet aber alle abgeschaltet!

nun habe ich PermissionsService.RequestPermissions(...) gefunden, was auch die angeforderten Berechtigungen vom User bei Programmstart abfragt.

Nur kehrt leider der Aufruf von PermissionsService.RequestPermissions sofort zurück und der weitere Programmcode wird abgearbeitet während auf dem Display noch die erste Abfrage ('Speicher lesen / schreiben erlauben...') steht.

Damit aber bekomme ich Laufzeitfehler, da hier jetzt auf den Speicher zugegriffen wird aber die Berechtigung noch nicht vorliegt!

Wie löst man das bzw. bekommt man die App-Berechtigungen mit Rio auf Android 9 sofort bei Installation per Manifest abgefragt und gespeichert?

Danke
Ciao
Stefan

[Der schöne Günther]

Ist das nicht hier erklärt?

http://docwiki.embarcadero.com/RADSt...rmission_Model

[jaenicke]

Unter Android und iOS sollte alles asynchron sein. Die eigene Aktion muss schlicht in dem Callback passieren, wenn die Berechtigung vorhanden ist, nicht nach dem Aufruf an RequestPermissions.

[skoschke]

das habe ich ja implementiert:

Delphi-Quellcode:

  PermissionsService.RequestPermissions
    ([JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE)],
    procedure(const APermissions: TArray<string>;
      const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and
        (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        //erlaubt
      end
      else
      begin
         TDialogService.ShowMessage('Ohne Speicherzugriff kann das Programm nicht arbeiten und wird beendet!');
         Application.Terminate;
      end;
    end);
  // Gerätename wegschreiben
  MakeDeviceInfo(DeviceInfo.diDevice);

aber während noch "Zugriff auf Medien... erlauben" auf dem Display unbeantwortet steht wird schon die Procedure MakeDeviceInfo aufgerufen die auf den (noch nicht erlaubt) Speicher zugreifen will!

Ciao
Stefan

[mensch72]

nee... hast du nicht implementiert!

dein
"// Gerätename wegschreiben
MakeDeviceInfo(DeviceInfo.diDevice);"
muss da stehen, wo du "//erlaubt" (leer) hin geschrieben hast!

Du solltest dir Konzept und Funktion der asynchronen anonymen Methoden nochmal ganz in Ruhe klarmachen!

Um nicht Probleme mit Ausführung im Thread zu bekommen, könntest du bei "erlaubt" auch einen kurzen 50msec Timer starten und im OnTimer dann dein "// Gerätename wegschreiben" machen. Dann läuft das zuminest wieder im MainThread selbst ab, bzw. das bei "//erlaubt" in ein Syncronize(procedure wegschreiben) packen.

Viel Spaß und Erfolg beim Nachdenken

[Rollo62]

Das "Application.Terminate;"
sollte man auch weglassen.

Eine App kann sich so einfach nicht selbst beenden, das sollte immer der User machen.

[skoschke]

OK, habe das mit dem Callback kapiert

Da kommt aber ein neues Problem:

Das procedure(const APermissions: TArray<string>; Callback wird gar nicht mehr aufgerufen wenn bereits alle Zugriffe erlaubt worden sind!

Ich möchte in der Programm-Unit bzw. in einem Startscreen erst alle Zugriffsrechte holen wenn nicht vorhanden und erst dann soll das eigentliche Programm starten!

Ciao
Stefan