u_cs_dealpack.pas

软件功能：下载一个网站上所有的彩铃！ 铃声下载完后

unit U_CS_DealPack;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls,Winsock;

Const SMG_DeliverReq=$8001;
Const SMG_DeliverRep=$9001;

Const SMG_SubmitReq=$8002;
Const SMG_SubmitRep=$9002;

Const SMG_RegisterReq=$8004;
Const SMG_RegisterRep=$9004;

Const SMG_UnRegisterReq=$8005;
Const SMG_UnRegisterRep=$9005;

Const SMG_LinkDown=$0001;
Const SMG_LinkUp=$0002;

Const SMG_PORT=8000;

//ACE通信包头
Type TAceHead=Packed Record
  wMsgID:Word;//消息ID号码
  wCheckSum:Word;//效验码
  wMsgLen:Word;//消息长度
End;

//接口消息头
TMsgHead=Packed Record
  iCmdID:Integer;//消息命令ID号码
  iChannelID:Integer;//通道ID号码
  iLinkID:Integer;//连接ID号码
  sLinkIP:Array[0..15] Of Char;//连接IP地址
  iPort:Integer;//连接端口
End;

//注册请求
TSmgRegisterReq=Packed Record
  sServiceNumber:array[0..7] of Char;//服务代码
End;

//注册请求应答
TSmgRegisterRep=Packed Record
  sServiceNumber:Array[0..7] Of Char;//服务代码
  byResult:Byte;//注册结果
End;

//注销服务请求
TSmgUnRegisterReq=Packed Record
  sServiceNumber:Array[0..7] Of Char;//服务代码
End;

//注销服务应答
TSmgUnRegisterRep=Packed Record
  sServiceNumber:Array[0..7] Of Char;//服务代码
  byResult:Byte;//注销结果
End;

//MO短信上行请求记录包
TSmgDeliverReq=Packed Record
  //sMsgId:array[0..7] Of Char;//（保留）
  GateID:Byte;//网关号码
  MsgID:Array[0..15] Of Char;//消息ID号码
  LinkID:Array[0..19] Of Char;//点播业务的MT使用的LinkID，非点播类业务的MT 流程不使用该字段
  sDstAddr:Array[0..23] Of Char;//目标地址
  sSrcAddr:Array[0..23] Of Char;//用户手机号码
  sServiceID:Array[0..11] Of Char;//业务ID号码
  byMsgFmt:Byte;//消息格式
  byRegister:Byte;//注册标志
  byMsgLen:Byte;//消息长度
  sMsgContent:Array[0..255] Of Char;//消息内容
End;

//MO短信请求应答包
TSmgDeliverRep=packed record
  byResult:Byte;//请求结果
End;

//MT短信下行发送记录包
TSmgSubmitReq=Packed Record
  MsgID:Array[0..15] Of Char;//消息ID号码
  LinkID:Array[0..19] Of Char;//点播业务的MT使用的LinkID，非点播类业务的MT 流程不使用该字段
  byActionType:Byte;//
  iClientSeqID:Integer;//
  iMsgCounts:Integer;//
  iMsgNumber:Integer;//
  byRegister:Byte;//
  sServiceID:Array[0..11] Of Char;//业务ID号码
  byFeeUserType:Byte;//计费用户类型
  sFeeAddr:Array[0..23] Of Char;//计费地址
  byMsgFmt:Byte;//消息格式
  FeeType:Array[0..3] Of Char;//资费类型
  FeeCode:Array[0..7] Of Char;//资费代码
  sSrcAddr:Array[0..23] Of Char;//SP发送代码
  sDstAddr:Array[0..23] Of Char;//手机用户
  iMsgLen:Integer;//消息长度
  sMsgContent:Array[0..1023] Of Char;//消息内容
End;

//短信下行应答包
TSmgSubmitRep=Packed Record
  iClientSeqID:Integer;
  byActionType:Byte;
  byResult:Byte;
End;

