不使用代理类直接调用Webservice

问题背景：

以前做过一个模块，该模块功能为信息收集，即获取N个站点的订单。因为每个站点都使用不同的Webservice，所以使得整个模块很乱，加了N多代理类！

问题：

有没有可能不用代理类直接调用Webservice呢？

解决方法：

有的，这里有一个办法。打开

http://www.webxml.com.cn/WebServices/ChinaZipSearchWebService.asmx 。这是天气预报的webservice，点击后会看到一个Action列表。点击某个Action进入后就会看到相关的SOAP格式！

现以获取某城市天气预报为例：

1.这个是SOAP格式 <?xml version="1.0" encoding="utf-8"?> <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"> <soap12:Body> <getAddressByZipCode xmlns="http://WebXml.com.cn/"> <theZipCode>string </theZipCode> <userID>string </userID> </getAddressByZipCode> </soap12:Body> </soap12:Envelope> 2.这个是返回值 <?xml version="1.0" encoding="utf-8"?> <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"> <soap12:Body> <getAddressByZipCodeResponse xmlns="http://WebXml.com.cn/"> <getAddressByZipCodeResult> <xsd:schema>schema </xsd:schema>xml </getAddressByZipCodeResult> </getAddressByZipCodeResponse> </soap12:Body> </soap12:Envelope>

这里以读取天气预报为例，来读取一下！

uses ComObj,PerlRegEx; //定义soap2 const contentText= '<?xml version="1.0" encoding="utf-8"?>'+ '<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">'+ '<soap12:Body>'+ '<getWeatherbyCityName xmlns="http://WebXml.com.cn/">'+ '<theCityName>%s</theCityName>'+ '</getWeatherbyCityName>'+ '</soap12:Body>'+ '</soap12:Envelope>' ; //获取weather指定城市下数据信息 function TForm1.GetWeatherData(apiURL:string): string; var responseText: WideString; xmlHttp: oleVariant; begin Result:=''; try xmlHttp:=CreateOleObject('Msxml2.XMLHTTP'); xmlHttp.open('POST',apiURL,false); xmlhttp.setRequestHeader('CONTENT-LENGTH',500); xmlhttp.setRequestHeader('CONTENT-TYPE','text/xml; charset=utf-8'); xmlHttp.send(format(contentText,['石家庄']) ); responseText:=xmlHttp.responseText; if xmlHttp.status='200' then begin Result:=responseText;//获取信息后，用正则进行解析'/<string/>([/S/s]+?)/</string/>' end; xmlHttp := Unassigned; except Result:=''; end; end;

类似，用ASP或JavaScript也可以用这种方式来读取Webservice