使用Delphi调用WebServices接口的简单应用实例

最新推荐文章于 2024-06-14 14:19:37 发布

三界

最新推荐文章于 2024-06-14 14:19:37 发布

阅读量1.5w

点赞数 1

分类专栏： RAD Studio XE 文章标签： delphi service object sms button types

本文链接：https://blog.csdn.net/QQ56430204/article/details/4875770

版权

本文详细介绍了如何使用Delphi 7.0调用新浪短信Web Service来开发短信应用。通过五个步骤，包括引入Web Service、设置参数、调用接口和显示反馈，实现短信发送功能。用户需要在界面上输入新浪账号信息、接收方手机号和消息内容，点击发送按钮即可完成短信发送。

摘要由CSDN通过智能技术生成

使用Delphi调用WebServices接口的简单应用实例

Delphi从6.0就开始支持Web Services的开发和应用了，本文通过使用Delphi 7.0调用新浪发送短信的Web Service进行短信应用程序开发这一实例详细的介绍在Delphi中如何开发基于Web Services的应用系统。

第一步，准备工作，了解新浪短信Web Service。新浪发送短信的Web Service地址是http://smsinter.sina.com.cn/ws/smswebservice0101.wsdl，该Web Service就只有一个方法，即string sendXml(carrier,userid,password,mobilenumber,content,msgtype)。各个参数全部为string类型，其含义基本如下（可能不正确）。

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

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

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

Mobilenumber：对方的手机号码；

Content：发送短消息的内容；

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

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

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

第三步，引入Web Service。，打开[File]->[New]->[Other]菜单，在弹出的窗口中选择WebServices Tab页面，然后选择其中的WSDL importer选项，单击OK按钮弹出WSDL importer Wizard窗口，如图2所示。在其上的Location of WSDL File or URL 中输入：http://smsinter.sina.com.cn/ws/smswebservice0101.wsdl （注意，千万不能输错！），单击Next按钮后，再单击Finishi按钮，完成浪发