Probelm mit der Berechtigung

[RWunderlich]

Hallo Leute

Ich habe wieder mal ein Problem. Ich verfüge über Delphi 10.4 und habe Schwierigkeiten mit der Berechtigung. Auf meinem Mobiltelefon
wird nach dem erfolgreichen Starten der App die Berechtigung "Dateien" nicht angezeigt, obwohl ich die READ_EXTERNAL_STORAGE als Variable im Programm eingebaut habe. Ich habe bereits einige Beispielprogramme ausgeführt.
Die funktionieren einwandfrei. Ausserdem habe ich die App so verändert, wie in einigen Beispiel-Apps dargestellt. Auch das klappt nicht.

Delphi-Quellcode:

procedure TTabbedwithNavigationForm.ASMOpenPermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin
  PermissionsService.RequestPermissions([FPermissionReadExternalStorage],
    procedure(const APermission: TArray<string>;
      const AGrantResults: TArray<TPermissionStatus>)
      var
        oSearch: TSearchRec;
        OpenStr: String;
        oFind: integer;
    begin
      if (Length(AGrantResults) = 1) and
        (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
      //RiseInt(True, True, True, False);
        BtnSave.Enabled := True;
        BtnErase.Enabled:= True;
        SaveBtn.Enabled := True;
        BtnOpen.Enabled := False;
        // FileListBox löschen
        if OpenFileListBox.Items.Text <> '' then
          OpenFileListBox.Clear;
        OpenStr := lblOpenPath.Text + '/*.*';
        oFind := FindFirst(OpenStr, faAnyFile, oSearch);
        if oFind = 0 then
          repeat
            // Nur .ASM-Dateien darstellen
            if (System.Pos('.asm', oSearch.Name) <> 0) or
              (System.Pos('.ASM', oSearch.Name) <> 0) then
            begin
              OpenStr := oSearch.Name;
              OpenFileListBox.Items.Add(OpenStr);
            end;
          until FindNext(oSearch) <> 0;
        FindClose(oSearch);
        TabControl2.ActiveTab := TabItem7;
      end;
    end);
end;

Dann habe ich noch den Aufruf zum Öffnen für Euch.

Delphi-Quellcode:

procedure TTabbedwithNavigationForm.OpenBtnClick(Sender: TObject);
{ Datei -> Öffnen }
begin
  PermissionsService.RequestPermissions([FPermissionReadExternalStorage], ASMOpenPermissionRequestResult, DisplayRationale);
end;

Ich hoffe auf Eure Hilfe und bedanke mich im Voraus.

RWunderlich

[himitsu]

Zitat:

obwohl ich die READ_EXTERNAL_STORAGE als Variable im Programm eingebaut habe

Was, wie, wo?



frank.asmussen.txt

Oder was ist mit irgendwas.ASm ?

Warum prüfst du auf "irgendwo im String", anstatt auf "am Ende des Strings"?
Warum nur 2 der 9 möglichen case-sensitiven Schreibweisen?

EndsStr
EndsText
ExtractFileExt/TPath.GetExtension mit AnsiSameText .... bzw. SameFileName (denn das berücksichtigs CaseSensitiv oder nicht, jenachdem ob z.B. Windows oder Linux/Andoid/iOS)
und da es zwei/mehrere Endungen sind ein MatchStr bzw. MatchText

[TurboMagic]

Welche Android Version? (Stichwort: scoped storage ab Android 10 )
und welcher Pfad?

[RWunderlich]

Servus Delphianer

Ich habe einen Assembler-Editor fürs Handy auf Delphi 10.3.3 geschrieben.
Mein Handy hat Android 10 und die Android-Version von Delphi 10.4 dürfte bekannt sein. Trotzdem die Android-Version von Delphi 10.4 Android SDK 25.2.5.
Die ASM-Dateien befinden sich im Download-Ordner und wird mit TPath.GetSharedDownloadsPath aufgrufen.

RWunderlich

[TurboMagic]

Der schöne Downloads Ordner ist nicht mehr ohne weiteres erlaubt ab Android 10. Lies dir doch Mal den anderen aktuellen Thread hier über den contents resolver durch! Sollte dir auch helfen.

[RWunderlich]

Servus Leute

Ich habe es jetzt geschafft. Der Editor geht wieder so, wie es sein soll.
Vielen Dank an TurboMagic.

RWunderlich