IdTCPServer => IdTCPClient?

[Klaus01]

Hallo,

erstelle Dir einen TCPClientThread,
dieser Connected sich zum Server.

In der Execute Methode schaut der Thread
nach ob in seinem Inputbuffer etwas enthalten ist.
Wenn ja wird der Inhalt verarbeitet.

Delphi-Quellcode:

if tcpClient.Connected then
  if not tcpClient.IOHandler.InputBufferIsEmpty then
    begin
      s:= tcpClient.IOHandler.InputBufferAsString;
      alarmFilter.getData(s);
      reports.getData(s);
      s:='';
      noDataCounter := 0;
      addNewLine := true;
    end
  else
    begin
      sleep(100);
      inc(noDataCounter);
      if (noDataCounter > 5)  and addNewLine then
        begin
          addNewLine := false;
          alarmFilter.getData(#13#10);
        end;
     end;

Grüße
Klaus