短信服务器短信服务器，带源码

//SGIP1.1 Head数据体 type SGIP_Head = record MessageLength : array[0..3] of byte; //消息的总长度(字节) CommandID : array[0..3] of byte; //命令ID SequenceNumber: array[0..11] of byte; //序列号 end; //SGIP1.1 Bind数据体 type SGIP_Bind = record LoginType : array[0..3] of byte; //登陆类型;1:SP向SMG建立的连接,用于发送命令 //11:SP与SMG建立的测试连接用于跟踪测试 LoginName : array[0..15] of Char; //登陆名 LoginPassword: array[0..15] of Char; //登陆的密码 Reserve : array[0..7] of Char; //保留 end; //SGIP1.1 Bind_Resp数据体 type SGIP_Bind_Resp = record Result : byte; Reserve : array[0..7] of Char; end; //无消息体Unbind //SGIP1.1 Submit数据体 type SGIP_Submits = record SPNumber : array[0..20] of Char; //sp的接入号码 ChargeNumber : array[0..20] of Char; //付费号码 UserCount : byte; //接收短消息的手机数量 UserNumber : array[0..20] of Char; //接收该短消息的手机号 CorpID : array[0..4] of Char; //企业代码，0-99999 ServiceType : array[0..9] of Char; //业务代码，由sp定义 FeeType : byte; //计费类型: //0:短消息类型为”发送“对”计费用户号码“不计费，此类话单仅用于核减SP对称的信道费。 //1:对计费号码免费 //2:对计费号码按条计信息费 //3:对计费号码按包月收取信息费 //4:对计费号码的收费是由SP实现 FeeValue : array[0..5] of Char; //该条短消息的收费值,单位为分 GivenValue : array[0..5] of Char; //赠送用户的话费,0-99999 AgentFlag : byte; //代收费标志,0:应收;1:实收 MorelatetoMTFlag : byte; //引起MT消息的原因 Priority : byte; //优先级0-9,从低到高 ExpireTime : array[0..15] of Char; //短消息寿命的终止时间,"yymmddhhmmsstnnp","tnnp"取固定值"032+" ScheduleTime : array[0..15] of Char; //定时发送时间 ReportFlag : byte; //状态报告标志,0-出错返回状态报告;1-总返回状态报告;2-不要状态报告;3... TpPid : byte; Udhi : byte; MessageCoding: byte; //编码方式,0:Ascii;3:Write card;4:binary;8:ucs2;15:GBK MessageType : byte; //0:短消息信息 MsgLen : Integer; //短消息长度 MsgContent : array of Char; //短消息内容 Reserved : array[0..7] of Char; //保留 end; //SGIP1.1 Submit_Resp数据体 type SGIP_Submit_Resp = record Result : byte; //Subimt命令是否成功接收;0:成功; Reserve : array[0..7] of Char; end; //SGIP1.1 Deliver数据体 type SGIP_Deliver = record UserNumber : array[0..20] of Char; //发送短消息的用户手机号,手机号码前加"86"国别标志 SPNumber : array[0..20] of Char; //SP的接入号码 TP_pid : byte; TP_udhi : byte; MessageCoding : byte; //短消息的编码格式 MessageLength : Integer; //短消息的长度 MessageContent: array of Char; //短消息的内容 Reserve : array[0..7] of Char; //保留 end; //SGIP1.1 Deliver_Resp数据体 type SGIP_Deliver_Resp = record Result : byte; Reserve: array[0..7] of Char; end; //SGIP1.1 Report数据体 type SGIP_Report = record SubmitSequenceNumber : array[0..11] of byte; //该命令所涉及的Submit或Deliver命令的序列号 ReportType : byte; //0:对先前一条Submit命令的状态报告 //1:对先前一条前转Deliver命令的状态报告 UserNumber : array[0..20] of Char; //接收短消息的手机号码 State : byte; ErrorCode : byte; Reserve : array[0..7] of Char; end; //SGIP1.1 Report_Resp数据体 type SGIP_Report_Resp = record Result : byte; Reserve: array[0..7] of Char; end; //应答Result的值为0:接收成功;其它错误