最新动态

工业物联网通讯专家!
认真做好每一件事,设计简单、可靠、价格合理的产品!

GSM短信模块通过AT指令发送短信到小灵通的方法

为了完成公司的短信收发程序,我找遍了所有资料,最后在很多网友的支持下
基本上完成了这个程序,为了使后来的人免走我同样的弯路,我将AT指令发送PDU
短信的全过程及函数整理出来,希望能给大家帮助,欢迎大家与我一起探讨:
QQ :119547601
E_Mail :[email protected]
我在大富翁上的帖子: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;



上一篇: Windows操作系统25年发展历程
下一篇: 单片机自关机(彻底关机)电路的实现方法

发表评论