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

页面导航:首页 > 软件编程 > Delphi > 用Delphi发送SMS(手机短消息服务)

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

来源: 作者: 时间:2016-01-23 10:15 【

用Delphi发送SMS(手机短消息服务)下面的例子演示了如何通过SOAP来调用一个SMS的WEB服务。 首先通过下面的地址下载并安装微软SOAP工具包2.0:http://msdn.microsoft.com/downloads/default.asp?URL=/code

用Delphi发送SMS(手机短消息服务)
下面的例子演示了如何通过SOAP来调用一个SMS的WEB服务。

首先通过下面的地址并安装微软SOAP工具包2.0:
?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml">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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <