短信平台的开发问题？ ( 积分: 50 )

有那为高手可以帮忙给我介绍一下有关短信平台的开发问题，有原代码的最好了。

有那为高手可以帮忙给我介绍一下有关短信平台的开发问题，有原代码的最好了。

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3054598

首先通过下面的地址下载并安装微软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('....'); //web service接口
SoapClient.SendTextMessage('Number', 'MessageBody', 'Sender');
end;

其中Number为国家代码+电话号码（不需要以零打头），

我网站上面有这方面的资料，而且我们可以提供商业源码。
www.startor.cn