Ich kopiere eine Datei mit diesem Code:

markieren

Code:

FTP := TIdFTP.Create;
FTP.Host := 'ftp.xxx.at';
FTP.Username := 'xxx';
FTP.Password := 'xxx';
FTP.Connect;
FTP.ChangeDir('/webspace/xxx/');
FTP.Put(sFileName);
FTP.Disconnect;
FTP.Free;

Das klappt gut, aber nicht hinter meiner Firewall im Office. Dort bekomme ich

markieren

Code:

PORT/EPRT (Active Mode/Extended Active Mode) is not supported. Use PASV/EPSV instead of this

Was muss ich am TidFTP setzen, damit das klappt bzw was muss ich abfragen, damit ich erkenne, was ich setzen muss?

Danke!

einfach auf passiv setzen

zusammenfalten · markieren

Delphi-Quellcode:

FTP := TIdFTP.Create;
try
  FTP.Host := 'ftp.xxx.at';
  FTP.Username := 'xxx';
  FTP.Password := 'xxx';
  FTP.Passive := True;
  FTP.Connect;
  FTP.ChangeDir('/webspace/xxx/');
  FTP.Put(sFileName);
  FTP.Disconnect;
finally
  FTP.Free;
end

Ok, danke dafür.

Übrigens: Der Kapersky wars, der hat den FTP Zugriff geblockt.