Ich habe es mal kommentiert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
// Zugangspaaremter setzen
IdFTP1.Host := edtServer.Text;
// Server
IdFtp1.Username := edtUser.Text;
// Benutzername
IdFTP1.Password := edtPW.Text;
// Passwort
// verbinden
IdFTP1.Connect;
// in das Verzeichnis wechseln, z.B.: /html/meineDaten/
IdFTP1.ChangeDir(edtRemDir.Text);
// Datei hochladen (Quelldatei, Zieldatei)
IdFTP1.Put(edtFile.Text, ExtractFilename(edtFile.Text));
// trennen
IdFTP1.Disconnect;
end;
Wo ist jetzt das Problem?