TMtReqPacket=Packed Record//请求包
  rAceHead:TAceHead;
  rMsgHead:TMsgHead;//消息头
  Case Integer Of
    1:(rSmgRegisterReq:TSmgRegisterReq);//注册请求包
    2:(rSmgUnRegisterReq:TSmgUnRegisterReq);//注销服务包
    3:(rSmgSubmitReq:TSmgSubmitReq);//下行发送包
    4:(rSmgDeliverRep:TSmgDeliverRep);//上行请求包
End;

TMtRepPacket=Packed Record//应答包
  rMsgHead:TMsgHead;//消息头
  Case Integer Of
    1:(rSmgRegisterRep:TSmgRegisterRep);//注册请求包
    2:(rSmgUnRegisterRep:TSmgUnRegisterRep);//注销服务包
    3:(rSmgSubmitRep:TSmgSubmitRep);//下行发送包
    4:(rSmgDeliverReq:TSmgDeliverReq);//上行请求包
End;

//发送注册请求包信息处理
Function SendRegisterReq(iMsgID:Integer;sock:TSocket;Req:TSmgRegisterReq):Integer;
//发送注销服务包信息处理
Function SendUnRegisterReq(iMsgID:Integer;sock:TSocket;Req:TSmgUnRegisterReq):Integer;
//下行发送包信息处理
Function SendSubmitReq(iMsgID:Integer;sock:TSocket;var Req:TSmgSubmitReq):Integer;

Implementation

//发送注册请求包信息处理
Function SendRegisterReq(iMsgID:Integer;Sock:TSocket;Req:TSmgRegisterReq):Integer;
Var
  Ret:Integer;
  Packet:TMtReqPacket;
Begin
  ZeroMemory(@Packet,SizeOf(TMtReqPacket));
  Packet.rAceHead.wMsgID:=iMsgId;
  Packet.rAceHead.wCheckSum:=$0ff0;
  Packet.rAceHead.wMsgLen:=SizeOf(TMsgHead)+SizeOf(TSmgRegisterReq);
  Packet.rMsgHead.iCmdId:=SMG_RegisterReq;
  Move(Req,Packet.rSmgRegisterReq,SizeOf(TSmgRegisterReq));
  Ret:=Send(Sock,Packet,Packet.rAceHead.wMsgLen+SizeOf(TAceHead),0);
  Result:=Ret;
End;
//发送注销服务包信息处理
Function SendUnRegisterReq(iMsgID:Integer;Sock:TSocket;Req:TSmgUnRegisterReq):Integer;
Var
  Ret:Integer;
  Packet:TMtReqPacket;
Begin
  ZeroMemory(@Packet,SizeOf(TMtReqPacket));
  Packet.rAceHead.wMsgID:=iMsgID;
  Packet.rAceHead.wCheckSum:=$0ff0;
  Packet.rAceHead.wMsgLen:=SizeOf(TMsgHead)+SizeOf(TSmgUnRegisterReq);
  Packet.rMsgHead.iCmdId:=SMG_UnRegisterReq;
  Move(Req,Packet.rSmgUnRegisterReq,SizeOf(TSmgUnRegisterReq));
  Ret:=Send(Sock,Packet,Packet.rAceHead.wMsgLen+SizeOf(TAceHead),0);
  Result:=Ret;
End;
//下行发送包信息处理
Function SendSubmitReq(iMsgID:Integer;Sock:TSocket;var Req:TSmgSubmitReq):Integer;
Var
  Ret:Integer;
  Packet:TMtReqPacket;
Begin
  ZeroMemory(@Packet,SizeOf(TMtReqPacket));
  Packet.rAceHead.wMsgID:=iMsgID;
  Packet.rAceHead.wCheckSum:=$0ff0;
  Packet.rAceHead.wMsgLen:=SizeOf(TMsgHead)+SizeOf(TSmgSubmitReq)-SizeOf(Req.sMsgContent)+Req.iMsgLen;
  Packet.rMsgHead.iCmdId:=SMG_SubmitReq;
  Move(Req,Packet.rSmgSubmitReq,SizeOf(TSmgSubmitReq));
  Ret:=Send(Sock,Packet,Packet.rAceHead.wMsgLen+SizeOf(TAceHead),0);
  Result:=Ret;
End;

end.