socket 怎样发送和接收 record类型的数据？

Question

socket　怎样发送和接收 record类型的数据？
如：
type
  client_room = record
    CBegin: boolean;
    Csit: Longint;
    Cuser: string[100];
  end;
type   TDataPackage=packed   record
                    Head: DWORD;
                    a: array of client_room;
  end;
.
.
.
procedure TForm1.button1click(Sender: TObject);//对记录体赋值
var
DataPackage:TDataPackage;
begin
setlength(a,100);
DataPackage.Head:=..;
DataPackage.a...
end;//然后怎样发送DataPackage记录体和接收？
socket.sendbuf();
socket.recvbuf();

Answer 1

socket.sendtext(s:string);发送
socket.receivetext 接收。返回的是string类型

Answer 2

type
  PClient_room = ^client_room;
  client_room = record
    ...
  end;var
  lpClientRoom: PClient_room;
begin
  New(lpClientRoom);
  lpClientRoom^.CBegin := ...
  ...
  socket.sendbuf(lpClient_room);
end;