AT编程常见问题

   例如短信息中心号码为深圳 [phone] 

　　对方手机号码为[phone]

　　要发送的信息为“中”

　　算法步骤:

　　一、地址部分，用字符串 addr 表示

1、将短信息中心号码去掉+号，看看长度是否为偶数，如果不是，最后添加F
　　即 addr ="[phone]"
=> addr ="8613800755500F"

2、将奇数位和偶数位交换。
=> addr ="683108705505F0"

3、将短信息中心号码前面加上字符91，91是国际化的意思
=> addr ="91683108705505F0"

4、算出 addr 长度，结果除2，格式化成2位的16进制字符串，16 / 2 = 8 => "08"
=> addr ="0891683108705505F0"

　　二、手机号码部分，用字符串 phone

1、将手机号码去掉+号，看看长度是否为偶数，如果不是，最后添加F
　　即 phone ="[phone]"
=> phone ="8613612345678F"

2、将手机号码奇数位和偶数位交换。
=> phone ="683116325476F8"

　　三、短信息部分，用字符串 msg 表示

1、转字符串转换为Unicode代码，例如“中”的unicode代码为 4E2D，
　　（好像是将中字的ASCII码分开，分别转成16进制）。因为我用DELPHI，
　　请vb朋友自己找例子，网上应该许多

functionTfrmMain.str_Gb2UniCode( text: string ): String;
var
i,j,len:Integer;
cur:Integer;
t:String;
ws:WideString;
begin
Result:='';
ws := text;
len :=Length(ws);
i := 1;
j := 0;
while i <=len do
begin
cur :=ord(ws);
FmtStr(t,'%4.4X',[cur]);//BCD转换
Result :=Result+t;
inc(i);
//移位计数达到7位的特别处理
j := (j+1) mod7;
end;
end;

　　即 msg = "中"
　　即 msg =str_Gb2UniCode( msg )
=> msg ="4E2D"



2、将 msg 长度除2，保留两位16进制数，即 4E2D = 4 / 2 => "02"，再加上 msg
=> msg ="024E2D"

　　四、组合

1、手机号码前加上字符串 11000D91，这是一些PDU代码，写死就行了，感兴趣可以参考相关PDU格式说明
　　即 phone ="11000D91" + phone
=>11000D9168683116325476F8

2、手机号码后加上 000800 和刚才的短信息内容，000800也写死就可以了
　　即 phone = phone+ "000800" + msg
　　即11000D9168683116325476F8 + 000800 + 024E2D 
=> phone =11000D9168683116325476F8000800024E2D

3、phone 长度除以2，格式化成2位的十进制数
　　即11000D9168683116325476F8000800024E2D => 36位 / 2 => 18

　　五、所以要发送的内容为
AT+CMGS=18<回车，ASCII为13>
addr+phone+<^Z>+换行回车<13和10>

　　即AT+CMGS=18<回车>0891683108705505F011000D91683116325476F8000800024E2D^Z换行回车

　　你先用AT指令试是然后在用程序实现

functionEncode7bit(Src:String):String;
varDst:String;
i:Integer;
CurS,NextS:Byte;
TStr:String;
begin
for i:=1 toLength(Src) do begin
//当前是字符按8位分组的第8位，无需编码（8个字符已缩短为7个）
if (i mod 8)=0then Continue;

//取当前位为数字
TStr:=Copy(Src,i,1);
CurS:=Ord(TStr[1]);

//当前右移位组中的第一个字符不移位 
if (i mod8)>1 then
CurS:=(CurSshr ((i mod 8)-1) );

//取后一位为数字如果到了字符的结束，不取
if i
TStr:=Copy(Src,i+1,1);
NextS:=Ord(TStr[1]);
end else
NextS:=0;
//后一位移位左移
NextS:=(NextS shl (8-(i mod 8)));

//当前移位后加后一位移位后转换成为十六进制
Dst:=Dst+IntToHex(CurS+NextS,2);
end;
Result:=Dst;
end;

function Decode7bit(Src:String):String;
var Dst:String;
i:Integer;
CurS,ProiS:Byte;
begin
for i:=1 to (Length(Src) div 2) do begin
//将当前位的十六进制转换为十进制
CurS:=StrToInt('$'+Copy(Src,(i-1)*2+1,2)); //32->50
//取前一位十六进制转换为十进制
if (i mod 7)<>1 then
ProiS:=StrToInt('$'+Copy(Src,(i-2)*2+1,2)) //C8->200
else
ProiS:=0;
//前一位右移,即将当前字符前移的位取出来
if (i mod 7)>0 then
ProiS:=(ProiS shr (9-(i mod 7)))
else
ProiS:=(ProiS shr 2);
//当前位左移除掉高位
if (i mod 7)>0 then
CurS:=(CurS shl (i mod 7) )
else
CurS:=(CurS shl 7 );
//将第八位设置为0
CurS:=(CurS shr 1);
Dst:=Dst+Chr(CurS+ProiS);
//第七个十六进制内已包含有一个完整的字符
if (i mod 7)=0 then begin
CurS:=StrToInt('$'+Copy(Src,(i-1)*2+1,2)); //32->50
CurS:=(CurS shr 1);
Dst:=Dst+Chr(CurS);
end;
end;//en for
Result:=Dst;
end

转自http://bbs.sendsms.com.cn/