TIDTCPIPClient.Connect ohne exception abbrechen

**QuickAndDirty**

So baue ich moment eine TCP Verbindung auf .

Delphi-Quellcode:

			procedure TConnectCLientThread.Execute;

begin

  var attempts := 0;

  While (Not Terminated) and (Not Client.Connected) and (Attempts < MAX_CONNECTIONATTEMPTS) do

  Begin

    try

      inc(attempts);

      Client.Connect;

    Except

      On E:Exception do

      Begin

        TThreadedLog.LogD('TConnectCLientThread Connection attempt  number '+attempts.ToString+' : ' + E.Message);

      End;

    end;

  End;

end;

Ich würde das Verbinden gerne abbrechen können, daher diese Konstruktion.

Es wäre mir lieber wenn ich irgendwie and ohne Exception den ConnectionTimeout mitbekäme oder wenn ich z.b. einen infinite ConnectionTimeout setzten könnte und irgendwie den Connectionversuch ohne Exception abbrechen könnte.

Seht ihr da eine Chance?

TIDTCPIPClient.Connect ohne exception abbrechen

TIDTCPIPClient.Connect ohne exception abbrechen

Forumregeln