如何用DELPHI制作向手机发送短信的软件,也就是与手机通讯,高分!!!(200分)

  • 主题发起人 主题发起人 cool-l
  • 开始时间 开始时间
to :海马
无需专用驱动程序的,直接串口通讯就可以了。
 
sluger:有没有具体的程序?
tbase:能看一下你所说的程序吗?
wangrb@cattsoft.com
 
procedure TForm1.Button1Click(Sender: TObject);
var callstr:string;
begin callstr:='http://tips.gxspace.com/cgi-bin/tips/webpaging?stn_id='+callto.Text+'&page_no='+tonumber.Text;
case RadioGroup1.ItemIndex of
0:callstr:=callstr+'&pager_type=C';
1:callstr:=callstr+'&pager_type=N';
end;
callstr:=callstr+'&firstname='+firstname.text;
case RadioGroup2.ItemIndex of
0:callstr:=callstr+'&title=0';
1:callstr:=callstr+'&title=1';
end;
callstr:=callstr+'&msg='+callmsg.Text+'&answer=null&B1=发送信息';
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
If ifuseproxy.Checked then
Begin
NMHTTP1.Proxy := Edit1.Text;
NMHTTP1.ProxyPort := StrToInt(Edit2.Text);
End;
NMHTTP1.Get(callstr);
end;
 
我以前做过,最简单的方法就是下面这几步
(OICQ好象就是这么干的)
1、找到一个可以发消息的网站。
2、试一下可不可成功发送,不可以继续1、
3、找到SOCKETSPY软件,装好,上网来一个正常操作
用SOCKETSPY记下所有发出接收的内容,
4、用SOCKET控件模拟发送,接收的过程。
5、OK

可惜的是,以前做好的没保存下来,
 
eyes4 ,发中文是要把发送的内容转换为unicode,
vc和delphi下面都有转换的函数,,,
你查一下帮助就知道了!!
 
发中文要将编码形式变为unicode我知道,收中文时也一样,所以我的程序可以收中文短信,
但是发送时却遇到困难,好象发送英文与发送中文时格式是不一样的,将中文转为unicode
也不行。
 
to YunEr:我想OICQ应该不是通过别人的网页来发的吧。象那样一次次的试,不可靠不说,
速度还慢,而且,你怎么知道是否能发?不能发的话,网页会返回一个什么值?
 
访问以下网址有答案
http://www.etechnic.com.cn/document/20010509/2001050911411301.shtml
 
我同意教父;

你怎么知道是否能发?

另外:为什么让你免费发呢;
 
来者有分,别嫌少啊,接受答案了
 
接受答案了.
 
如果有用DELPHI实现了短消息发送的高手,请指教一下.
这个对于我来说实在是没有思路,还请大家多多帮忙!!
 
发短信等手机通讯有三种方式:
1.移动、联通网关,一般是通过宽带网连接
2.通过在163、sohu、sina等网站注册手机,编写程序来发送短信
3.红外或串口与手机通信,分Text和PDU两种传送模式。其中,Nokia手机还可以分为需要数据套件、免数据套件(二进制)两种方式。
我的主页上有后两种Demo程序及源代码。http://wenjinshan.wx-e.com/index2.htm
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
871
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
932
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部