发送一个记录数据包

1.服务器端:
type
TMSG001 = Packed Record //定义记录类型

userId: array[0..19] of char;

password: array[0..17] of char;

end;

PSendMSG=^TMSG001;//定义指针类型

var

pSend: PSendMSG;//定义指针

pSend^.userId := '001';//生成要发送数据

pSend^.password := '001';

_SocketS.Socket.Connections[i].SendBuf(pSend^, sizeof(TMSG001)); //发送数据

2.客户接收

type
TMSG001 = Packed Record //定义记录类型

userId: array[0..19] of char;

password: array[0..17] of char;

end;

PRecvMSG= ^TMSG001;

var

pRecv: PRecvMSG;

Socket.ReceiveBuf(pRecv^, SizeOf(TMSG001));

xxx := pRecv.userid;

xxx := pRecv.password;

如果一个结构体对应数据集中的一条记录，那么定义一个这样的结构体数组即可以对应一个数据集。