TClientSocket - SendText (AnsiString), ReceiveText (String)

[samso]

Also, ich würde denken, da hat CG einen kleinen Bug eingebaut. Bei Delphi 2010 ist TCustomWinSocket.ReceiveText ein AnsiString. Vielleicht geht ja folgendes:

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); 
  var D: AnsiString; 
begin 
  SetLength(D, Socket.ReceiveLength);
  SetLength(D, Socket.ReceiveBuf(Pointer(D)^, Length(D)));
  showmessage(D); // gibt hoffentlich keinen Mist aus 
end;