Warum Android-Berechtigungen direkt setzen?

[dynamo]

Ich habe mal eine Frage zu „Berechtigungen“ in FMX-Android:
Ich habe eine App mit Delphi 10.4 geschrieben, die sowohl Berechtigungen für „Dateien und Medien“ und „Kamera“ benötigt. Eigentlich bräuchte ich mich dabei um die Berechtigungsverwaltung gar nicht kümmern, da in Delphi bereits entsprechende Berechtigungen voreingestellt sind. In meiner unendlichen Naivität bin ich davon ausgegangen, dass meine App diese Berechtigungen in Android setzt. Pustekuchen. Wenn meine App das erstemal startet, hängt sie, weil die Berechtigungen in Android NICHT !! gesetzt wurden. Erst, wenn ich manuell in den Android-Einstellungen diese Berechtigungen setze, läuft es. Nun frage ich mich, wofür die Berechtigungsverwaltung in Delphi da ist, wenn ich dann doch alles manuell durchführen muss. Viele Apps aus dem Google-Store machen das aber – da muss ich nichts manuell setzen. Was können die, was ich nicht kann? Habe ich irgendwas vergessen/übersehen?

[jaenicke]

Rufst du die Berechtigungen denn beim Start ab? In aktuellen Android Versionen muss man diese explizit anfragen, wenn sie benötigt werden. Früher wurden diese bei der Installation abgefragt, was heute nicht mehr passiert.

Ich habe das per IFDEF meistens so gemacht, dass es unter Windows und Android identisch funktioniert, nur dass unter Android die Berechtigungen abgefragt werden. Sprich als Pseudocode:

Delphi-Quellcode:

procedure TXXX.FormActivate...
begin
  if FAlreadyActivated then
    Exit;
  FAlreadyActivated := True;
{$IFDEF ANDROID}
  PermissionsService.RequestPermissions...
end;

procedure TXXX.RequestPermissionsResult...
begin
  StatusLabel.Text := 'Überprüfe Rechte...';
  if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
  begin
    StatusLabel.Text := 'Lade App...';
{$ENDIF}
    TThread.CreateAnonymousThread...
end;

Auf die Weise werden unter Android die Rechte angefordert und die weitere Initialisierung im Callback RequestPermissionsResult ausgeführt, während unter Windows die Initialisierung direkt im FormActivate passiert.

[dynamo]

Nee, Berechtigungen habe ich beim Start nicht abgerufen. Dieses Thema ist neu für mich, aber ich habe weiter recherchiert und gesehen, dass es unter Examples/Object Pascal/Mobile Snippets/Location entsprechenden Beispielcode gibt. Damit werde ich mich erstmal auseinander setzen. Falls ich dann noch Fragen habe, melde ich mich wieder. Vorerst vielen Dank für den Tipp.

[TurboMagic]

Die Idee dahinter ist, dass nicht jede App alle ihre Berechtigungen in jedem Fall immer braucht,
sondern manche nur, wenn bestimmte Aktionen ausgeführt werden sollen. Damit kann ein Anwender
der diese Funktionen nicht benutzt diese Rechte auch problemlos in den Einstellungen entfernen.

[dynamo]

Ich habe jetzt etwas mit den Permissions herumexperimentiert und herausgefunden, dass die Auflistung der Berechtigungen in Delphi (Haken gesetzt) in „AndroidManifest.xml“ erscheint.
Z.B.: <uses-permission android:name="android.permission.CAMERA" />

Android 13 bietet folgende Berechtigungsliste an:

-Anrufliste
-Benachrichtigungen
-Dateien und Medien
-Fotos und Videos
-Geräte in der Nähe
-Kalender
-Kamera
-Kontakte
-Körperliche Aktivität
-Körpersensoren
-Mikrofon
-Musik und Audio
-SMS
-Standort
-Telefon
-Zusätzliche Berechtigungen

Was mir jetzt fehlt, ist der Ausdruck für „Dateien und Medien“. Alo sowas ähnliches wie

<uses-permission android:name="android.permission.DATEIN_UND_MEDIEN " />

Eine Entsprechung finde ich in der Delphi-Liste leider nicht.
Hier ein Auszug dessen, was ich schon alles probiert habe:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
const
  camera = 'android.permission.CAMERA';
  internet = 'android.permission.INTERNET';
  read_Calender = 'android.permission.READ_CALENDAR';
  Write_Calender = 'android.permission.WRITE_CALENDAR';
  READ_EXTERNAL_STORAGE = 'android.permission.READ_EXTERNAL_STORAGE';
  WRITE_EXTERNAL_STORAGE = 'android.permission.WRITE_EXTERNAL_STORAGE';
//  ... ich habe noch eine Menge mehr versucht, leider war nichts dabei
begin
{$IFDEF ANDROID}

    PermissionsService.RequestPermissions([camera,
                                           internet,
                                           read_Calender,
                                           Write_Calender,
                                           READ_EXTERNAL_STORAGE,
                                           WRITE_EXTERNAL_STORAGE],

      procedure(const APermissions: TArray<string>;
      const AGrantResults: TArray<TPermissionStatus>)
      begin  // vlt. etwas umständlich, ist ja auch nur 'n Versuch
        if (Length(AGrantResults) = 6)
          and (AGrantResults[0] = TPermissionStatus.Granted)
          and (AGrantResults[1] = TPermissionStatus.Granted)
          and (AGrantResults[2] = TPermissionStatus.Granted)
          and (AGrantResults[3] = TPermissionStatus.Granted)
          and (AGrantResults[4] = TPermissionStatus.Granted)
          and (AGrantResults[5] = TPermissionStatus.Granted)
           then
  //      StatusLabel.Text := 'Lade App...';
        else
        begin
  //      StatusLabel.Text := 'keine Berechtigung...';

          TDialogService.ShowMessage('permission not granted');
        end;
      end);

{$ENDIF}
end;

Ich bin nach wie vor auf der Suche nach dem Permission-Begriff für "Dateien und Medien". Hat jemand eine Idee?

[jaenicke]

Das war früher READ_EXTERNAL_STORAGE bzw. WRITE_EXTERNAL_STORAGE. Ab SDK-Version 30 heißt das MANAGE_EXTERNAL_STORAGE. Hintergrund ist, dass man den Typ des Speicherzugriffs (Medien, ...) angeben soll statt einfach den Storage-Zugriff allgemein anzufordern. Wenn du das also nicht brauchst, wäre es besser, dir nur den Zugriff auf die einzelnen Dateikategorien zu holen.

Die komplette Liste findest du in der Dokumentation:
Manifest.permission

Und hier eine Dokumentation zum Speicherzugriff:
https://developer.android.com/training/data-storage

Zitat von dynamo:

Delphi-Quellcode:

// vlt. etwas umständlich, ist ja auch nur 'n Versuch
        if (Length(AGrantResults) = 6)
          and (AGrantResults[0] = TPermissionStatus.Granted)
          and (AGrantResults[1] = TPermissionStatus.Granted)
          and (AGrantResults[2] = TPermissionStatus.Granted)
          and (AGrantResults[3] = TPermissionStatus.Granted)
          and (AGrantResults[4] = TPermissionStatus.Granted)
          and (AGrantResults[5] = TPermissionStatus.Granted)

Du kannst dir ja auch eine Funktion schreiben, die in einer Schleife durch geht und prüft.

Wenn du das IFDEF um alles setzt, solltest du aufpassen, dass du keinen doppelten Quelltext schreibst, falls du auch für Windows kompilierst. Wenn das eine reine Android App ist oder die App beim Laden nichts weiter macht, ist das natürlich egal.