短信收发源码 ( 积分: 0 )

  • 主题发起人 主题发起人 wjhx
  • 开始时间 开始时间
W

wjhx

Unregistered / Unconfirmed
GUEST, unregistred user!
近期做了一个短信收发的小软件，尽管软件不大，但对于刚刚接触这一行业的新手，困难自知。现将其中的编码部分列出，希望能对正在徘徊的兄弟姐妹们有所帮助（格式规定，请自行搜索），先将砖放下了，有玉的请尽管扔

硬件使用WAVECOM与串口相连，串口控件使用APRO，使用其数据打包控件直接将数据取出，代码如下

％％％％％％％％％％％
发送部分
％％％％％％％％％％％

{-----------------------------------------------------------------------------
Procedure: Tdm.CombinationData
Author: administrator
Date: 22-四月-2005
Arguments: CenterNum, DesiNum, ContentText: string
将输入的中心号码及目标号码/内容合并为可用数据
Result: string
-----------------------------------------------------------------------------}
function Tdm.CombinationData(CenterNum, DesiNum,
ContentText: string): string;
var sendStr:string;
nText:string;
begin
// sendStr:='AT+CMGS=';
sendStr:='';
sendStr:=sendStr+'0891'+Self.ExchangeNumber(centerNum);
sendStr:=sendStr+'11000D91';
sendStr:=sendStr+Self.ExchangeNumber(DesiNum);
sendStr:=sendStr+'000800';
nText:=Self.ConvertText(ContentText);
sendStr:=sendStr+Format('%2.2x',[ord(Length(Trim(nText))div 2)]);
sendStr:=sendStr+Trim(nText);
Result:=sendStr;
end;

{-----------------------------------------------------------------------------
Procedure: Tdm.ConvertText
Author: administrator
Date: 22-四月-2005
Arguments: value: string 对内容进行编码
Result: string
-----------------------------------------------------------------------------}
function Tdm.ConvertText(s: widestring): string;
var
i, len: Integer;
cur: Integer;
t: String;
begin
Result := '';
len := Length(s);
i := 1;
while i <= len do
begin
cur := Ord(s);
FmtStr(t, '%4.4X', [cur]);
Result := Result+t;
inc(i);
end;
end;

{-----------------------------------------------------------------------------
Procedure: Tdm.ExchangeNumber
Author: administrator
Date: 22-四月-2005
Arguments: value: string 号码进行对换
Result: string
-----------------------------------------------------------------------------}
function Tdm.ExchangeNumber(value: string): string;
var rValue:string;
I: Integer;
begin
rValue:='';
i:=2;
if(Copy(Value,1, 2)<>'86')then
Value:='86'+trim(Value);
while i<=length(value) do
begin
rValue:=rValue+value;
rValue:=rValue+Value[i-1];
i:=i+2;
end; // while

if(odd(Length(Value)))then
begin
rValue:=rValue+'F';
rValue:=rValue+Value[Length(Value)];
end;
Result:=Trim(rValue);
end;

％％％％％％％％％％％％％％％％％
接收部分
％％％％％％％％％％％％％％％％％

{-----------------------------------------------------------------------------
Procedure: Tdm.ReadContent
Author: administrator
Date: 22-四月-2005
Arguments: s: string 转换短信的内容
Result: string
-----------------------------------------------------------------------------}
function Tdm.ReadContent(s: string): string;
function codetocontent(s1:string):string;
var rs:string;
kpos: Integer;
begin
rs:='';
kpos:=1;
while kpos<=length(s1) do
begin
rs:=rs+widechar(StrToInt('$'+copy(s1,kpos,4)));
kpos:=kpos+4;
end; // while
Result:=rs;
end;
var rValue:string;
dataLen: Integer;
ipos: Integer;
begin
rValue:='';
ipos:=pos('0D9168',s);
if(ipos>=0)then //含有0D9168
begin
if(length(s)>ipos+38)then //可以取出数据的长度
begin
dataLen:=StrToInt('$'+copy(s,ipos+36, 2))*2; //数据的长度
if(length(s)>(ipos+38+dataLen))then
begin
rValue:=copy(s,ipos+38,dataLen);
rValue:=codetocontent(rValue);
end;
end;
end;
Result:=rValue;
end;

{-----------------------------------------------------------------------------
Procedure: Tdm.ReadDesiNumber
Author: administrator
Date: 22-四月-2005
Arguments: s: string 取出短信的手机号
Result: string
-----------------------------------------------------------------------------}
function Tdm.ReadDesiNumber(s: string): string;
function r_code(s1:string):string;
var
r_number: string;
cpos: Integer;
begin
cpos:=2;
while cpos<=length(s1) do
begin
r_number:=r_number+s1[cpos]+s1[cpos-1];
cpos:=cpos+2;
end; // while
Result:=r_number;
end;
var
cur_tcode: string;
ipos: Integer;
rValue: string;
begin
rValue:='';
ipos:=pos('0D9168',s);
if(ipos>=0)then
begin
if(length(s)>=(ipos+18))then
begin
cur_tcode:=copy(s,ipos+6,12);
rValue:=r_code(cur_tcode);
end;
end;
Result:=copy(rValue,1,11);
end;
 
近期做了一个短信收发的小软件，尽管软件不大，但对于刚刚接触这一行业的新手，困难自知。现将其中的编码部分列出，希望能对正在徘徊的兄弟姐妹们有所帮助（格式规定，请自行搜索），先将砖放下了，有玉的请尽管扔

硬件使用WAVECOM与串口相连，串口控件使用APRO，使用其数据打包控件直接将数据取出，代码如下

％％％％％％％％％％％
发送部分
％％％％％％％％％％％

{-----------------------------------------------------------------------------
Procedure: Tdm.CombinationData
Author: administrator
Date: 22-四月-2005
Arguments: CenterNum, DesiNum, ContentText: string
将输入的中心号码及目标号码/内容合并为可用数据
Result: string
-----------------------------------------------------------------------------}
function Tdm.CombinationData(CenterNum, DesiNum,
ContentText: string): string;
var sendStr:string;
nText:string;
begin
// sendStr:='AT+CMGS=';
sendStr:='';
sendStr:=sendStr+'0891'+Self.ExchangeNumber(centerNum);
sendStr:=sendStr+'11000D91';
sendStr:=sendStr+Self.ExchangeNumber(DesiNum);
sendStr:=sendStr+'000800';
nText:=Self.ConvertText(ContentText);
sendStr:=sendStr+Format('%2.2x',[ord(Length(Trim(nText))div 2)]);
sendStr:=sendStr+Trim(nText);
Result:=sendStr;
end;

{-----------------------------------------------------------------------------
Procedure: Tdm.ConvertText
Author: administrator
Date: 22-四月-2005
Arguments: value: string 对内容进行编码
Result: string
-----------------------------------------------------------------------------}
function Tdm.ConvertText(s: widestring): string;
var
i, len: Integer;
cur: Integer;
t: String;
begin
Result := '';
len := Length(s);
i := 1;
while i <= len do
begin
cur := Ord(s);
FmtStr(t, '%4.4X', [cur]);
Result := Result+t;
inc(i);
end;
end;

{-----------------------------------------------------------------------------
Procedure: Tdm.ExchangeNumber
Author: administrator
Date: 22-四月-2005
Arguments: value: string 号码进行对换
Result: string
-----------------------------------------------------------------------------}
function Tdm.ExchangeNumber(value: string): string;
var rValue:string;
I: Integer;
begin
rValue:='';
i:=2;
if(Copy(Value,1, 2)<>'86')then
Value:='86'+trim(Value);
while i<=length(value) do
begin
rValue:=rValue+value;
rValue:=rValue+Value[i-1];
i:=i+2;
end; // while

if(odd(Length(Value)))then
begin
rValue:=rValue+'F';
rValue:=rValue+Value[Length(Value)];
end;
Result:=Trim(rValue);
end;

％％％％％％％％％％％％％％％％％
接收部分
％％％％％％％％％％％％％％％％％

