AT指令发送PDU短信详解

 【原文地址】
http://www.01cn.net/cgi-bin/topic_show.cgi?id=345&pg=1&h=1#10321 
   
实用的AT指令
　　单片机和GSM引擎之间采用AT指令实现互相之间的通信，因此有必要了解一下AT指令的格式和几条常用的指令。更详细的资料可以参考GSM07.05和GSM07.07规范。
　　单片机发出的AT指令用来建立通信链路，AT指令集的命令格式帧都以AT开头，下面是几个常用的AT指令。
1．设置短消息中心
AT+CSCA=“[phone]”回车(具体的号码由当地的运营商决定。)
2．接收短消息
+CMTI：“SM”，X (X表示接收短消息的SIM卡存储号码)
AT+CMGR=X回车 (从X存储区读短消息)
AT+CMGD=X回车 (从X存储区删除短消息)
3．发送短消息
AT+CMGF=1回车(采用文本格式发送，如用PDU格式，则AT+CMGF=0)
AT+CMGS=“+8613xxxxxxxxx”回车
>输入短消息。Crtl+Z结束并发送。
4．重要的指令
ATZ;E 回车 Echo OFF
ATZ;E1回车 Echo ON
AT+CREG？回车 回答x(X=2脱网，X=1注册，X=0状态不明)
AT+COPS？回车 表示SIM卡是否被网络接受
AT+COPS=?回车 显示所有可用的网络。
5．建立语音呼叫
AT+CREG？回车(是否网络注册)
ATD13xxxxxxxxx；回车(语音呼叫和数据呼叫建立的区别在于号码后所接的分号上)
6．改变并保存参数
AT+IPR=2400 回车(改变RS232口的速率至2400bps)
AT&W 回车 (保存已改参数)
7．输入PIN码
AT+CPIN=“xxxx”
　　通信链路建立以后，单片机就可以发出信息单元帧了，信息的帧格式如下：
　　其中标志帧开始的帧头为十六进制的10H和02H，标志信息结束的是10H和03H，最后二位是数据部分按16位求和以后取模的结果，用做校验位。对于数据位，为了避免出现错误的结束标志，规定每出现一个10H码字以后，后面插入一个空字符00H。接收端如果收到信息以后，就要相应地去掉空字符。如果接收端收到的数据部分和BCS部分按照16位相加以后的结果不等于0，就表示传输出现错误，所收到的信息就要丢掉。
                       

 
 

666
 


 



发帖: 932
 于2005-04-25 17:45
--------------------------------------------------------------------------------
 ☆★☆ AT指令发送PDU短信详解（支持发送到小灵通） ☆★☆

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

    本文以一个实例来解说AT指令发送PDU短信的全过程，假如我要发送下面的短信：
接收号码：[phone]
短信内容：工作愉快！
短信中心号码：[phone]

一、短信中心号码处理：用字符串 addr 表示
  1、将短信息中心号码去掉+号，看看长度是否为偶数，如果不是，最后添加F
     即 addr = "[phone]"
     => 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 = "[phone]"
     => 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[i]);
    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;