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;