• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi7调用c#写的webservice(.net2.0)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

网上翻一下,东拼西凑的找到方法
不懂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;

    
//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%');

  
//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

    mHttpRIO
.HTTPWebNode.UseUTF8InHeader :=True;
    mHttpRIO
.Converter.Options :=mHttpRIO.Converter.Options + [soUTF8InHeader,soUTF8EncodeXML];

    mHttpRIO
.URL := 'http://www.??????.net/webservice/statistics.asmx';
    
//mHttpRIO.URL := 'http://localhost:3589/Statistics.asmx';  //only for test

    mServiceSoap 
:= mHttpRIO as statisticsSoap;

方法二:

 

var
mServiceSoap:StatisticsSoap;
begin
mServiceSoap:
=GetStatisticsSoap;

mServiceSoap.XXXXXX(
'XXX','XXX','XXX');


    ok    ,搞定交差。

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab绘图(详细)(全面)发布时间:2022-07-18
下一篇:
.net制作调用matlab画曲线软件的实现发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap