получение пакета

[Alexandr555]

var
  pacet: TSendStruct;
  ms: TMemoryStream;
  kom: string;
  buf: PChar;
begin
 Socket.ReceiveBuf(buf^, Socket.ReceiveLength);
kom:=Copy(buf, 1, Socket.ReceiveLength);
 ms.Read(kom[1], Length(kom));
 ms.Write(pacet, Length(kom));

вроде все компилируется, но не работает, похоже данные каверкаются, в чем собственно ошибка?

[veniside]

ну а кто buf будет инициализировать? куда buf^ указывает? вникуда

 kom: AnsiString;
begin
  SetLength(kom, Socket.ReceiveLength);
  Socket.ReceiveBuf(@kom[1], Socket.ReceiveLength);

buf не нужен.

[FanRa3]

а ReceiveString чем не устраивает?