FTP Upload --> programm hängt sich auf

[SimStar001]

hallo ich habe folgendes problem und weiß net warum:

hier mein code:

Delphi-Quellcode:

form1.IdFTP1.Host := '******';
  form1.IdFTP1.Username := '*****';
  form1.IdFTP1.Password := '*****';
  form1.IdFTP1.Port := 21;
  try
  form1.idftp1.Connect(true,10000);
  form1.IdFTP1.Put(extractfilepath(paramstr(0)) + '\Data\EDDF_clients.txt','EDDF_clients.txt',false);
  form1.IdFTP1.Disconnect;
    except
    whazzup.Free;
    clients.free;
    exit;
    end;

auf meinem laptop funktioniert der code ohne weiteres, aber auf meinem anderen rechner nicht, da muss ich die firewall auf "alles zulassen" stellen damit das funktioniert.!?


wer weiß wieso der hängenbleibt und nicht einfach nach 10000 ms abbricht?!


dankö

[Borschti]

Hallo,

habe ein ähnliches Problem, bei mir wird dann zwar eine Fehlermeldung ausgegeben aber das soll nicht sein, kann man vielleicht Programmieren das eine Automatische ausnahme für mein Programm eingerichtet wird?

Zu deiner Frage, du hast die 10000 ms in dem Try-Teil stehn, daher beendet er eswohl nicht nach dieser Zeit.
Aber wieso ersich aufhäng ist für mich zZ. auch ein Rätsel

mfg
Alex