Einzelnen Beitrag anzeigen

RWunderlich

Registriert seit: 13. Nov 2018
Ort: Pförring
5 Beiträge
 
Delphi 11 Alexandria
 
#1

10.3 Android Fehler Tlistbox

  Alt 5. Jan 2020, 19:54
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;
  Mit Zitat antworten Zitat