用Delphi发送SMS(手机短消息服务)
2006-02-04 13:30:53 来源:WEB开发网核心提示:用Delphi发送SMS(手机短消息服务)下面的例子演示了如何通过SOAP来调用一个SMS的WEB服务, 首先通过下面的地址下载并安装微软SOAP工具包2.0:http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-f
用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为国家代码+电话号码(不需要以零打头),
如 06 12345678 在荷兰:31612345678
- ››Delphi实现把10进制转换成16进制的函数进制转化
- ››Delphi中将字符串按给定字符分隔(似split函数功能...
- ››Delphi 动态创建窗体,锁定窗口赋值
- ››Delphi 与 VC 共享接口和对象
- ››Delphi图像处理 -- 表面模糊
- ››Delphi之多线程实例
- ››Delphi SelectSingleNode的使用 根据节点属性获取...
- ››Delphi接口详述
- ››delphi 远程调试
- ››Delphi与DirectX之DelphiX(34): TDIB.Lightness()...
- ››Delphi Application.MessageBox详解
- ››Delphi只能运行一个程序实例的两种方法