请问在网络编程中如何才能收到一个结构

Question

我的程序如下 
client端
type csdata=record
     message_hand:string[20];
     message_file_lag:integer;
end;
var
  Form1: TForm1;
  data:csdata;
implementation
procedure TForm1.Button1Click(Sender: TObject);begin
clientsocket1.Active:=true;
data.message_hand:='cs';
//data.message_file_lag:=2;
clientsocket1.active:=true;
clientSocket1.Socket.SendBuf(data, sizeof(data));edit1.SelectAll;
end;end.server端
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
p:pchar;
length:longint;
count,i:integer;
begin
socket.receivebuf(p^,socket.receivelength);
edit1.Text:=p;end;end.
但我的server并无返回请问如何改正?

Answer 1

type
     pcsdata=^csdata;
     csdata=record
     message_hand:string[20];
     message_file_lag:integer;
end;var
   mydata: pcsdata;sendbuf(mydata,sizeof(csdata));在server端定义同样的结构
接收方法一样