计算机向手机发短信息的问题(100分)

  • 主题发起人 主题发起人 yayiye
  • 开始时间 开始时间
Y

yayiye

Unregistered / Unconfirmed
GUEST, unregistred user!
我想通过向sohu 网关提交数据的方法发短信息
也就是http://sms.sohu.com/message/custsm.php
提交的页面好像是:http://sms.sohu.com/message/scsend.
php
我执行的过程:
var
s:string;
begin
s:=s+'usernumber='+edtUsernumber.Text+'&password='+edtPassword.Text;
s:=s+'&tonumber1='+edtTonumber.Text+'&message=ComFromSohu';
NMhttp.Get('http://sms.sohu.com/message/scsend.
php?'+s);
end;
返回提交成功,但是就是收不到短信,请高手指点一下!
 
1,好象要用POST吧?不过NMHTTP有BUG,需要写到文件里;
2,好象URL是FREESEND。PHP;
 
to: outer_star
我按照你的方法试了一下,还是收不到短信,怎么回事?
 
我想 sohu还有其他处理吧
 
up,我也正在Study.
uses
ComObj;
procedureTForm1.Button1Click(Sender:Tobject);
var
SoapClient:OleVariant;
v:OleVariant;
begin
SoapClient:=CreateOleObject(’MSSOAP.SoapClient’);
SoapClient.mssoapinit(’
http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml’);
SoapClient.SendTextMessage(’Number’,’MessageBody’,’Sender’);
end;

其中Number为国家代码+电话号码(不需要以零打头),
如0612345678在荷兰:31612345678 
--------------------------------------------------------------------------
---
该问题的URL是: http://www.delphibbs.com/delphibbs/dispq.asp?LID=1368668
 
接受答案了.
 

Similar threads

D
回复
0
查看
836
DelphiTeacher的专栏
D
D
回复
0
查看
867
DelphiTeacher的专栏
D
D
回复
0
查看
785
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部