用Delphi7 调用.NET 2.0的WebService 所要注意的问题

最新推荐文章于 2020-09-17 11:28:35 发布

转载最新推荐文章于 2020-09-17 11:28:35 发布 · 1k 阅读

Delphi 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了解决Delphi7调用基于.NET2.0的WebService时出现的问题，通过设置使Delphi客户端采用Document|Literal编码方式，并提供了解决中文参数传输的方法。

引用地址：http://www.cnblogs.com/findumars/p/6329669.html

Delphi7 调用VS.NET 2005开发的基于.NET 2.0的WebService时发生了错误。

查阅资料 http://www.community.borland.com/article/borcon/files/4132/paper/4132.html 发现

原来Delphi7客户端虽然支持WebService的RPC|Encoded 和 Document|Literal编码，但默认的是使用RPC。

而.NET 2.0下的WebService却是默认采用Documnet|Literal编码的。

因此我们需要显示地声明让Delphi客户端采用Documnet|Literal编码就可以了。

在Delphi的WSDL Importer产生了WebService的接口文件中加入如下行：

initialization
  InvRegistry.RegisterInterface(TypeInfo(ServiceSoap), 'http://tempuri.org/', 'utf-8');
  InvRegistry.RegisterInvokableClass(ServiceSoapImpl);
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(ServiceSoap), 'http://tempuri.org/HelloWorld');
  InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument); //指明Delphi采用Document编码
end.

如果需要在WebService中传送汉字的参数，则建议在Service.pas中再添加一行代码

function GetServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): ServiceSoap;
const
  defWSDL = 'http://localhost/myservice/service.asmx?wsdl';
  defURL  = 'http://localhost/myservice/service.asmx';
  defSvc  = 'Service';
  defPrt  = 'ServiceSoap';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
   RIO.HTTPWebNode.UseUTF8InHeader := True;  //添加该行，指定采用UTF-8代码传输
  try
    Result := (RIO as ServiceSoap);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

需要说明的是使用Delphi2006则不需要上述的改变即可以正确调用VS.NET 2005书写的WebService.