Registriert seit: 20. Mär 2009
95 Beiträge
Delphi XE8 Professional
|
AW: XE5 / Android div Fragen
19. Nov 2013, 08:36
6 Stunden Google, Code durchprobiert...klappt nicht.
Wenn ich das Handy im Windows-Explorer öffne hab ich ja unter "DCIM" direkt meine Bilder.
Dieser simple Schnipsel:
[CODE]
procedure TForm1.Button6Click(Sender: TObject);
var
FileList: TStringDynArray;
DocDir: string;
s: string;
begin
Memo1.Lines.Clear;
DocDir := System.IoUtils.TPath.GetDocumentsPath;
FileList := TDirectory.GetFiles(DocDir);
for s in FileList do Memo1.Lines.Add(s);
Memo1.Lines.Add('--');
DocDir := System.IoUtils.TPath.GetSharedDocumentsPath;
FileList := TDirectory.GetFiles(DocDir);
for s in FileList do Memo1.Lines.Add(s);
end;
[/CODDE]
sollte doch eigentlich die Bilderliste anzeigen ??
Gruss
Guido
|