SMS开发,请大家多多支持,多提宝贵意见,见者有分(300分)

  • 主题发起人 主题发起人 LanFairy
  • 开始时间 开始时间
我看到很多工具都是,给你输入手机号码那种发送方法,不知是怎样实现的,
论坛都没有人提到。
 
to hunter0401:
the passwd is www.delphibaby.com
 
听课中。。。。。。。。。
 
各位谈得不错,提!
 
http://www.delphibaby.com/down/sms.zip无法下载了,哪位能否Email一份给我?万分感谢!
 
現在移動和聯通不能互發短信…(成功率很低)
那是不是說要開發兩個分別支持移動和聯通
 
可以试试用delphi的NMHTTP控件,代码可能要改改

var callstr:string;
begin
callstr:='http://tips.gxspace.com/cgi-bin/tips/webpaging?stnid='+callto.Text+'&pageno='+tonumber.Text;
case RadioGroup1.ItemIndex of
0:callstr:=callstr+'&pagertype=C';
1:callstr:=callstr+'&pagertype=D';
2:callstr:=callstr+'&pagertype=E';
end;
callstr:=callstr+'&firstname='+firstname.text;
case RadioGroup2.ItemIndex of
0:callstr:=callstr+'&title=先生';
1:callstr:=callstr+'&title=小姐';
end;
callstr:=callstr+'&surname='+surname.text;
callstr:=callstr+'&passwd=null';
callstr:=callstr+'&msg='+callmsg.Text+'&submit=立刻呼出&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;
 
有没有可能通过cdma手机发送短消息呀
 
发短信等手机通讯有三种方式:
1.移动、联通网关,一般是通过宽带网连接
2.通过在163、sohu、sina等网站注册手机,编写程序来发送短信
3.红外或串口与手机通信,分Text和PDU两种传送模式。其中,Nokia手机还可以分为需要数据套件、免数据套件(二进制)两种方式。
我的主页上有后两种Demo程序及源代码。http://wenjinshan.wx-e.com/index2.htm
 
后退
顶部