用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
数据挖掘研究院
