FTP upload - Socket Error 10049

Hvordan ser din kode ud? Har du indtastet noget direkte i Object Inspector til IdFTP komponenten? Hvilken version af Indy bruger du?

Bruger du PASV ?

Koden er således:

IdFTP1.Host := FtpHost;
IdFTP1.Username := FtpUser;
IdFTP1.Password := FtpPword;
lbBesked.caption := 'Connection ok';
try
    IdFTP1.Connect();
except
    lbBesked.caption := 'Connection ej ok - program stopper';
    exit;
end;
FTPDelphiProgram.refresh;

IdFTP1.ChangeDirUp;
IdFTP1.ChangeDir(FtpStinavn);

lbBesked.caption := 'FPT upload startet';
try
  IdFTP1.Put(FilFra, FtpDatabasenavn);  <- og det er her programmet fejler
except
    lbBesked.caption := 'Upload ej ok - program stoppet';
end;
FTDelphiProgram.refresh;

lbBesked.caption := 'Connection afsluttet korrekt';
try
  IdFTP1.disconnect;
except
    lbBesked.caption := 'Connection stoppede ikke korrekt';
exit;

Du kunne jo prøve med:

IdFTP1.Passive := true;

Jeg syntes at den fejlkode du beskriver burde kommer under IdFTP1.Connect(); ?

Det har vist sig at være et problem med serverens firewall - dvs. at når filen skulle sendes. Connection gik ok.
Jeg takker jer for jeres svar.
Pjotre

.