Delphi 2010 调用WebService接口

Delphi 调用WebService接口

此测试程序使用Delphi2010编写

打开Delphi2010

一、File-> New-> Application 新建一个工程

在窗体上放置三个 Button按钮，一个ComboBox，两个Edit，一个Memo和一个HTTPRIO

二、到File-> New-> Other-> WebServices-> WSDL importer

在打开的WDSL对话框，在Location of WSDL File or URL：

填写WSDL地址http://ws.webxml.com.cn/WebServices/WeatherWS.asmx?wsdl

Next>> Next>> Next>>Finish

之后系统会自动根据WSDL地址生成可以调用的单元文件WeatherWS.pas ,如下图

三、在HTTPRIO控件，设置URL属性http://ws.webxml.com.cn/WebServices/WeatherWS.asmx

四、在主窗体引用生成的WeatherWS.pas

五、编写按钮事件

第一个，获取省份，调用函数不用参数

procedure TFormMain.tbrCheLiangItems0Click(Sender: TObject);

var

pras : ArrayOfString;

i : Integer;

begin

pras := (htpr as WeatherWSSoap).getRegionProvince;

for i:= Low(pras) to High(pras) do

begin

cbb.Items.Add(pras[i]);

end;

第二个，获取当前省份里的城市名称，调用函数需要一个参数：省份名称，如北京或河北

procedure TFormMain.tbrCheLiangItems1Click(Sender: TObject);

var

cityweather : ArrayOfString;

t : string;

i: Integer;

begin

cityweather := (htpr as WeatherWSSoap).getSupportCityString(edt.Text);

for i := Low(cityweather) to High(cityweather) do

begin

t := cityweather[i];

mmo.Lines.Add(t);

end;

第三个，获取天气，调用函数需要两个参数：城市代码和用户ID（需要注册获取）

用户ID在ws.webxml.com.cn网站，注册登录后在会员专区里可以查看，并且申请试用此接口的权限，5天测试时间。

procedure TFormMain.tbrCheLiangItems2Click(Sender: TObject);

var

cityweather : ArrayOfString;

t : string;

i: Integer;

begin

cityweather := (htpr as WeatherWSSoap).getWeather(edtCity.Text,'fb5d2d13926c40c28cfb07cdba220589');

for i := Low(cityweather) to High(cityweather) do

begin

t := cityweather[i];

mmo.Lines.Add(t);

end;

六、编译，执行!

此示例是根据https://blog.csdn.net/heihei122/article/details/7975574所制作。

因www.webxml.com.cn的服务主机地址变更，原示例直接操作下来不能正常编译和执行，故写此流程。

自己做个记录，方便以后查看。

如需源码，请发站内信，留下你的邮件地址。

写得不好请见谅。
————————————————
版权声明：本文为CSDN博主「JerrySmurfs」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/jinglinggg/article/details/85209764

Delphi 2010 调用WebService接口相关推荐

调用webservice接口,数据不回滚问题
调用webservice接口,数据不回滚问题使用cxf+spring框架开发webservice接口,在开发一个具有保存数据的接口功能时,如果数据发生了异常,对service层无论使用了xml配置声 ...
android调用web接口,Android调用webservice 接口
以查询手机号码归属地的Web service为例,它的wsdl为 1 在Android项目中导入??Ksoap2-android jar第三方jar包?? 2 Activity代码 public cl ...
VC++使用Soap ToolKit3.0调用WebService接口
由于项目需要,需要实现VC调用WebService接口,之前没接触过这个,所以花了一天找了点资料,并自己编写了demo. 1. 首先看了Soap相关资料,见http://www.w3school.co ...
cmd 调用webservice接口_c# 三种方法调用WebService接口
1.引用*.wsdl文件 WebService服务端会提供wsdl文件,客户端通过该文件生成.cs文件以及生成.dll. 注意:若服务端只提供的了URL,在URL后面加上"?wsdl&quo ...
EJBCA 6 通过调用WebService接口增加用户并获取证书
2019独角兽企业重金招聘Python工程师标准>>> 今天终于搞定通过调用WebService 接口的方式在EJBCA 中增加用户. 本项目完整代码请参见http://git.os ...
python调用webservice接口实例_python调用各种接口，webservice,c接口，com接口，socket协议方法...
python调用webservice接口(SOAP) (2)调用示例: 需要先安装suds库:pip install suds from suds.client import Client #如果需要 ...
Java使用XFire调用WebService接口
看了一些Java调用WebService接口的例子,很多都是Ctrl+C,Ctrl+V的,其中有很多拿来使用后发现有错误,令人郁闷,特此写了一篇经过测试的,只是一个小例子. 服务端(为客户端提供Web ...
java用axis方式调用webservice接口
最近需要使用webservice接口,所以总结了一下全过程,希望能够对大家有所帮助. 开发使用的项目框架是ssm框架,tomcat服务器. 首先我们会拿到一个调用webservice接口的网址,类似这 ...
Java，Axis方式调用WebService接口，支持多参数
package com.demo.modules.si.util;import org.apache.axis.client.Call; import javax.xml.rpc.ParameterM ...

Delphi 2010 调用WebService接口

Delphi 2010 调用WebService接口相关推荐

最新文章

热门文章