Hallo, vllt kann mir jmd von euch helfen
ich muss ständig den RxBuffer von TCPClient prüfen ob Daten
angekommen sind, aber es haut nicht hin was ich im Internet
gefunden habe.

Das habe ich getestet, aber das haut auch nicht hin

markieren

Code:

      i:= 0;
      Repeat
        i:= Form1.TCPClient.IOHandler.InputBuffer.Size;
      Until i > 0;

mfg Schuby

Hmm..

Bei INDY gibt es doch IdTCPClient.IOHandler.InputBufferIsEmpty

Ich hab nen Testtool gefunden, dort frage ich per Timer nach JSON Daten ab:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ReceivedText: string;
begin
  Timer1.Enabled := False;
  try
    with FIdTCPClient do
    begin
      if not Connected then Exit;
      // read any data in
      if IOHandler.InputBufferIsEmpty then
      begin
        IOHandler.CheckForDataOnSource(0);
        IOHandler.CheckForDisconnect;
        if IOHandler.InputBufferIsEmpty then Exit;
      end;

      // Wartet auf JSON...
      IOHandler.WaitFor('{', False);
      ReceivedText := IOHandler.WaitFor('}', True, True, IndyTextEncoding_UTF8);
      Memo1.Lines.Add(ReceivedText);

      // if not already, send streaming command
      if not FSentStreamCommand then
      begin
        IOHandler.WriteLn('?WATCH={"enable":true,"json":true}');
        FSentStreamCommand := True;
      end;
    end;
  finally
    if FIdTCPClient.Connected then
      Timer1.Enabled := True;
  end;
end;