Problem mit ConnectTimeout und Indy 10 und TIdTCPClient

[Alex_ITA01]

Hallo zusammen,
ich habe folgendes Problem.
Wenn mein TIdTCPClient den Server nicht findet, weil er einfach zur Zeit nicht verfügbar ist, dann sollte er doch nach 500ms aufhören zu suchen (ConnectTimeout).
Ich habe diesen Code im Create eines Threades aber egal was ich bei ConnectTimeout schreibe, er bleibt darin hängen und macht gar nichts mehr.
Wisst ihr woran das liegt bzw. wie ich ein ConnectTimeout noch setzen kann?

Delphi-Quellcode:

    TCPClient      := TIdTCPClient.Create(Nil);
    TCPClient.Host := '172.20.22.123';
    TCPClient.Port := 2000;
    TCPClient.ConnectTimeout := 500;
    TCPClient.Connect;

MFG Alex

[SirThornberry]

Hast du mit Haltepunkten/durchsteppen festgestellt das er darin hängen bleibt?

[Alex_ITA01]

ja habe ich mit haltepunkt probiert. er bleibt genau in dem Connect stehen und geht nicht weiter...
Mir ist ja auch bewusst, dass er nicht weiter geht, weil der server eben nicht da ist.

mfg alex

[SirThornberry]

am besten du stellst in den Projektoptionen mal die Debug-DCU's an und schaust wo genau er hängt und welche Variable/Property da einfluss hat.

[Alex_ITA01]

Ich habe es jetzt so gemacht:

Delphi-Quellcode:

    try
      TCPClient      := TIdTCPClient.Create(Nil);
      TCPClient.Host := '172.20.22.123';
      TCPClient.Port := 2000;
      TCPClient.ConnectTimeout := 3000;
      TCPClient.Connect;

      TCPClient.IOHandler.MaxLineLength := 786500;
    except
      //Mache irgendwas
    end;

Er geht mir jetzt wenigstens in Except und die Anwendung läuft weiter hoch.
Das scheint ja so erstmal zu laufen.
MFg Alex