L
lidongshengly
Unregistered / Unconfirmed
GUEST, unregistred user!
请问谁有短信收发的源程序能否给小弟一个.不胜感激.
阿
阿拉宁波人
Unregistered / Unconfirmed
GUEST, unregistred user!
参见：http://www.sms2008.net/download/
P
ProLove
Unregistered / Unconfirmed
GUEST, unregistred user!
AT指令发就好了,
另明很多短信平台呀,那样更容易写收发,直接连接口就OK了
另明很多短信平台呀,那样更容易写收发,直接连接口就OK了
X
xxhadsg
Unregistered / Unconfirmed
GUEST, unregistred user!
使用AT指令进行串口通讯，只要简单了解一下串口通讯就可以了。我上传了AT指令的相关资料，也有一个可以免费使用的短信服务器，支持多串口，自动负载平衡。
另外，上传了两个Delphi代码的短信发送示例，源码。
http://www.tinstec.com
另外，上传了两个Delphi代码的短信发送示例，源码。
http://www.tinstec.com
网
网中戏
Unregistered / Unconfirmed
GUEST, unregistred user!
如果不想通过网关。就找个有数据线的手机或买个短信猫。用AT指令。参考代码如下
如：
0891683108301105F0000D91683137882787F2 00 08 40307241112300 04 4E2D56FD
先判断接收数据的红色部分 ：08为中文编码，00为英文编码
AT+CMGF=1
OK
AT+CSCA="+8613800760500"
OK
AT+CMGS=13925355484
>This is a test!
>OH!I SEE YOU!(Ctrl+Z)
AT指令在超级终端下可以发送成功！
例如短信息中心号码为深圳 +8613800755500
对方手机号码为 +8613612345678
+8613798264926
要发送的信息为“中”
算法步骤:
一、地址部分，用字符串 addr 表示
1、将短信息中心号码去掉+号，看看长度是否为偶数，如果不是，最后添加F
即 addr = "+8613800755500"
=> 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 = "+8613612345678"
=> phone = "8613612345678F"
=> phone = "8613798264926F"
2、将手机号码奇数位和偶数位交换。
=> phone = "683116325476F8"
=> phone = "683197284629F6"
三、短信息部分，用字符串 msg 表示
1、转字符串转换为Unicode代码，例如“中”的unicode代码为 4E2D，
（好像是将中字的ASCII码分开，分别转成16进制）。因为我用DELPHI，
请vb朋友自己找例子，网上应该许多
function TfrmMain.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) mod 7;
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
=> phone = "683116325476F8"
=> phone = "683197284629F6"
=> phone = 11000D9168683197284629F6000800024E2D
3、phone 长度除以2，格式化成2位的十进制数
即 11000D9168683116325476F8000800024E2D => 36位 / 2 => 18
五、所以要发送的内容为
AT+CMGS=18<回车，ASCII为13>
addr+phone+<^Z>+换行回车<13和10>
即AT+CMGS=18<回车>0891683108705505F011000D91683116325476F8000800024E2D^Z换行回车
重要发现：在SPCOMM中发送后显示出来的没有">",怎么解决，分开写这个PDU，然后用SLEEP(100);也没有解决问题。
////////////////////////////////
实用的AT指令
单片机和GSM引擎之间采用AT指令实现互相之间的通信，因此有必要了解一下AT指令的格式和几条常用的指令。更详细的资料可以参考GSM07.05和GSM07.07规范。
单片机发出的AT指令用来建立通信链路，AT指令集的命令格式帧都以AT开头，下面是几个常用的AT指令。
1．设置短消息中心
AT+CSCA=“+8613800270500”回车(具体的号码由当地的运营商决定。)
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，就表示传输出现错误，所收到的信息就要丢掉。
///////////////////////////////////////////////////////
本文以一个实例来解说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
Word;
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;
如：
0891683108301105F0000D91683137882787F2 00 08 40307241112300 04 4E2D56FD
先判断接收数据的红色部分 ：08为中文编码，00为英文编码
AT+CMGF=1
OK
AT+CSCA="+8613800760500"
OK
AT+CMGS=13925355484
>This is a test!
>OH!I SEE YOU!(Ctrl+Z)
AT指令在超级终端下可以发送成功！
例如短信息中心号码为深圳 +8613800755500
对方手机号码为 +8613612345678
+8613798264926
要发送的信息为“中”
算法步骤:
一、地址部分，用字符串 addr 表示
1、将短信息中心号码去掉+号，看看长度是否为偶数，如果不是，最后添加F
即 addr = "+8613800755500"
=> 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 = "+8613612345678"
=> phone = "8613612345678F"
=> phone = "8613798264926F"
2、将手机号码奇数位和偶数位交换。
=> phone = "683116325476F8"
=> phone = "683197284629F6"
三、短信息部分，用字符串 msg 表示
1、转字符串转换为Unicode代码，例如“中”的unicode代码为 4E2D，
（好像是将中字的ASCII码分开，分别转成16进制）。因为我用DELPHI，
请vb朋友自己找例子，网上应该许多
function TfrmMain.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) mod 7;
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
=> phone = "683116325476F8"
=> phone = "683197284629F6"
=> phone = 11000D9168683197284629F6000800024E2D
3、phone 长度除以2，格式化成2位的十进制数
即 11000D9168683116325476F8000800024E2D => 36位 / 2 => 18
五、所以要发送的内容为
AT+CMGS=18<回车，ASCII为13>
addr+phone+<^Z>+换行回车<13和10>
即AT+CMGS=18<回车>0891683108705505F011000D91683116325476F8000800024E2D^Z换行回车
重要发现：在SPCOMM中发送后显示出来的没有">",怎么解决，分开写这个PDU，然后用SLEEP(100);也没有解决问题。
////////////////////////////////
实用的AT指令
单片机和GSM引擎之间采用AT指令实现互相之间的通信，因此有必要了解一下AT指令的格式和几条常用的指令。更详细的资料可以参考GSM07.05和GSM07.07规范。
单片机发出的AT指令用来建立通信链路，AT指令集的命令格式帧都以AT开头，下面是几个常用的AT指令。
1．设置短消息中心
AT+CSCA=“+8613800270500”回车(具体的号码由当地的运营商决定。)
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，就表示传输出现错误，所收到的信息就要丢掉。
///////////////////////////////////////////////////////
本文以一个实例来解说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
Word; 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;
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]
]
H
happycyp
Unregistered / Unconfirmed
GUEST, unregistred user!
发送短信最主要的是要解析对PDU码
PDU手册：
http://borland.mblogger.cn/shuixin13/posts/10087.aspx
PDU手册：
http://borland.mblogger.cn/shuixin13/posts/10087.aspx
L
lidongshengly
Unregistered / Unconfirmed
GUEST, unregistred user!
有没有整个收发过程只用delphi写的呢
L
lidongshengly
Unregistered / Unconfirmed
GUEST, unregistred user!
请问网中戏,你所给出的代码是不是需要有单片机支持,delphi程序只是进行了不同的字符编码转换.