关于GPRS的编程(100分)

有没有人有过这方面的编成经验呀？

关注，我们公司可能马上要用到。

我也很有兴趣哦。。。

我们开发过利用GPRS短信猫进行短信收发的软件，对于上网或者通话的，没有进行深度开发，建议你查询相关的AT指令。

我自己曾设计了用AT指令收发短信的程序,我想了解GPRS方面的编程资料,请各位不吝赐教.

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

一、短信中心号码处理：用字符串 addr 表示
1、将短信息中心号码去掉+号，看看长度是否为偶数，如果不是，最后添加F
即 addr = "+8613800200500"
=> addr = "8613800200500F"
2、将奇数位和偶数位交换。
=> addr = "683108200005F0"
3、将短信息中心号码前面加上字符91，91是国际化的意思
=> addr = "91683108200005F0"
4、算出 addr 长度，结果除2，格式化成2位的16进制字符串，16 / 2 = 8 => "08"
=> addr = "0891683108200005F0"

二、手机号码处理：用字符串 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，恭喜你，发送成功了^_^

各位，我不是问发送短信， 我是说用 GPRS 方式传输数据. 这个地址可以下载收发短信的程序， 只需要将手机和计算机连接， 软件自动查找。

这是我写的收发短信的程序， 解压缩即可运行。
http://imgbbs.shangdu.com/bbs.shangdu.com/1/145/1681/file/Mobsofts.zip

以前做过
其实和普通的Socket编程没什么区别
只是网速比较慢

关注中...我对这个也很感兴趣.

正需要！！！不过我还有一个问题！！！借楼主宝地一用，我是这方面的菜鸟谢谢各位帮帮忙：
我有一个短信收发机，装的移动卡，现在要向装有连同卡定位设备发出定位指令信息，也可以向普通手机发出信息，现在是能向手机发信息：用unicode码解决：
形如：

//将中文转换成Unicode文件进行发送
function TSMSReadSend.AnsiToUnicode(sStr: String): String;
var
i,len: Integer;
cur: Integer;
t: String;
s: WideString;
begin
// WideString('1啊') --> '1啊'
s:= WideString(sStr);
Result:='';
// Length(WideString('1啊')) = 2 !!!
len:=Length(s);
i:=1;
while i<=len do
begin
// Unicode of '啊' --> 21834
cur:=ord(s);
// 21834 --> '554a'
FmtStr(t,'%4.4X',[cur]); // ???? <-- 钱勤
Result:=Result+t;
inc(i);
end;
end;


SmsCenterNum:='3108200705F0'; //短信中心号码
SendSmsNum:=StringSwitch(Mobile);//手机号
Smsint:=length(AnsiToUnicode(trim(str)))div 2;
if Smsint<10 then
begin
SmsUnicode:='0891683108200705F011000D9168'+SendSmsNum+'0008000'+inttostr(Smsint)+AnsiToUnicode(trim(str));
SmsHex:=inttostr(length('11000D9168'+SendSmsNum+'0008000'+inttostr(Smsint)+AnsiToUnicode(trim(str)))div 2);
end
else
begin
SmsUnicode:='0891683108200705F011000D9168'+SendSmsNum+'000800'+IntToHex(Smsint,2)+AnsiToUnicode(trim(str));
SmsHex:=inttostr(length('11000D9168'+SendSmsNum+'000800'+IntToHex(Smsint,2)+AnsiToUnicode(trim(str)))div 2);
end;

if not Comm1.WriteCommData(pchar(trim('AT+CMGS='+SmsHex)+char(13)+char(10)),length(trim('AT+CMGS='+SmsHex))+2) then
begin
end
else
begin
sleep(200);
if not Comm1.WriteCommData(pchar(SmsUnicode+char(26)+char(13)+char(10)),length(SmsUnicode)+2) then
begin
end
else
begin
AddLog('发送短消息成功，短信内容：'+str);
end;
end;

上面是发unicode信息到手机，但是现在这个设备只支持ASCii代码，怎么处理？？？

基于IOCP的Winsocket完全可以满足批量的GPRS设备的连接请求，本人正在做，希望多多交流

to zzutrain,你的那个手机短信程序源码可以发一份给我学习学习么？感觉你学得蛮好的，谢谢了，
jhoper@163.com

同上！给我一份：flywolf804@163.com

to zzutrain:可以把源码也给我发一份吗?不胜感激,谢谢!
songbo811031@163.com