Hallo DBs,
Ich hab ein problem, nämlich ich will in einer Listview die Dateien die auf dem server liegen anzeigen lassen (Also dateiname ...).
Ich hab ungefähr 2 Stunden gebraucht bis ich das richtige gefunden hab aber irgendwie funktioniert das nicht so richtig.
Also hier der link zum
Post.
so und der code:
Delphi-Quellcode:
procedure ...;
var
l: TIdFtpListItems;
i: integer;
sl: TStringList;
begin
sl := TStringList.Create;
idFTP1.Connect(true, -1);
idFTP1.List(sl, '*', true);
l := idFTP1.DirectoryListing;
for i := l.Count - 1 downto 0 do
if l[i].ItemType = ditDirectory
then sl[i] := l[i].FileName
else sl.Delete(i);
idFTP1.Disconnect;
ListBox1.Items.Assign(sl);
sl.Free;
end;
Das problem ist das der Dateien hochladen kann (eine andere procedure mit der gleichen Tidftp) aber das anzeigen der dateien mit der Procedure geht nicht.
Wo liegt mein Fehler?