type
TStructHeaderRec = packed Record
Magic: Integer; //包的标记
CmdID: Integer; //命令编号
LPARAM: Integer; //扩展参数
MPARAM: Integer; //扩展参数
DataLen: Integer;//长度
Err: Integer; //错误编号
end;
定义一个客户记录
type
TCustomerRec = packed Record
CustomerID: String[250];
CustomerName: String[250];
end;
定义一个商品记录
type
TProductRec = packed Record
ProductID: String[250];
ProductName: String[250];
end;
type TMyRec = packed record
handle : TStructHeaderRec;
case integer of
0 : (CustomerRec : TCustomerRec);
1 : (ProductRec : TProductRec);
.......
end;
每次发送发送与接收 TMyRec 接收后判断其内容标识作相应的处理就可以了~~~