Android App Ordner auswählen?

[gee21]

Hallo alle zusammen.

Ich würde gerne in meiner Android App einen Ordner auf dem Handy auswählen.
Der Pfad soll dann in ein Edit und anschliessend möchte ich alle enthaltenen Dateien in einer Listbox anzeigen lassen.

Den Ordner ausgewählt, habe ich bis jetzt immer so gemacht: (Dateien Auflisten lassen habe ich leider noch gar keinen Plan :(

Delphi-Quellcode:

procedure TForm2.SpeedButton1Click(Sender: TObject);
var
dir: string;
begin
 if SelectDirectory('Select Directory', '', Dir) then
    edit1.text:=dir;

end;

Aber so passiert da leider auf meinem Android Handy (Samsung S3) gar nichts.

Weiss jemand wie man das hinkriegt?

[Union]

Schau Dir mal die unit IOUtils an.

[gee21]

Zitat:

Zitat von Union (Beitrag 1259315)

Schau Dir mal die unit IOUtils an.

Danke für die schnelle Antwort.
Meinst du diese: Androidapi.IOUtils?

Irgendwie sehe in dieser Unit nur wie man einen Pfad ausliest. Wie man einen auswählt sehe ich nicht (Bin auch Anfänger :( )

[matthiaskary]

Hallo,

Unit System.IoUtils, dann mal unter TPath.GetDocumentsPath usw.
nachschauen um den richtigen Pfad zu ermitteln, oder mal in der
Delphi-Hilfe nachschauen, ist dort sehr gut beschrieben.

Gruß

[RWarnecke]

Warum willst Du denn einen SelectDirectory-Dialog auf einem Android Gerät ? Auf mobilen Geräten gibt es feste Pfade wo etwas drin abgespeichert wird. Diese sind im docwiki.embarcadero.com hervorragend erklärt.

[mjustin]

Es scheint in der Android API keinen File / Directory Dialog zu geben, wenn ich http://stackoverflow.com/questions/3...e-file-dialog# richtig verstehe.

Bieten die einschlägigen Third-Party Komponentensammlung für FMX / Android vielleicht etwas an? Falls nein, Marktlücke entdeckt :)

[gee21]

Also mein Ziel wäre es, das man zb eine Checkbox markieren könnte und dann werden alle Dateien von zb dem Ordner "Bilder" in einer Listbox oder so angezeigt. Danach soll IdFTP die Dateien hochladen.
Bis jetzt sehe ich aber noch nicht so richtig durch wie ich das auf Android anstellen kann.

[gee21]

Also ich habe es nun endlich geschaft. Falls noch ein Noob wie ich das Problem hat :-D

So habe ich es gelöst:

Delphi-Quellcode:

procedure ListFileDir(Path: string; FileList: TStrings);
var
   SR: TSearchRec;
begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         FileList.Add(SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
end;

Delphi-Quellcode:

   ListFileDir('/sdcard/DCIM/camera/', ListBox1.Items);

Peace ;)