procedure TForm1.cmdGoClick(Sender: TObject);
begin
// Sicher gehen, das neu connected wird
IdFTP1.Disconnect;
// Verbindungsdaten setzen
IdFTP1.Host := 'www.telwell.de';
IdFTP1.Passive := false; // = true für passiven
FTP-Transfer
IdFTP1.Username := 'testuser';
IdFTP1.Password := 'testpwd';
// Alle Verbindungsdaten vorhanden jetzt versuchen zu verbinden
try
IdFTP1.Connect(true,5000); // Es wird 5 Sek. auf die
FTP-Verbindung gewartet
if IdFTP1.Connected then begin
// sind wir schon im richtigen Verzeichis des Servers ? Hängt von den Userrechten auf dem SErver ab
// wenn nötig Verzeichnis wechseln
IdFTP1.ChangeDir('test');
// Wie soll die Datei übertragen werden ? im
AScii Format oder Binear
// IdFTP1.TransferType := ftASCII; bei Textdateien verwenden
IdFTP1.TransferType := ftBinary;
// Datei jetzt hochladen
IdFtp1.Put('C:\Autoexec.bat','AufDemServer.bat');
// Eine Datei downloaden mit get !!
end;
except
raise; //
Exception warum die Verbing fehlschlug ausgeben
end;
end;