🚀 go-pugleaf

Remy Lebeau (TeamB) schrieb:
> "Mark Jacobs" <http://www.jacobsm.com/mjmsg?Borland%20Newsgroup> wrote in
> message news:4451e679@newsgroups.borland.com...
> 
>> I am afraid that is bad programming on the part of the Indy team.
> 
> What would you suggest as an alternative?

The following is what I changed to meet my requirements. However there 
may be others saying it is bad programming also.

procedure TIdIOHandlerSocket.ConnectClient(const AHost: string;
   const APort: Integer; const ABoundIP: string; const ABoundPort,
   ABoundPortMin, ABoundPortMax: Integer; const ATimeout: Integer = 
IdTimeoutDefault);

   procedure ConnectTimeout(ATimeout: Integer);
   const
     LSleepTimes: array[0..8] of Integer = (1, 2, 5, 10, 20, 20, 50, 
100, 125);
   var
     LSleepTime: Integer;
     LInfinite: Boolean;
     LSleepIndex: Integer;
   begin
     LInfinite := ATimeout = IdTimeoutInfinite;
     LSleepIndex := 0;
     with TIdConnectThread.Create(True) do try
       FBinding := Binding;
       Resume;
       // Sleep
       if TIdAntiFreezeBase.ShouldUse then begin
         LSleepTime := Min(GAntiFreeze.IdleTimeOut, 125);
       end else begin
         LSleepTime := LSleepTimes[LSleepIndex];
       end;

       if LInfinite then begin
         ATimeout := LSleepTime + 1;
       end;

       while ATimeout > LSleepTime do begin
         IdGlobal.Sleep(LSleepTime);
         ATimeout := ATimeout - LSleepTime;

         if not TIdAntiFreezeBase.ShouldUse then begin
           if (LSleepIndex < 8) then begin
             LSleepIndex := LSleepIndex + 1;
             LSleepTime := LSleepTimes[LSleepIndex];
           end;
         end;

         if LInfinite then begin
           ATimeout := LSleepTime + 1;
         end;

         TIdAntiFreezeBase.DoProcess;
         if Terminated then begin
           ATimeout := 0;
           Break;
         end;
       end;
       if ATimeout > 0 then
         IdGlobal.Sleep(ATimeout);
       //
       if Terminated then begin
         if Length(FExceptionMessage) > 0 then begin
           if FLastSocketError <> 0 then begin
             raise EIdSocketError.CreateError(FLastSocketError, 
FExceptionMessage);
           end else begin
             raise EIdConnectException.Create(FExceptionMessage);
           end;
         end;
       end else begin
         Terminate;
         Close;
         WaitFor;
         raise EIdConnectTimeout.Create(RSConnectTimeout);
       end;
     finally Free; end;
   end;