用Delphi发送SMS（手机短消息服务）计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:29:37
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识

　　全国计算机等级考试上机考试应试技巧

　　百考试题教育全国计算机等级考试在线测试平台

　　用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为国家代码 电话号码（不需要以零打头）。