為了完成公司的短信收發程序，我找遍了所有資料，最后在很多網友的支持下
基本上完成了這個程序，為了使后來的人免走我同樣的彎路，我將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，恭喜你，發送成功了^_^
附錄：
[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]
-20250623144457.png)
