下面的例子演示了如何通过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);
http://www.gaodaima.com/65717.html用Delphi发送SMS（手机短消息服务）_Delphi
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
（译者试了试，有些可惜，上面的网址不能发中国的手机，：（
欢迎大家阅读《用Delphi发送SMS（手机短消息服务）_Delphi》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：用Delphi发送SMS（手机短消息服务）_Delphi
转载请注明原文链接：用Delphi发送SMS（手机短消息服务）_Delphi
