用Delphi发送SMS(手机短消息服务)

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

用Delphi发送SMS(手机短消息服务)

下面的例子演示了如何通过SOAP来调用一个SMS的WEB服务。

首先通过下面的地址下载并安装微软SOAP工具包2.0:

http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml

然后就可以使用下面的简短代码发送SMS了。

uses

ComObj;

procedure TForm1.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为国家代码+电话号码(不需要以零打头),

如 06 12345678 在荷兰:31612345678

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航