Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   TIdTCPClient empfang von Daten unbekannter Länge (https://www.delphipraxis.net/211877-tidtcpclient-empfang-von-daten-unbekannter-laenge.html)

AndreasSt 15. Nov 2022 15:49

TIdTCPClient empfang von Daten unbekannter Länge
 
Hallo,
Ich habe einen Thread mit einem TIdTCPClient um Daten zu empfangen.
Die Daten sind ein spezielles Protokoll.
Realisiert mit delphi 11.2 fmx projekt windows64.
Im Execute des Thread wird zyklisch geprüft ob myclient.IOHandler.InputBuffer.Size >0 ist
um dann diese Daten mit myclient.IOHandler.InputBufferToStream(ms); in einen TMemorystream zu schreiben.

Das sieht verkürzt so aus:
Code:
procedure TComm.Execute;
var
 InBuffer,InQue:TBytes;
 myclient:TIdTCPClient;
begin
  myclient:=TIdTCPClient.Create(nil);
  myclient.host:=//IPAdresse
  myclient.port:=//Port
  myclient.connect;
Repeat
  SetLength(InBuffer, 0);
  if myclient.IOHandler.InputBuffer.Size >0 then begin
    ms := TMemoryStream.Create;
    try
      myclient.IOHandler.InputBufferToStream(ms);
      if ms.Size > 0 then Begin
        SetLength(InBuffer, ms.size
        ms.Position := 0;
        ms.ReadBuffer(InBuffer[0], ms.Size);
        ms.free;
      end;
    except
      ms.free;
    end;
  end;
  if length (InBuffer) > 0 then Begin
    //add inBuffer zu InQ
  end else sleep(1);//damit die CPU-Last nicht extrem ansteigt
until //prüfe ob InQ etwas sinnvolles komplettes hat
Die Daten werden im Test nur sehr langsam empfangen. Entfernt man den sleep(1) geht die CPU hoch aber die Daten werden deutlich schneller empfangen.

Ich verstehe nicht warum der InputBuffer nur so langsam gefüllt wird. Es sind etliche Durchläufe im Repeat nötig bis Daten tatsächlich da sind.
Selbst mit dem sleep gibt es viele Durchläufe im Repeat bei denen noch keine Daten vorliegen.

Spricht generell etwas gegen das Vorgehen mit InputBuffer.Size >0 und InputBufferToStream
Wie ist sichergestellt dass der tcpclient im Hintergrund weiter auf seinem socket Daten empfängt während der thread im execute läuft?

Ich denke ich habe da einfach ein Verständnisproblem.

Danke für jegliche Hilfe.

jaenicke 15. Nov 2022 15:55

AW: TIdTCPClient empfang von Daten unbekannter Länge
 
Du solltest das Sleep nur ausführen, wenn zu dem Zeitpunkt nicht schon die nächsten Daten da sind.

Michael II 16. Nov 2022 07:38

AW: TIdTCPClient empfang von Daten unbekannter Länge
 
Wie du richtig vermutest, ist es nicht clever in einem Thread dauernd nachzufragen, ob Daten da sind; egal ob mit oder ohne sleep.

Ich nutze ICSOverbyte - dort würdest auf OnDataAvailable reagieren.

Auch bei Indy kannst du dich benachrichtigen lassen, wenn Daten ankommen. Dies wurde u.a. hier und hier in DP besprochen.

Schau dir mal dieses Beispiel an.

Der schöne Günther 16. Nov 2022 08:45

AW: TIdTCPClient empfang von Daten unbekannter Länge
 
Bist du dir sicher dass das "spezielle Protokoll" nicht vielleicht doch einen Header hat aus dem sich ableiten lässt, wie viele Daten man zu erwarten hat?

jaenicke 16. Nov 2022 12:06

AW: TIdTCPClient empfang von Daten unbekannter Länge
 
Zitat:

Zitat von Michael II (Beitrag 1514828)
Schau dir mal dieses Beispiel an.

Das Beispiel klappt gut, wenn ein Enter am Ende eines Datenpakets gesendet wird. Das war bei mir leider nicht immer der Fall. Deshalb musste ich dann trotzdem schauen, ob etwas im Buffer ist.

Ich habe dafür in dem Thread mit CheckForDataOnSource nachgeschaut, ob Daten da sind. Diese Funktion hat den Vorteil, dass sie ein Timeout hat, so dass man sich das Sleep sparen kann.

Michael II 16. Nov 2022 12:38

AW: TIdTCPClient empfang von Daten unbekannter Länge
 
Oh danke jaenicke für die Info. War mir nicht bewusst - hätte eher erwartet, dass sowas (Enter terminiert oder egal was) über eine Eigenschaft steuert und man immer das gleiche Ereignis nutzen kann.

Ich bleib bei ICS und poste nix mehr zu Indy ;-).


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz