用Delphi发送SMS（手机短消息服务）

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

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

http://msdn.*m*i*crosoft.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.sal*ne*tw*ork.com:83/lucin/smsmessaging/process.xml');

SoapClient.SendTextMessage('Number', 'MessageBody', 'Sender');

end;

其中Number为国家代码+电话号码（不需要以零打头），

如 06 12345678 在荷兰：31612345678