Fehler bei FileStream über Sockets.

[Muetze1]

Moin!

Die ReceiveBuffer kann kleinere Werte zurückgeben vom empfangen als dein Buffer oder ReceiveLength gross ist.

Delphi-Quellcode:

Var
  iLen: Integer;
  Bfr: Pointer;
Begin
  GetMem(Bfr, Socket.ReceiveLength);
  try
    While ( Socket.ReceiveLength > 0 ) Do
    Begin
      iLen := Socket.ReceiveBuf(Bfr^, Socket.ReceiveLength);
      RStream.Write(Bfr^, iLen);
    End;
  finally
    FreeMem(Bfr);
  End;
End;

Klappt es so?

MfG
Muetze1