IdTCPServer和IdTCPClient协议定义问题

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 接收后判断其内容标识作相应的处理就可以了~~~