PermissionsService.RequestPermissions ist asynchron!

[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

[mensch72]

..."Das procedure(const APermissions: TArray<string>; Callback wird gar nicht mehr aufgerufen wenn bereits alle Zugriffe erlaubt worden sind!"...
wozu rufst du es denn auf?... du hast dir doch wohl sicher alles was du einmalig abfragen kannst schon beim ersten mal in einer eigenen z.B. SQlite DB gespeichert!?

Ansonsten gilt ganz allgemein:
alles was "nur" in der Async procedure an Daten verfügbar, muss in "globale Variablen(sinnvoller Weise des MainThreads)" gefuffert und praktischer Weise mit einem TimeStamp wann zuletzt aktualisiert versehen werden.
Nur dann kannst du im Programmablauf wenn du real irgendwann die abgefagten Sachen benutzen willst feststellen, ob du mit den DB Werten oder ev. gemäß TimeStamp den aktuelleren gepufferten AsyncDaten arbeiten willst, und/oder z.B. deine DB aktualisieren.


Und aus Erfahrung gilt praktisch:
- alles was man Async auslöst kann entweder als Result stets "gültig"/"ungültig" ODER "!TimeOut!" haben... also IMMER mindestens eine "TriState-Logik" implementieren!
- daher ist mein Vorschlag mit nem langen "max" TimerTimeout VOR dem AsyncCall und nem ändern des Timers auf ein minimales TimeOut IM AsynCall eine aus meiner Sicht sehr elegante und sichere Lösung, um alle 3 möglichen "Async-ResultStates" simpel an einer Stelle im "onTimer" im HauptThreadKontext ver/bearbeiten zu können.


TIP:
Statt eines StartScreen bietet es sich an anfangs einfach an, einen halbdurchsichtigen Frame/Dialog/... über die gesamte GUI zu legen, dann alles was nötig ist StepByStep "als Async-Kette" machen und erst wenn alles OK, bzw. irgend ein TimeOut die GUI wieder freigeben(bei TimeOut nun dem Anwender mitzuteilen was fehlt und warum nun Schluss)
- wenn schon alles frei und OK, sollte die GUI-Serre nicht länger wie 1sec dauern/sichtbar sein... sonst besser nen Progressbar oder ne Animation mit anzeigen