在delphi中利用tcpsocket和tcpclient组件怎样传递记录型的数据呀？(50分)

多谢。请给源码举例。

type TNode=^node;
node=record
flag:integer;
data:ShortString;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Fnode:=Allocmem(sizeof(Node));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
client.Socket.SendBuf(Fnode^,Sizeof(node)) ;
end;

recv:
i:=socket.ReceiveLength ;
socket.ReceiveBuf(Anode^,i);//Anode同样要allocmem，free等等

最好不要传结构，考虑到C/S的硬件和软件环境可能不一样
PC上的整数32位，不是PC的就难说了
所以最好再把协议细分一下

多人接受答案了。