Komischer Fehler mit TClientSocket

[toms]

Hallo,

Ist schon etwas seltsam

Ich habe gedacht man könnte es mal via Stream probieren - und tatsächlich:

Es funktioniert

Delphi-Quellcode:

procedure TForm1.sockRead(Sender: TObject; Socket: TCustomWinSocket);
var
  Stream: TStringStream;
  Buffer : Pointer;
  Len : Integer;
begin
  Len := Socket.ReceiveLength;
  Stream := TStringStream.Create();
  try
    Stream.Seek(0,soFromEnd);
    Buffer := AllocMem(Len);
      try
        Socket.ReceiveBuf(Buffer^, Len);
        Stream.Write(Buffer^, Len);
        ShowMessage(Stream.DataString)
      finally
        FreeMem(Buffer);
      end;
  finally
    Stream.Free;
  end;
end;