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