用Delphi发送SMS(手机短消息服务)_Delphi

  • 内容
  • 评论
  • 相关

下面的例子演示了如何通过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.htmlDelphi发送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 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 用Delphi发送SMS(手机短消息服务)_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注