Frage zu FTP !

[raven_22]

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;