sgip

一个Delphi6.0的SGIP例子 包含了一个服务端和一个客户端

      src="SGIP的delphi源码.files/msn.gif" 
      border=0></A>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<A 
      href="http://skybird.9s9s.com/bbs/post.asp?method=edit&amp;reply_id=3675&amp;auth=576&amp;forum_title=&amp;topic_title=SGIP%B5%C4delphi%D4%B4%C2%EB&amp;forum_id=7&amp;topic_id=1129&amp;page=1"><IMG 
      alt=编辑修改 src="SGIP的delphi源码.files/edit.gif" border=0></A> <A 
      href="http://skybird.9s9s.com/bbs/delreply.asp?reply_id=3675&amp;topic_title=SGIP%B5%C4delphi%D4%B4%C2%EB&amp;forum_id=7&amp;forum_title=☆协议理解☆"><IMG 
      alt=删除回复 src="SGIP的delphi源码.files/del.gif" border=0></A> <A 
      href="http://skybird.9s9s.com/bbs/post.asp?forum_id=7&amp;reply_id=3675&amp;method=reply&amp;type=quotereply&amp;forum_title=%A1%EE%D0%AD%D2%E9%C0%ED%BD%E2%A1%EE&amp;topic_id=1129&amp;topic_title=SGIP%B5%C4delphi%D4%B4%C2%EB&amp;M="><IMG 
      alt=引用回复 src="SGIP的delphi源码.files/quote.gif" border=0></A> 
      <HR class=sft noShade SIZE=1>
      <BR><BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('**********************SGIP_DELIVER数据接收错误*******************');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit;<BR>&nbsp;&nbsp;&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;&nbsp;&nbsp;RecvSize2:=0;RecvSize1:=0;<BR>&nbsp;&nbsp;&nbsp;&nbsp;cHead.CommandId:=htonl(SGIP_DELIVER_RESP);<BR>&nbsp;&nbsp;&nbsp;&nbsp;cHead.MessageLength:=htonl(sizeof(cHead)+sizeof(cDeliver_Resp));<BR>&nbsp;&nbsp;&nbsp;&nbsp;cDeliver_Resp.Result:=0;<BR>&nbsp;&nbsp;&nbsp;&nbsp;RecvSize1:=Socket.SendBuf(cHead,SizeOf(cHead));<BR>&nbsp;&nbsp;&nbsp;&nbsp;RecvSize2:=Socket.SendBuf(cDeliver_Resp,SizeOf(cDeliver_Resp));<BR>&nbsp;&nbsp;&nbsp;&nbsp;if 
      (RecvSize1+RecvSize2)&lt;&gt;ntohl(cHead.MessageLength) 
      then<BR>&nbsp;&nbsp;&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('**********************响应SGIP_DELIVER请求错误***********************');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit;<BR>&nbsp;&nbsp;&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;end<BR>&nbsp;&nbsp;else<BR>&nbsp;&nbsp;if 
      commandI=SGIP_UNBIND 
      then<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;cHead.CommandId:=htonl(SGIP_UNBIND_RESP);<BR>&nbsp;&nbsp;&nbsp;&nbsp;cHead.MessageLength:=htonl(sizeof(cHead));<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('响应SGIP_UNBIND***************************');<BR>&nbsp;&nbsp;&nbsp;&nbsp;RecvSize2:=Socket.SendBuf(cHead,sizeOf(cHead));<BR>&nbsp;&nbsp;&nbsp;&nbsp;if 
      RecvSize2&lt;&gt;ntohl(cHead.MessageLength) 
      then<BR>&nbsp;&nbsp;&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('**********************SGIP_UNBIND发送错误*****************');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit;<BR>&nbsp;&nbsp;&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;end<BR>&nbsp;&nbsp;else<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;end;<BR>end;<BR>end.<SPAN 
      class=sft><BR><BR>____________________<BR><BR>
      <P align=right>第4篇</P></SPAN></TD></TR>
  <TR>
    <TD vAlign=top bgColor=#ffffff>
      <TABLE class=sft style="FILTER: glow(color=#FFFFFF,strength=1)" 
      cellSpacing=0 cellPadding=3 width="100%" border=0>
        <TBODY>
        <TR>
          <TD>dulcet99</TD></TR></TBODY></TABLE>头衔:侠客<BR>来自:山东<BR>发帖:53<BR>注册:2002年10月<BR><IMG 
      src="SGIP的delphi源码.files/24.gif"></IMG></TD>
    <TD vAlign=top bgColor=#ffffff>发表于: 2002-11-1 20:40:27&nbsp;&nbsp;<A 
      href="javascript:openWindow('viewuser.asp?name=dulcet99')"><IMG alt=查看作者档案 
      src="SGIP的delphi源码.files/profile.gif" border=0></A>&nbsp;&nbsp;<A 
      href="mailto:[e-mail]"><IMG alt=给作者发电子邮件 
      src="SGIP的delphi源码.files/email.gif" border=0></A>&nbsp;&nbsp;<A 
      href="javascript:openWindow('%20')"><IMG alt=访问作者主页 
      src="SGIP的delphi源码.files/homepage.gif" border=0></A>&nbsp;&nbsp;<A 
      href="javascript:openWindow('viewip.asp?reply_id=3676')"><IMG alt=查看IP地址 
      src="SGIP的delphi源码.files/ip.gif" border=0></A>&nbsp;&nbsp;<A 
      href="javascript:openWindow('http://search.tencent.com/cgi-bin/friend/user_show_info?ln=35079175')"><IMG 
      alt=QQ号码:35079175 src="SGIP的delphi源码.files/qq.gif" 
      border=0></A>&nbsp;&nbsp;<IMG alt="MSN号码: " 
      src="SGIP的delphi源码.files/msn.gif" 
      border=0></A>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<A 
      href="http://skybird.9s9s.com/bbs/post.asp?method=edit&amp;reply_id=3676&amp;auth=576&amp;forum_title=&amp;topic_title=SGIP%B5%C4delphi%D4%B4%C2%EB&amp;forum_id=7&amp;topic_id=1129&amp;page=1"><IMG 
      alt=编辑修改 src="SGIP的delphi源码.files/edit.gif" border=0></A> <A 
      href="http://skybird.9s9s.com/bbs/delreply.asp?reply_id=3676&amp;topic_title=SGIP%B5%C4delphi%D4%B4%C2%EB&amp;forum_id=7&amp;forum_title=☆协议理解☆"><IMG 
      alt=删除回复 src="SGIP的delphi源码.files/del.gif" border=0></A> <A 
      href="http://skybird.9s9s.com/bbs/post.asp?forum_id=7&amp;reply_id=3676&amp;method=reply&amp;type=quotereply&amp;forum_title=%A1%EE%D0%AD%D2%E9%C0%ED%BD%E2%A1%EE&amp;topic_id=1129&amp;topic_title=SGIP%B5%C4delphi%D4%B4%C2%EB&amp;M="><IMG 
      alt=引用回复 src="SGIP的delphi源码.files/quote.gif" border=0></A> 
      <HR class=sft noShade SIZE=1>
      <BR><BR>//..............................................................<BR>//协议<BR>unit 
      xy;
      <P></P>
      <P>interface<BR>uses<BR>&nbsp;&nbsp;SysUtils;<BR>const&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      <BR>&nbsp;&nbsp;SGIP_BIND&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      =$1;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//对客户端验证<BR>&nbsp;&nbsp;SGIP_BIND_RESP 
      =$80000001;&nbsp;&nbsp;&nbsp;&nbsp; //服务端返回验证请求<BR>&nbsp;&nbsp;SGIP_UNBIND 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$2;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//断开连接<BR>&nbsp;&nbsp;SGIP_UNBIND_RESP&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$80000002;&nbsp;&nbsp;&nbsp;&nbsp; 
      //返回断开连接状态<BR>&nbsp;&nbsp;SGIP_SUBMIT 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$3;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//向SMG提交MT短消息<BR>&nbsp;&nbsp;SGIP_SUBMIT_RESP&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$80000003;&nbsp;&nbsp;&nbsp;&nbsp; 
      //返回SP提交MT短消息状态<BR>&nbsp;&nbsp;SGIP_DELIVER 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$4;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//SMG向SP发送一条MO短消息<BR>&nbsp;&nbsp;SGIP_DELIVER_RESP&nbsp;&nbsp;&nbsp;&nbsp; 
      =$80000004;&nbsp;&nbsp;&nbsp;&nbsp; //返回SMG状态<BR>&nbsp;&nbsp;SGIP_REPORT 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$5;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//向SP发送一条先前的submit命令的当前状态<BR>&nbsp;&nbsp;SGIP_REPORT_RESP 
      =$80000005;&nbsp;&nbsp;&nbsp;&nbsp; 
      //响应SMG状态<BR>&nbsp;&nbsp;//以下协议对SP无用<BR>&nbsp;&nbsp;SGIP_ADDSP 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$6;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_ADDSP_RESP 
      =$80000006;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_MODIFYSP 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$7;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_MODIFYSP_RESP 
      =$80000007;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_DELETESP 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$8;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_DELETESP_RESP 
      =$80000008;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_QUERYROUTE 
      =$9;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_QUERYROUTE_RESP 
      =$80000009;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_ADDTELESEG 
      =$a;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_ADDTELESEG_RESP 
      =$8000000a;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_MODIFYTELESEG 
      =$b;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_MODIFYTELESEG_RESP 
      =$8000000b;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_DELETETELESEG 
      =$c;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_DELETETELESEG_RESP 
      =$8000000c;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_ADDSMG 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$d;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_ADDSMG_RESP 
      =$8000000d;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_MODIFYSMG 
      =$e;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_MODIFYSMG_RESP 
      =$0000000e;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_DELETESMG 
      =$f;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;SGIP_DELETESMG_RESP 
      =$8000000f;&nbsp;&nbsp;&nbsp;&nbsp; //<BR>&nbsp;&nbsp;SGIP_CHECKUSER 
      =$10;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      //<BR>&nbsp;&nbsp;SGIP_CHECKUSER_RESP =$80000010;&nbsp;&nbsp;&nbsp;&nbsp; 
      //<BR>&nbsp;&nbsp;SGIP_USERRPT 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$11;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      //<BR>&nbsp;&nbsp;SGIP_USERRPT_RESP =$80000011;&nbsp;&nbsp;&nbsp;&nbsp; 
      //<BR>&nbsp;&nbsp;SGIP_TRACE 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=$1000;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      //<BR>&nbsp;&nbsp;SGIP_TRACE_RESP =$80001000;&nbsp;&nbsp;&nbsp;&nbsp; 
      //<BR>type<BR>&nbsp;&nbsp;TEMPTY=Record 
      //空纪录<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;//消息头<BR>&nbsp;&nbsp;SGIPHead=Record<BR>&nbsp;&nbsp;&nbsp;&nbsp;MessageLength&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :longword;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//消息的总长度(字节)<BR>&nbsp;&nbsp;&nbsp;&nbsp;CommandId&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :longword;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//命令ID<BR>&nbsp;&nbsp;&nbsp;&nbsp;SNumber1,SNumber2,SNumber3:longword;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//序列号<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;//消息体<BR>&nbsp;&nbsp;XBind=Record&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//<BR>&nbsp;&nbsp;&nbsp;&nbsp;LonginType&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:byte;<BR>&nbsp;&nbsp;&nbsp;&nbsp;LonginPass&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array[0..15] 
      of 
      char;<BR>&nbsp;&nbsp;&nbsp;&nbsp;LonginName&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array[0..15] 
      of 
      char;<BR>&nbsp;&nbsp;&nbsp;&nbsp;Reserve&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :array[0..7] of 
      char;<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;Bind_Resp=Record<BR>&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:byte;<BR>&nbsp;&nbsp;&nbsp;&nbsp;Reserve&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :array[0..7] of 
      char;<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;//<BR>&nbsp;&nbsp;Unbind=TEMPTY;<BR>&nbsp;&nbsp;Unbind_Resp=TEMPTY;<BR>&nbsp;&nbsp;//<BR>&nbsp;&nbsp;TelCount=record&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      //手机号码<BR>&nbsp;&nbsp;&nbsp;&nbsp;TelN&nbsp;&nbsp;:array[0..20] of 
      char;<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;XSubmit=Record<BR>&nbsp;&nbsp;&nbsp;&nbsp;SPNumber&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array[0..20] 
      of 
      char;<BR>&nbsp;&nbsp;&nbsp;&nbsp;ChargeNumber&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array[0..20] 
      of 
      char;<BR>&nbsp;&nbsp;&nbsp;&nbsp;UserCount&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :byte;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      //1-100<BR>&nbsp;&nbsp;&nbsp;&nbsp;UserNumber&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array[0..20] 
      of 
      char;//TelCount;&nbsp;&nbsp;//长度为UserCount<BR>&nbsp;&nbsp;&nbsp;&nbsp;CorpID&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array[0..4] 
      of 
      char;<BR>&nbsp;&nbsp;&nbsp;&nbsp;ServiceType&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :array[0..9] of 
      char;<BR>&nbsp;&nbsp;&nbsp;&nbsp;FeeType&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :byte;<BR>&nbsp;&nbsp;&nbsp;&nbsp;FeeValue&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array[0..5] 
      of 
      char;<BR>&nbsp;&nbsp;&nbsp;&nbsp;GivenValue&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array[0..5] 
      of 
      char;<BR>&nbsp;&nbsp;&nbsp;&nbsp;AgentFlag&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :byte;<BR>&nbsp;&nbsp;&nbsp;&nbsp;MOrelatetoMTFlag&nbsp;&nbsp;&nbsp;&nbsp;:byte;<BR>&nbsp;&nbsp;&nbsp;&nbsp;Priority&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:byte;<BR>&nbsp;&nbsp;&nbsp;&nbsp;ExpireTime&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array[0..15] 
      of