Nicht damit ihr denkt das ich üntätig bin
, ich hab schonmal das an Source:
Delphi-Quellcode:
try
Dirs := TStringList.Create;
with fMain
do
begin
FTP.Host := Host;
FTP.Username := Account;
FTP.Password := Passwort;
FTP.Port := Port;
FTP.Connect();
FTP.ChangeDir('
/');
FTP.List(Dirs);
stvFTPServer.Items.Clear;
for I := 0
to Dirs.Count - 1
do
begin
stvFTPServer.Items.Add(Node, Dirs.Strings[I]);
end;
end;
finally
Dirs.Free;
end;
Aber leider werden keine TreeNodes ins ShellTreeView reingestopft.
stvFTPServer ist ein ShellTreeView!