******************响应bind请求错误***********************''''); exit; end; end else if commandI=SGIP_DELIVER then begin memo1.Lines.Add(''''********************接收到SGIP_DELIVER请求********************''''); DeSize:=SizeOf(cDeliver); FillChar(cDeliver,SizeOf(cDeliver),0); FillChar(cDeliver_Resp,SizeOf(cDeliver_Resp),0); RecvSize2:=Socket.ReceiveBuf(cDeliver,MessageSize-RecvSize1); if (RecvSize2+RecvSize1)<>MessageSize then begin memo1.Lines.Add(''''**********************SGIP_DELIVER数据接收错误*******************''''); exit; end; RecvSize2:=0;RecvSize1:=0; cHead.CommandId:=htonl(SGIP_DELIVER_RESP); cHead.MessageLength:=htonl(sizeof(cHead)+sizeof(cDeliver_Resp)); cDeliver_Resp.Result:=0; RecvSize1:=Socket.SendBuf(cHead,SizeOf(cHead)); RecvSize2:=Socket.SendBuf(cDeliver_Resp,SizeOf(cDeliver_Resp)); if (RecvSize1+RecvSize2)<>ntohl(cHead.MessageLength) then begin memo1.Lines.Add(''''**********************响应SGIP_DELIVER请求错误***********************''''); exit; end; end else if commandI=SGIP_UNBIND then begin cHead.CommandId:=htonl(SGIP_UNBIND_RESP); cHead.MessageLength:=htonl(sizeof(cHead)); memo1.Lines.Add(''''响应SGIP_UNBIND***************************''''); RecvSize2:=Socket.SendBuf(cHead,sizeOf(cHead)); if RecvSize2<>ntohl(cHead.MessageLength) then begin memo1.Lines.Add(''''**********************SGIP_UNBIND发送错误*****************''''); exit; end; end else begin end; end; end.
//.............................................................. file://协议 unit xy;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
