Thema: Delphi Stream per TCP senden

Einzelnen Beitrag anzeigen

Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#5

Re: Stream per TCP senden

  Alt 23. Apr 2010, 18:13
Zitat von blackfin:
aber hast du es mal damit versucht, die Streamgrösse mit anzugeben?
Recht hat er.
Die -1 im ReadStream sagt ja: Lies als erstes die Streamgröße aus der Verbindung.
Delphi-Quellcode:
if (AByteCount = -1) and (not AReadUntilDisconnect) then begin
    // Read size from connection
    if LargeStream then begin
      AByteCount := ReadInt64;
    end else begin
    AByteCount := ReadLongInt;
    end;
  end;
Also muss man die Größe mitschicken. Und das geht ganz elegant beim Write per AWriteByteCount = true
Das sollte schon des Rätsels Lösung sein.
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat