用Delphi發(fā)送SMS（手機(jī)短消息服務(wù)）
下面的例子演示了如何通過(guò)SOAP來(lái)調(diào)用一個(gè)SMS的WEB服務(wù)。

首先通過(guò)下面的地址下載并安裝微軟SOAP工具包2.0:
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml
然后就可以使用下面的簡(jiǎn)短代碼發(fā)送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為國(guó)家代碼+電話號(hào)碼（不需要以零打頭），
如 06 12345678 在荷蘭：31612345678