xyxykitty 发表于 2007-7-27 17:35:40

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

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


为了完成公司的短信收发程序,我找遍了所有资料,最后在很多网友的支持下
基本上完成了这个程序,为了使后来的人免走我同样的弯路,我将AT指令发送PDU
短信的全过程及函数整理出来,希望能给大家帮助,欢迎大家与我一起探讨:
QQ :119547601
E_Mail :Tang_717@163.com
我在大富翁上的帖子:http://www.delphibbs.com/delphibbs/dispq.asp?lid=3043115

    本文以一个实例来解说AT指令发送PDU短信的全过程,假如我要发送下面的短信:
接收号码:+8613602433649
短信内容:工作愉快!
短信中心号码:+8613800200500

一、短信中心号码处理:用字符串 addr 表示
1、将短信息中心号码去掉+号,看看长度是否为偶数,如果不是,最后添加F
   即 addr = "+8613800200500"
   => addr = "8613800200500F"
2、将奇数位和偶数位交换。
   => addr = "683108020005F0"
3、将短信息中心号码前面加上字符91,91是国际化的意思
   => addr = "91683108020005F0"
4、算出 addr 长度,结果除2,格式化成2位的16进制字符串,16 / 2 = 8 => "08"
   => addr = "0891683108020005F0"

二、手机号码处理:用字符串 phone
1、将手机号码去掉+号,看看长度是否为偶数,如果不是,最后添加F
   即 phone = "+8613602433649"
   => phone = "8613602433649F"
2、将手机号码奇数位和偶数位交换。
   => phone = "683106423346F9"

三、短信息部分处理:用字符串 msg 表示
1、转字符串转换为Unicode代码,例如“工作愉快!”的unicode代码为 5DE54F5C61095FEBFF01,
   (转换函数见最后附录)
2、将 msg 长度除2,保留两位16进制数,即 5DE54F5C61095FEBFF01 = 20 / 2 => "0A",再加上 msg
   => msg = "0A5DE54F5C61095FEBFF01"

四、组合
1、手机号码前加上字符串 11000D91(1100:固定,0D:手机号码的长度,不算+号,十六进制表示,91:发送到手机为91,发送到小灵通为81),
   即 phone = "11000D91" + phone
   => 11000D91683106423346F9
2、手机号码后加上 000800 和刚才的短信息内容,000800也写死就可以了
   即 phone = phone + "000800" + msg
   即 11000D91683106423346F9 + 000800 + 0A5DE54F5C61095FEBFF01
   => phone = 11000D91683106423346F90008000A5DE54F5C61095FEBFF01
3、phone 长度除以2,格式化成2位的十进制数
   即 11000D91683106423346F90008000A5DE54F5C61095FEBFF01 => 50位 / 2 => 25

五、所以要发送的内容为
   AT+CMGF=0 <回车>
   OK
   AT+CMGS=25<回车>
   > addr+phone <Ctrl+Z发送>

六、如果返回不是ERROR,恭喜你,发送成功了^_^

附录:
function EncodeUniCode(s:WideString):String; //字符串->PDU
var
i,len:Integer;
cur:Integer;
t:String;
begin
Result:='';
len:=Length(s);
i:=1;
while i<=len do
begin
    cur:=ord(s);
    Result:=Result+IntToHex(Cur,4);
    inc(i);
end;
end;

function DecodeUniCode(s:String):WideString; //PDU->字符串
var
p:PWord;
i,len:Integer;
cur:Integer;
TempChar:WideChar;
t:String;
begin
New(p);

Result:='';
len:=Length(s) div 4;
i:=1;

for i:=0 to Len-1 do
begin
    t:=Copy(s,4*i+1,4);
    p^:=HexToInt(t);

    Move(p^,TempChar,2);
    Result:=Result+TempChar;
end;
Dispose(p);
end;

xyxykitty 发表于 2007-7-31 13:43:36

自己顶一下
页: [1]
查看完整版本: AT指令发送PDU短信详解(支持发送到小灵通)