Hi,
guck' mal hier:
http://www.delphipraxis.net/153961-i...satzinfos.html Post #9
Das reduziert sich dann (wenn man meinen Code abzieht) auf:
Delphi-Quellcode:
procedure xyz.CreateDirectoryListing;
var
i: Integer;
begin
FFtp.SendCmd('
TYPE A');
FFtp.List (
nil, '
-a', True);
for i := 0
to Pred (FFtp.ListResult.Count)
do
CreateItemFromFileInfo (
FTP.DirectoryListing[i]);
end;
procedure xyz.CreateItemFromFileInfo(
const FileInfo: TIdFTPListItem);
var
ListItem: TListItem;
begin
// Mach was mit FileInfo, z.B. mittels Listitem in eine Listview tun
end;
TListItem ist nur relevant, wenn du das Gedöns in eine Listview schmeißen möchtest.
Die Shell* Komponenten und
FTP kannste knicken. Die operieren nur auf dem lokalen Dateisystem
Das Rootverzeichnis des
FTP Servers ist normalerweise "/" - und da solltest du auch nach der Anmeldung direkt drinnen sein.