sgip

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

      '+sBind.LonginPass);<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('------------------Bind请求已发送----------------------');<BR>&nbsp;&nbsp;&nbsp;&nbsp;if 
      stream1.WaitForData(5000) 
      then<BR>&nbsp;&nbsp;&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fillchar(cHead,sizeof(cHead),0);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fillchar(cbind_resp,sizeof(cBind_Resp),0);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stream1.ReadBuffer(cHead,sizeof(cHead));<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stream1.ReadBuffer(cBind_resp,sizeof(cBind_resp));<BR>&nbsp;&nbsp;&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('cHead.MessageLength&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+inttostr(ntohl(cHead.MessageLength)));<BR>&nbsp;&nbsp;&nbsp;&nbsp;bc:=ntohl(cHead.CommandId);<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('cHead.CommandId&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+inttostr(bc));<BR>&nbsp;&nbsp;&nbsp;&nbsp;bc:=ntohl(cHead.SNumber1);<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('cHead.SNumber1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      '+inttostr(bc));<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('cHead.SNumber2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      '+inttostr(ntohl(cHead.SNumber2)));<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('cHead.SNumber3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      '+inttostr(ntohl(cHead.SNumber3)));<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('cBind.LonginType&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      '+inttostr(cBind_resp.Result));<BR>&nbsp;&nbsp;&nbsp;&nbsp;stream1.Free;<BR>end;
      <P></P>
      <P>procedure TForm1.Button4Click(Sender: 
      TObject);<BR>//type<BR>&nbsp;&nbsp;{abc=packed 
      record<BR>&nbsp;&nbsp;&nbsp;&nbsp;head:SGIPHead;<BR>&nbsp;&nbsp;&nbsp;&nbsp;submit:xSubmit;<BR>&nbsp;&nbsp;end;}<BR>var<BR>&nbsp;&nbsp;FV_Date1_S,FV_Date2_S:string;<BR>&nbsp;&nbsp;i,SendSize:integer;<BR>&nbsp;&nbsp;//xxx:abc;<BR>&nbsp;&nbsp;stream2:twinsocketstream;<BR>&nbsp;&nbsp;abc,bc:longword;<BR>&nbsp;&nbsp;line1,line2:longword;<BR>begin<BR>&nbsp;&nbsp;stream2:=twinsocketstream.Create(clientsocket1.Socket,5000);<BR>&nbsp;&nbsp;SendSize:=0;<BR>&nbsp;&nbsp;memo1.Lines.Add('-------------------------submit--------------------------');<BR>&nbsp;&nbsp;if 
      not ClientSocket1.Active 
      then<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('-------------------客户端没有打开，submit失败-------------');<BR>&nbsp;&nbsp;&nbsp;&nbsp;exit;<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;DateTimeToString(FV_Date1_S,'mmddhhnnss',now);<BR>&nbsp;&nbsp;DateTimeToString(FV_Date2_S,'zzz',now);<BR>&nbsp;&nbsp;FillChar(sSubmit,sizeof(sSubmit),0);<BR>&nbsp;&nbsp;FillChar(sHead,sizeof(sHead),0);<BR>&nbsp;&nbsp;with 
      ssubmit 
      do<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;strpcopy(SPNumber,'4488');//;<BR>&nbsp;&nbsp;&nbsp;&nbsp;ChargeNumber&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:='8613188890924';<BR>&nbsp;&nbsp;&nbsp;&nbsp;UserCount&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :=1;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      //1-100<BR>&nbsp;&nbsp;&nbsp;&nbsp;{for i:=1 to UserCount 
      do<BR>&nbsp;&nbsp;&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//strpcopy(UserNumber[i-1].TelN,'8613065073355');//+T_Tel);//&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:array 
      of 
      TelCount;&nbsp;&nbsp;//长度为UserCount<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;UserNumber[i-1].TelN:='8613011725853';<BR>&nbsp;&nbsp;&nbsp;&nbsp;end;}<BR>&nbsp;&nbsp;&nbsp;&nbsp;UserNumber:='8613188890924';<BR>&nbsp;&nbsp;&nbsp;&nbsp;CorpID:='41027';//CorpID:='4488';//strpcopy(CorpID,FV_corpID);<BR>&nbsp;&nbsp;&nbsp;&nbsp;ServiceType:='4488';//FV_SPNumber);//'4488';<BR>&nbsp;&nbsp;&nbsp;&nbsp;FeeType&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :=1;<BR>&nbsp;&nbsp;&nbsp;&nbsp;FeeValue&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:='0';<BR>&nbsp;&nbsp;&nbsp;&nbsp;GivenValue&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:='0';<BR>&nbsp;&nbsp;&nbsp;&nbsp;AgentFlag&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :=0;<BR>&nbsp;&nbsp;&nbsp;&nbsp;MOrelatetoMTFlag&nbsp;&nbsp;&nbsp;&nbsp;:=2;<BR>&nbsp;&nbsp;&nbsp;&nbsp;Priority&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:=0;<BR>&nbsp;&nbsp;&nbsp;&nbsp;ExpireTime&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:='';<BR>&nbsp;&nbsp;&nbsp;&nbsp;ScheduleTime&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:='';<BR>&nbsp;&nbsp;&nbsp;&nbsp;ReportFlag&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:=1;<BR>&nbsp;&nbsp;&nbsp;&nbsp;TP_pid&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:=0;<BR>&nbsp;&nbsp;&nbsp;&nbsp;tp_udhi&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :=0;<BR>&nbsp;&nbsp;&nbsp;&nbsp;MessageCoding&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :=15;<BR>&nbsp;&nbsp;&nbsp;&nbsp;MessageType&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :=0;<BR>&nbsp;&nbsp;&nbsp;&nbsp;MessageLength&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :=htonl(161);<BR>&nbsp;&nbsp;&nbsp;&nbsp;strpcopy(MessageContent,T_msg);&nbsp;&nbsp;//长度为&nbsp;&nbsp;MessageLength;<BR>&nbsp;&nbsp;&nbsp;&nbsp;//Reserve&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      :='';<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;{line1:=sizeof(sHead);<BR>&nbsp;&nbsp;line2:=sizeof(sSubmit);}<BR>&nbsp;&nbsp;with 
      sHead 
      do<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;abc:=htonl(FV_SNumber);<BR>&nbsp;&nbsp;&nbsp;&nbsp;MessageLength:=htonl(sizeof(sHead)+sizeof(sSubmit)-3);<BR>&nbsp;&nbsp;&nbsp;&nbsp;CommandId:=htonl(SGIP_Submit);<BR>&nbsp;&nbsp;&nbsp;&nbsp;SNumber1:=abc;<BR>&nbsp;&nbsp;&nbsp;&nbsp;SNumber2:=htonl(StrToInt(FV_Date1_S));<BR>&nbsp;&nbsp;&nbsp;&nbsp;SNumber3:=htonl(StrToInt(FV_Date2_S));<BR>&nbsp;&nbsp;end;<SPAN 
      class=sft><BR><BR>____________________<BR><BR>
      <P align=right>第2篇</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:39:53&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=3674')"><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=3674&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=3674&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=3674&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>&nbsp;&nbsp;line1:=stream2.Write(shead,sizeof(shead));<BR>&nbsp;&nbsp;line2:=stream2.Write(sSubmit,sizeof(sSubmit)-3);<BR>&nbsp;&nbsp;if 
      stream2.WaitForData(5000) 
      then<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;fillchar(cHead,sizeof(cHead),0);<BR>&nbsp;&nbsp;&nbsp;&nbsp;fillchar(cSubmit_Resp,sizeof(cSubmit_Resp),0);<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('read 
      submit Head 
      ..............');<BR>&nbsp;&nbsp;&nbsp;&nbsp;try<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stream2.ReadBuffer(cHead,sizeof(cHead));<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stream2.ReadBuffer(cSubmit_Resp,sizeof(cSubmit_Resp));<BR>&nbsp;&nbsp;&nbsp;&nbsp;except<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;on 
      e:exception 
      do<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add(e.Message);<BR>&nbsp;&nbsp;&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('read 
      submit csubmit_resp 
      ..............');<BR>&nbsp;&nbsp;&nbsp;&nbsp;//stream2.ReadBuffer(cBind_Resp,sizeof(cBind_resp));<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;stream2.Free;<BR>end;
      <P></P>
      <P>procedure TForm1.ClientSocket1Read(Sender: 
      TObject;<BR>&nbsp;&nbsp;Socket: 
      TCustomWinSocket);<BR>var<BR>&nbsp;&nbsp;commandI,PackSize:Longword;<BR>&nbsp;&nbsp;Recv1I,Recv2I:integer;<BR>begin<BR>&nbsp;&nbsp;FillChar(sHead,sizeof(sHead),0);<BR>&nbsp;&nbsp;FillChar(sBind,sizeof(sBind),0);<BR>&nbsp;&nbsp;Recv1I:=socket.ReceiveBuf(sHead,sizeof(sHead));<BR>&nbsp;&nbsp;commandI:=ntohl(sHead.CommandId);<BR>&nbsp;&nbsp;PackSize:=ntohl(sHead.MessageLength);<BR>&nbsp;&nbsp;if 
      commandI=SGIP_UNBIND_RESP 
      then<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('------------------接收到SGIP_UNBIND_RESP请求------------------');<BR>&nbsp;&nbsp;&nbsp;&nbsp;exit;<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;Recv2I:=socket.ReceiveBuf(sBind,sizeof(sBind));<BR>&nbsp;&nbsp;if 
      commandI=SGIP_BIND_RESP 
      then<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('---------------------SGIP_BIND_RESP------------------')<BR>&nbsp;&nbsp;else<BR>&nbsp;&nbsp;if 
      commandI=SGIP_SUBMIT_RESP 
      then<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('---------------------SGIP_SUBMIT_RESP----------------')<BR>&nbsp;&nbsp;else<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('---------------------'+inttostr(commandI)+'------------------');<BR>&nbsp;&nbsp;memo1.Lines.Add('MessageLength&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+inttostr(ntohl(sHead.MessageLength)));<BR>&nbsp;&nbsp;memo1.Lines.Add('CommandId&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+inttostr(commandI));<BR>&nbsp;&nbsp;memo1.Lines.Add('SNumber&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+inttostr(ntohl(sHead.SNumber1))+' 
      '+<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;inttostr(ntohl(sHead.SNumber2))+' 
      '+inttostr(ntohl(sHead.SNumber3)));<BR>&nbsp;&nbsp;memo1.Lines.Add('Result&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      '+inttostr(sBind_Resp.Result));<BR>&nbsp;&nbsp;memo1.Lines.add('------------------end 
      SGIP_UNBIND_RESP-------------------');<BR>end;</P>
      <P>procedure TForm1.Button7Click(Sender: 
      TObject);<BR>var<BR>&nbsp;&nbsp;FV_Date1_S,FV_Date2_S:string;<BR>&nbsp;&nbsp;stream3:TWinSocketStream;<BR>begin<BR>&nbsp;&nbsp;Stream3:=TWinSocketStream.Create(clientSocket1.Socket,5000);<BR>&nbsp;&nbsp;memo1.Lines.Add('-------------------向服务端发送UnBIND请求--------------------');<BR>&nbsp;&nbsp;if 
      not ClientSocket1.Active 
      then<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('客户端没有打开');<BR>&nbsp;&nbsp;&nbsp;&nbsp;stream3.free;<BR>&nbsp;&nbsp;&nbsp;&nbsp;exit;<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;DateTimeToString(FV_Date1_S,'mmddhhnnss',now);<BR>&nbsp;&nbsp;DateTimeToString(FV_Date2_S,'zzz',now);<BR>&nbsp;&nbsp;FillChar(sHead,sizeof(sHead),0);<BR>&nbsp;&nbsp;sHead.MessageLength:=htonl(sizeof(sHead));<BR>&nbsp;&nbsp;sHead.CommandId:=htonl(SGIP_UNBIND);<BR>&nbsp;&nbsp;sHead.SNumber1:=htonl(FV_SNumber);<BR>&nbsp;&nbsp;sHead.SNumber2:=htonl(StrToInt(FV_Date1_S));<BR>&nbsp;&nbsp;sHead.SNumber3:=htonl(StrToInt(FV_Date2_S));<BR>&nbsp;&nbsp;stream3.Write(sHead,20);<BR>&nbsp;&nbsp;FillChar(sHead,20,0);<BR>&nbsp;&nbsp;if 
      stream3.WaitForData(5000) 
      then<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;stream3.ReadBuffer(sHead,20);<BR>&nbsp;&nbsp;end;<BR>&nbsp;&nbsp;stream3.Free;<BR>end;</P>
      <P>procedure TForm1.ServerSocket1ClientRead(Sender: 
      TObject;<BR>&nbsp;&nbsp;Socket: 
      TCustomWinSocket);<BR>&nbsp;&nbsp;var<BR>&nbsp;&nbsp;&nbsp;&nbsp;RecvSize1,RecvSize2,DeSize:integer;<BR>&nbsp;&nbsp;&nbsp;&nbsp;commandI,MessageSize:LongWord;<BR>begin<BR>&nbsp;&nbsp;RecvSize1:=0;<BR>&nbsp;&nbsp;RecvSize2:=0;<BR>&nbsp;&nbsp;FillChar(cHead,SizeOf(cHead),0);</P>
      <P>&nbsp;&nbsp;RecvSize1:=socket.ReceiveBuf(cHead,SizeOf(cHead));<BR>&nbsp;&nbsp;commandI:=ntohl(cHead.CommandId);<BR>&nbsp;&nbsp;MessageSize:=ntohl(cHead.MessageLength);<BR>&nbsp;&nbsp;if 
      commandI=SGIP_BIND 
      then<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('*********************接收到Bind请求*********************');<BR>&nbsp;&nbsp;&nbsp;&nbsp;FillChar(cBind,SizeOf(cBind),0);<BR>&nbsp;&nbsp;&nbsp;&nbsp;FillChar(cBind_Resp,SizeOf(cBind_Resp),0);<BR>&nbsp;&nbsp;&nbsp;&nbsp;RecvSize2:=Socket.ReceiveBuf(cBind,MessageSize-RecvSize1);<BR>&nbsp;&nbsp;&nbsp;&nbsp;if 
      (RecvSize2+RecvSize1)&lt;&gt;MessageSize 
      then<BR>&nbsp;&nbsp;&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('**********************bind数据接收错误*******************');<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_BIND_RESP);<BR>&nbsp;&nbsp;&nbsp;&nbsp;cHead.MessageLength:=htonl(sizeof(cHead)+sizeof(cBind_Resp));<BR>&nbsp;&nbsp;&nbsp;&nbsp;cBind_Resp.Result:=0;<BR>&nbsp;&nbsp;&nbsp;&nbsp;RecvSize1:=Socket.SendBuf(cHead,SizeOf(cHead));<BR>&nbsp;&nbsp;&nbsp;&nbsp;RecvSize2:=Socket.SendBuf(cBind_Resp,SizeOf(cBind_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('**********************响应bind请求错误***********************');<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_DELIVER 
      then<BR>&nbsp;&nbsp;begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.Add('********************接收到SGIP_DELIVER请求********************');<BR>&nbsp;&nbsp;&nbsp;&nbsp;DeSize:=SizeOf(cDeliver);<BR>&nbsp;&nbsp;&nbsp;&nbsp;FillChar(cDeliver,SizeOf(cDeliver),0);<BR>&nbsp;&nbsp;&nbsp;&nbsp;FillChar(cDeliver_Resp,SizeOf(cDeliver_Resp),0);<BR>&nbsp;&nbsp;&nbsp;&nbsp;RecvSize2:=Socket.ReceiveBuf(cDeliver,MessageSize-RecvSize1);<BR>&nbsp;&nbsp;&nbsp;&nbsp;if 
      (RecvSize2+RecvSize1)&lt;&gt;MessageSize then<SPAN 
      class=sft><BR><BR>____________________<BR><BR>
      <P align=right>第3篇</P></SPAN></TD></TR>
  <TR>
    <TD vAlign=top bgColor=#e3e5e5>
      <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=#e3e5e5>发表于: 2002-11-1 20:40:05&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=3675')"><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号码: "