AT指令发送PDU短信详解(支持发送到小灵通)

1、 AT指令发送PDU短信详解（支持发送到小灵通） 为了完成公司的短信收发程序，我找遍了所有资料，最后在很多网友的支持下基本上完成了这个程序，为了使后来的人免走我同样的弯路，我将AT指令发送PDU短信的全过程及函数整理出来，希望能给大家帮助，欢迎大家与我一起探讨：QQ ：119547601E_Mail ：Tang_717我在大富翁上的帖子：本文以一个实例来解说AT指令发送PDU短信的全过程，假如我要发送下面的短信：接收号码：8613602433649短信内容：工作愉快！短信中心号码：8613800200500一、短信中心号码处理：用字符串 addr 表示1、将短信息中心号码去掉+号，看看长度是否

2、为偶数，如果不是，最后添加F即 addr = "+8613800200500"=> addr = "8613800200500F"2、将奇数位和偶数位交换。=> addr = "683108200005F0"3、将短信息中心号码前面加上字符91，91是国际化的意思=> addr = "91683108200005F0"4、算出 addr 长度，结果除2，格式化成2位的16进制字符串，16 / 2 = 8 => "08"=> addr = "08916831

3、08200005F0"二、手机号码处理：用字符串 phone1、将手机号码去掉+号，看看长度是否为偶数，如果不是，最后添加F即 phone = "+8613602433649"=> phone = "8613602433649F"2、将手机号码奇数位和偶数位交换。=> phone = "683106423346F9"三、短信息部分处理：用字符串 msg 表示1、转字符串转换为Unicode代码，例如“工作愉快！”的unicode代码为 5DE54F5C61095FEBFF01，(转换函数见最后附录)2、将 msg

4、 长度除2，保留两位16进制数，即 5DE54F5C61095FEBFF01 = 20 / 2 => "0A"，再加上 msg=> msg = "0A5DE54F5C61095FEBFF01"四、组合1、手机号码前加上字符串 11000D91（1100：固定，0D：手机号码的长度，不算号，十六进制表示，91：发送到手机为91，发送到小灵通为81），即 phone = "11000D91" + phone=> 11000D91683106423346F92、手机号码后加上 000800 和刚才的短信息内容，000800

5、也写死就可以了即 phone = phone + "000800" + msg即 11000D91683106423346F9 + 000800 + 0A5DE54F5C61095FEBFF01 => phone = 11000D91683106423346F90008000A5DE54F5C61095FEBFF013、phone 长度除以2，格式化成2位的十进制数即 11000D91683106423346F90008000A5DE54F5C61095FEBFF01 => 50位 / 2 => 25 11000D91683105846411F000080

6、00A5DE54F5C61095FEBFF011A 3105846411F0五、所以要发送的内容为AT+CMGF=0 <回车> OKAT+CMGS=25<回车>> addr+phone <Ctrl+Z发送>六、如果返回不是ERROR，恭喜你，发送成功了_附录：function EncodeUniCode(s:WideString):String; /字符串>PDUvari,len:Integer;cur:Integer;t:String;beginResult:=''len:=Length(s);i:=1;while i<=len dobegincur:=ord(si);Result:=Result+IntToHex(Cur,4);inc(i);end;end;function DecodeUniCode(s:String):WideString; /PDU>字符串varp:PWord;i,len:Integer;cur:Integer;TempChar:WideChar;t:String;beginNew(p);Result:=''len:=Length(s) div 4;i:=1;for i:=0 to L