天游8线路检测中心

新闻中心
GSM短信模块通过AT指令发送短信到小灵通的方法
2010-11-23
7081
为了完成公司的短信收发程序,我找遍了所有资料,最后在很多网友的支持下
基本上完成了这个程序,为了使后来的人免走我同样的弯路,我将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"

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

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

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

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

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

附录:

[code="delphi"]

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;

[/code]

上一篇: 5V单片机连接3.3V SD卡的接法 下一篇: AVR单片机模拟串口 定时器方案 模拟USART RS232 返回首页
热门推荐
热门标签