发送一个记录数据包

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;

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