FTP Log

[cruising6n]

Ich komme trotzdem nicht so richtig klar....

Wie muss der Quelltext dann aussehen?

Bei mir sieht es im Moment so aus:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Host:= '127.0.0.1';
  IdFTP1.Username:= 'Daniel';
  IdFTP1.Password:= '1234';
  IdFTP1.Connect;
  IdFTP1.List(ListBox1.Items);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  IdFTP1.Disconnect;
end;


procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
  IdFTP1Status(IdFTP1, AStatus,  );
end;

end.