Der relevante Teil ist übrigens der hier:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := edtServer.Text;
IdFtp1.Username := edtUser.Text;
IdFTP1.Password := edtPW.Text;
IdFTP1.Connect;
IdFTP1.ChangeDir(edtRemDir.Text);
IdFTP1.Put(edtFile.Text, ExtractFilename(edtFile.Text));
IdFTP1.Disconnect;
end;
Aber ein bisschen
selber machen wird hier schon von dir verlangt werden