{-----------------------------------------------------------------------------
Procedure: Tdm.ReadContent
Author: administrator
Date: 22-四月-2005
Arguments: s: string 转换短信的内容
Result: string
-----------------------------------------------------------------------------}
function Tdm.ReadContent(s: string): string;
function codetocontent(s1:string):string;
var rs:string;
kpos: Integer;
begin
rs:='';
kpos:=1;
while kpos<=length(s1) do
begin
rs:=rs+widechar(StrToInt('$'+copy(s1,kpos,4)));
kpos:=kpos+4;
end; // while
Result:=rs;
end;
var rValue:string;
dataLen: Integer;
ipos: Integer;
begin
rValue:='';
ipos:=pos('0D9168',s);
if(ipos>=0)then //含有0D9168
begin
if(length(s)>ipos+38)then //可以取出数据的长度
begin
dataLen:=StrToInt('$'+copy(s,ipos+36, 2))*2; //数据的长度
if(length(s)>(ipos+38+dataLen))then
begin
rValue:=copy(s,ipos+38,dataLen);
rValue:=codetocontent(rValue);
end;
end;
end;
Result:=rValue;
end;

{-----------------------------------------------------------------------------
Procedure: Tdm.ReadDesiNumber
Author: administrator
Date: 22-四月-2005
Arguments: s: string 取出短信的手机号
Result: string
-----------------------------------------------------------------------------}
function Tdm.ReadDesiNumber(s: string): string;
function r_code(s1:string):string;
var
r_number: string;
cpos: Integer;
begin
cpos:=2;
while cpos<=length(s1) do
begin
r_number:=r_number+s1[cpos]+s1[cpos-1];
cpos:=cpos+2;
end; // while
Result:=r_number;
end;
var
cur_tcode: string;
ipos: Integer;
rValue: string;
begin
rValue:='';
ipos:=pos('0D9168',s);
if(ipos>=0)then
begin
if(length(s)>=(ipos+18))then
begin
cur_tcode:=copy(s,ipos+6,12);
rValue:=r_code(cur_tcode);
end;
end;
Result:=copy(rValue,1,11);
end;
 
收藏先,谢谢楼主...
 
谢谢你的大公无私,先收下再讲.
 
《宇讯短信网关服务器-专业版》是国内首款支持（Delphi、VB、JS、C++）四种脚本语言的短信平台（类似于Word的VBA）。它可以用最快的速度、最低的成本、最简单省力的办法，为您部署出一套百变的短信收发平台。从而将短信应用由控件级的开发，直接提升到应用逻辑层的开发，轻松编写收发双向的短信应用，为您节约大量宝贵的时间。系统自带“学生成绩短信查分系统”案例。

详见：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3054598
 
呵呵,还有做广告的来了

补充一下再:
1,在发送出错时,应设置出错自动重发及确认成功状态的延时
2,发送时采用线程发送,还则会速度很慢,影响客户的使用
 
谢谢你的大公无私,先收下再讲.
 
虽然看不懂，不过感觉是好东西，收藏先！
 
wjhx：
1.出错会自动重发，不过发送出错的概率极低，目前还没碰到过。
2.单设备的发送是不采用多线程的，因为两者效果一样。
 
to seaboy:
采用线程发送的原因是:在发送多条数据时,由于确认的延时,会导致死机那样的感觉,这样还能强一些吧,发送的效果是一样的,呵呵
 
to wjhx:
首先非常感谢你的文章。
我也买了一个WAVECOM，可是我用ApdGSMPhone怎么也发送不成功，哈。请指教。
 
楼主你好，
我正做PDU这块了，遇到了些问题，请教。
在线等待（急），QQ：394860253
 
wjhx：
我指的是回复处理，我们的程序内部有缓存处理，不存在你所说的情况，最终当然是一条条发送的，我想这一点所有的短信程序也都是这样处理的。
 
您必须登录或注册才可回复。

Similar threads

G
使用SPCOMM控件收发短信,请各位大侠出手相助,高分求救,见者有分!!! (300分)
回复
14
查看
321
gzwhua
G
C
我很菜，谁能帮助我看这个函数的功能！(50分)
回复
1
查看
243
lxn2philips
L
天
to 红色火焰(0分)
回复
4
查看
165
天真
天
W
我用DBGridEh1做排序，写如下代码，还要在DBGridEh1中设置什么属性，才能使他排序？(0分)
回复
4
查看
151
wangchengwu
W
博
要分吗?快来这里!!!! (100分)
回复
6
查看
163
博天
博
后退
顶部