Hallo zusammen.
Ich möchte aus meinem Programm eine Datei auf einen
FTP-Server hochladen. Die Verbindung wird auch schön aufgebaut und der Datentransfer gestartet. Aber der Upload ist mit gut 800 Bytes(!) / Sekunde schneckenlangsam.
Der
FTP ist auf einem Root-Server mit guter Anbindung, mein eigener Rechner hängt an einer 64 MBit-Leitung. Nehme ich andere Programme (z.B. Total Commander) läuft es in Sekundenbruchteilen. In Delphi bekomme ich sowohl mit
Indy (ReadTimeout) als auch mit
IP*Works (301 Interrupted) keine Datei auf den Server.
Hat jemand eine Idee, woran sowas liegen kann?
Aktueller Code (mit
Ip*Works):
Delphi-Quellcode:
if FTP.Connected
then FTP.Logoff;
FTP.RemoteHost := qryRepositoriesFTPURL.AsString;
FTP.RemotePort := qryRepositoriesFTPPort.AsInteger;
FTP.User := Cred.Username;
FTP.Password := Cred.Password;
FTP.Logon;
FTP.LocalFile := FPackage.FileName;
FTP.RemoteFile := ExtractFileName(FPackage.FileName);
FTP.Upload;
FTP.Logoff;