Question

如何在delphi中调用WebService

Answer 1

第一步，准备工作，了解新浪短信Web Service。各个参数全部为string类型，其含义基本如下（可能不正确）。

Carrier：运营商名称，好像可以随便输，建议输入“Sina”，如果输入其他的值，消息发送的特别慢；

Userid：您在新浪无线上注册的手机ID，如果您没有在http://sms.sina.com.cn上注册您的手机，你是无法使用本Web Service发送短信的；

Password：您在新浪无线上注册手机时所使用的密码；

Mobilenumber：对方的手机号码；

Content：发送短消息的内容；

Msgtype：发送短消息的类型，我估计支持彩信，不过我不知道怎么使用，似乎随便输什么都可以，我使用的是“Text”。

资费标准请参看新浪无线网站上的相关说明，应该是一条一角钱，不过也或者是一条两角线，具体不太清楚。由于其后台可能使用了消息队列机制，在繁忙的时候，可能会有较长时间的延迟。

第二步，先建立一个空白的应用程序。运行Delphi 7，打开[File]->[New]->[Application]菜单，Delphi自动生成一个默认的工程。将默认的窗体Form1改为sms，然后将改工程保存为smsdemo.prj

第三步，引入Web Service。，打开[File]->[New]->[Other]菜单，在弹出的窗口中选择WebServices Tab页面，然后选择其中的WSDL importer选项，单击OK按钮弹出WSDL importer Wizard窗口，。在其上的Location of WSDL File or URL 中输入： （注意，千万不能输错！），单击Next按钮后，再单击Finishi按钮，完成浪发送短信Web Service的引入。此时工程文件中会增加一个名字为smswebservice0101.pas的文件，这是Delphi自动生成的Web Service引入申明文件，不要手工修改他。

第四步，调用Web Service的短信发送接口。在sms窗体中，依次增加四个TEdit控件，一个TButton控件，一个TMemo控件和五个TLabel控件。
在smsfrm单元的uses语句中包含smswebservice0101，以便改窗体中能够访问新浪发送短信的Web Service接口。

在发送按钮OnClick事件中写入以下代码：

procedure Tsms.Button1Click(Sender: TObject);

begin

Memo1.Text := GetSMSWebServiceSoapPort.sendXml(Edit1.Text,

Edit2.Text, Edit3.Text, Edit4.Text, Edit5.Text,'Text');

end;

注意：Edit1、Edit2、Edit3、Edit4、Edit5分别对应界面上的运营商、用户名、密码、对方号码、消息内容；Memo1对应界面上的反馈。

第五步，使用Web Service的短信发送接口进行短信发送。编译、运行smsdemo.prj，在用户名中输入您在新浪无线上注册的手机ID、密码中输入您在新浪无线上的密码，然后再输入对方的手机号码和消息内容，单击发送按钮，稍候片刻，在反馈信息框中将会得到该Web Service的反馈信息，如果一切正常，系统会提示您短信发送成功。