一、使用向导
1.导入wsdl文件：file--new----other----webservice---WSDLimporter---输入wsdl地址
http://www.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) http://www.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.运行结果
