不使用代理类直接调用Webservice

来源：互联网发布：身份证扫描仪 windows 编辑：程序博客网时间：2024/05/18 23:53

问题背景：

以前做过一个模块，该模块功能为信息收集，即获取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;//定义soap2const 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