Question

如何在delphi中调用WebService

Answer 1

Delphi 调用webservice接口

一、使用向导

1.导入wsdl文件：file--new----other----webservice---WSDLimporter---输入wsdl地址

http//ww.webxml.com.cn/webservices/qqOnlineWebService.asmx?wsdl

完成之后，即可导入wsdl文件。

注：结尾处的'？wsdl'不能少。

2.在导入的wsdl文件中手动添加部分注册代码：

InvRegistry.RegisterInterface(TypeInfo(qqOnlineWebServiceSoap), 'http://WebXml.com.cn/', 'utf-8');
InvRegistry.RegisterInvokeOptions(TypeInfo(qqOnlineWebServiceSoap),ioDocument);//此处必须手动添加，delphi无法自动生成
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(qqOnlineWebServiceSoap), 'http//WebXml.com.cn/qqCheckOnline');

3.调用代码

var
statusQuery:qqOnlineWebServiceSoap;
qqNumber:string;
statusStr:string;begin
statusQuery:=GetqqOnlineWebServiceSoap;
qqNumber:='516220662';
statusStr:=statusQuery.qqCheckOnline(qqNumber);
ShowMessage(statusStr);end;

4.运行结果：

PS:直接浏览器访问

a) htt://ww.webxml.com.cn/webservices/qqOnlineWebService.asmx

b)输入QQ号进行测试:

c)调用结果:

二、使用HTTPRIO控件

1.在界面上拖放一个HTTPRIO控件

2.设置url属性

http //www webxml.com.cn/webservices/qqOnlineWebService.asmx?wsdl

3.调用代码

var
statusStr:string;begin
statusStr:=(HTTPRIO1 as qqOnlineWebServiceSoap).qqCheckOnline('516220662');
ShowMessage(statusStr);end;

4.运行结果