Indy TCP Client - Verständnisproblem

[daywalker9]

So zB, den InputBuffer auf die größe Prüfen, wenn ja, ist was da.

Delphi-Quellcode:

procedure TCRMTCPClient.DoTimer(Sender: TObject);
var cmd : string;
begin try
        if FTimer.tag = 1 then exit;
        FTimer.tag := 1;

        if not Connected then
          begin
            Connect;

            if not Connected then
              begin
                FTimer.tag := 0;
                exit;
              end;
          end;

        if IOHandler.InputBuffer.Size = 0 then
          begin
            // ReadFromStack(true, 1, false);
            IOHandler.CheckForDataOnSource(1);
            if IOHandler.InputBuffer.Size = 0 then
              begin
                FTimer.tag := 0;
                exit;
              end;
          end;
        DoOnExecute;

        FTimer.tag := 0;
      except
        on e:exception do
          begin
            FTimer.tag := 0;
          end;
      end;
end;