Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Cross-Platform-Entwicklung (https://www.delphipraxis.net/91-cross-platform-entwicklung/)
-   -   Delphi 10.3 Android Fehler Tlistbox (https://www.delphipraxis.net/203029-10-3-android-fehler-tlistbox.html)

RWunderlich 5. Jan 2020 18:54

10.3 Android Fehler Tlistbox
 
Hallo Leute,

ich versuche meine erste Android-App zu schreiben. Es soll ein ASM-Editor werden, ich versuche mit TPath.GetSharedDownloadsPath den Download-Inhalt der App in eine TListBox zu schreiben, damit ich eine der Dateien, die ich vorher von meinem PC auf mein Handy kopiert habe, öffnen kann. Ich habe vorher die Function GetSharedDownloadsPath bereits in der FormCreate mit einer Variablen verbunden.
Der Editor startet auf dem Mobiltelefon einwandfrei, wenn ich jetzt aber auf 'Öffnen' tippe, tauchen in der ListBox keine Dateien auf. FindFirst meldet Fehler 13. Diese Fehlernummer ist 'Permission dinied' zugeordnet. Nun habe 2 Fragen: Was löst dieses Problem aus und was kann ich gegen diesen Fehler unternehmen? Ich wäre für Eure Hilfe im Voraus dankbar.

Viele Grüße
Robert Wunderlich

Delphi-Quellcode:
procedure TTabbedwithNavigationForm.OpenBtnClick(Sender: TObject);
{ Datei -> Öffnen }
var
  oSearch: TSearchRec;
  OpenStr: String;
  oFind: Integer;
begin
// FileListBox löschen
  if OpenFileListBox.items.Text <> '' then
    OpenFileListBox.Clear;
// Nur .ASM-Dateien darstellen
  lblOpenPath.Text:= lblOpenPath.Text;
  try
    OpenStr:= lblOpenPath.Text + '/*.*';
    oFind:= FindFirst(OpenStr, faAnyFile, oSearch); // Fehlermeldung Zugang verweigert
    if oFind = 0 then
      repeat
        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;
  finally
    FindClose(oSearch);
  end;
  TabControl2.ActiveTab:= TabItem7;
end;

greenmile 5. Jan 2020 20:37

AW: 10.3 Android Fehler Tlistbox
 
Hatte ich auch, du musst erst die Berechtigung beim Android System anfragen. Delphi findet zwar die Datei (ist vorhanden), aber weder öffnen noch schreiben sind erlaubt. Da ich nur Delphi Berlin einsetze weiß ich nicht, wie man die Berechtigung anfordert.

philipp.hofmann 5. Jan 2020 20:55

AW: 10.3 Android Fehler Tlistbox
 
Mindestens die folgenden Artikel sind interessant:
http://docwiki.embarcadero.com/RADSt...Berechtigungen
und folgender Beitrag hier aus dem Forum:
https://www.delphipraxis.net/198285-...terner-sd.html

Da findet sich ziemlich viel zu dem Android-Berechtigungskonzept.

RWunderlich 26. Jan 2020 15:26

AW: 10.3 Android Fehler Tlistbox
 
Halllo Leute,

ich hab's geschafft :P. Ich habe eine Beispielanwendung von Embarcadero genommen.
Vielen Dank für Eure Hilfe, vor allem an Philipp Hofmann. Du hast mich auf die richtige Spur gebracht.

Viele Grüße
Robert Wunderlich


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:21 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz