网上翻一下,东拼西凑的找到方法
不懂delphi的可以跟我做:
1,引入webservice单元,delphi7 menuFileNewotherWebservicesWSDLimporter填入你的webservice地址+?WSDLfinish
2,修改这个文件,在首部users加入对OPconvert的引用
3,在相关区域加入代码,主要是对UTF8的设置。。。。。
网上翻一下,东拼西凑的找到方法
不懂delphi的可以跟我做:
1,引入webservice单元,delphi7 menu>>File>>New>>other>>Webservices>>WSDLimporter>>填入你的webservice地址+?WSDL>>finish
2,修改这个文件,在首部users加入对OPconvert的引用
3,在相关区域加入代码,主要是对UTF8的设置
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
![](/Images/OutliningIndicators/None.gif)
//add-------to support UTF-8
RIO.HTTPWebNode.UseUTF8InHeader := true; //添加该行,指定采用UTF-8代码传输
RIO.Converter.Encoding:='UTF-8';
RIO.Converter.Options:=RIO.Converter.Options + [soUTF8InHeader,soUTF8EncodeXML];
//add-------END
4,还是这个文件 ,在结束之前加入
initialization
InvRegistry.RegisterInterface(TypeInfo(StatisticsSoap), 'http://www.??????.net/webservice', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(StatisticsSoap), 'http://www.??????.net/webservice/%operationName%');
![](/Images/OutliningIndicators/None.gif)
//add---------to support new document type
InvRegistry.RegisterInvokeOptions(TypeInfo(StatisticsSoap), ioDocument);
//add---------END
end.
5,然后 就可以调用它们了,要注意一点,不能通过WSDLLocation来设置地址,因为delphi的封装存在问题,不能识别.net2.0的一些新节点。
方法一:
var
mHttpRIO: THTTPRIO;
mServiceSoap: statisticsSoap;
begin
mHttpRIO := THTTPRIO.Create(nil);
try
![](/Images/OutliningIndicators/None.gif)
mHttpRIO.HTTPWebNode.UseUTF8InHeader :=True;
mHttpRIO.Converter.Options :=mHttpRIO.Converter.Options + [soUTF8InHeader,soUTF8EncodeXML];
![](/Images/OutliningIndicators/None.gif)
mHttpRIO.URL := 'http://www.??????.net/webservice/statistics.asmx';
//mHttpRIO.URL := 'http://localhost:3589/Statistics.asmx'; //only for test
![](/Images/OutliningIndicators/None.gif)
mServiceSoap := mHttpRIO as statisticsSoap;
方法二:
var
mServiceSoap:StatisticsSoap;
begin
mServiceSoap:=GetStatisticsSoap;
![](/Images/OutliningIndicators/None.gif)
mServiceSoap.XXXXXX('XXX','XXX','XXX');
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
ok ,搞定交差。