Hallo !
Benutzt du die
Indy-Komponenten ?
Wenn ja, habe ich hier ein Beispiel für dich.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption:='Verbinden';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host:='home.arcor.de';
IdFTP1.Username:='******';
IdFTP1.Password:='*****';
If IdFTP1.Connected = false then
begin
IdFTP1.Connect(true,IdFTP1.ReadTimeout);
// ^ Autologin ^ Timeout
Button1.Caption:='Trennen';
IdFTP1.List(listbox1.Items,'',false); // False (Keine Details) True (Mit Details)
// ^ Ordnerinhalt ind Listbox laden
end
else
begin
IdFTP1.Disconnect;
form1.Button1.Caption:='Verbinden';
end;
end;