![]() |
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:
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.
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 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. |
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.
|
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. ![]() ![]() Schau dir mal ![]() |
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?
|
AW: TIdTCPClient empfang von Daten unbekannter Länge
Zitat:
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. |
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 10:37 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz