x3怎么调用.net的WebService？**

zhanghua

x3怎么调用.net的WebService?如果返回的是一个数据集怎么读取（含java的WebService）。请提供范例。

zhanghua

邮箱aaa_zha@163.com

zhanghua

顶

alang

如果调用Java的WebService，请参考 http://bbs.justep.com/forum.php? ... &highlight=java
如果调用.net的WebService，请参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=9841

解析xml，请参考 http://bbs.justep.com/forum.php? ... mp;highlight=xmldom  5楼

zhanghua

http://bbs.justep.com/forum.php?mod=viewthread&tid=9841
中如果返回结果是个类我该怎么处理呢？

alang

如果返回是类，在这里当作一个接口来调用，请参考 http://wiki.justep.cn/mywiki/moi ... ight=%28dispatch%29

zhanghua

麻烦你帮我看下，这是我的代码：需要用的方法是“GetDictByName”，但是他返回的结果实际内容是一个数据集，但是在这里是一个类。我该怎么处理？

unit contractdata;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type

  GetDictByNameResult  = class;                 { "http://tempuri.org/" }
  GetDictByNameResult = class(TRemotable)
  private
  published
  end;

  ContractDataSoap = interface(IInvokable)
  ['{D758CB49-3AA9-4C55-7F6F-DDD7748882AD}']
    function  GetDictByName(const DictName: String): GetDictByNameResult; stdcall;

  end;

function GetContractDataSoap(UseWSDL: Boolean; Addr: string): ContractDataSoap;

implementation
  uses SOAPHTTPClient;

function GetContractDataSoap(UseWSDL: Boolean; Addr: string): ContractDataSoap;
const
  defWSDL = 'http://10.232.20.121/sgmis/contract/contractdata.asmx?wsdl';
  defURL  = 'http://10.232.20.121/sgmis/contract/contractdata.asmx';
  defSvc  = 'ContractData';
  defPrt  = 'ContractDataSoap';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  RIO := THTTPRIO.Create(nil);
  try
     if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
    RIO.HTTPWebNode.UseUTF8InHeader := true;
    Result := (RIO as ContractDataSoap);
  finally
    if Result = nil then
      RIO.Free;
  end;
end;

initialization
  InvRegistry.RegisterInterface(TypeInfo(ContractDataSoap), 'http://tempuri.org/', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(ContractDataSoap), 'http://tempuri.org/%operationName%');
  InvRegistry.RegisterInvokeOptions(TypeInfo(ContractDataSoap), ioDocument);
  RemClassRegistry.RegisterXSClass(GetDictByNameResult, 'http://tempuri.org/', 'GetDictByNameResult');
end.

alang

举例：
WebService文件
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
     Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function HelloWorld() As String
        Return "Hello World"
    End Function

End Class

生成的接口文件
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://localhost:3518/WebSite1/Service.asmx?WSDL
// Encoding : utf-8
// Version  : 1.0
// (2006-8-2 9:38:19 - $Revision:   1.9.1.0.1.0.1.9  $)
// ************************************************************************ //

unit MyService;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Borland types; however, they could also
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"


  // ************************************************************************ //
  // Namespace : http://tempuri.org/
  // soapAction: http://tempuri.org/HelloWorld
  // transport : http://schemas.xmlsoap.org/soap/http
  // binding   : ServiceSoap
  // service   : Service
  // port      : ServiceSoap
  // URL       : http://localhost:3518/WebSite1/Service.asmx
  // ************************************************************************ //
  ServiceSoap = interface(IInvokable)
  ['{77573149-9C57-FA51-F11F-EFD527C91BD9}']
    function  HelloWorld: String; stdcall;
  end;

function GetServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''): ServiceSoap;


implementation
  uses SOAPHTTPClient;

function GetServiceSoap(UseWSDL: Boolean; Addr: string): ServiceSoap;
const
  defWSDL = 'http://localhost:3518/WebSite1/Service.asmx?WSDL';
  defURL  = 'http://localhost:3518/WebSite1/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;
  RIO := THTTPRIO.Create(nil);
  try
     if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
    Result := (RIO as ServiceSoap);
  finally
    if Result = nil then
      RIO.Free;
  end;
end;


initialization
  InvRegistry.RegisterInterface(TypeInfo(ServiceSoap), 'http://tempuri.org/', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(ServiceSoap), 'http://tempuri.org/HelloWorld');

end.

平台上调用方法：
var
  s: ServiceSoap;
begin
{  s := JustepExt.MyService.GetServiceSoap(False, 'http://localhost:3518/WebSite1/Service.asmx');
  Dialogs.ShowMessage(s.HelloWorld);
  s := nil;

alang

你要的是什么？

zhanghua

这些我知道。我要的是如果我的返回值是个类。我该怎么做？就是这种类型的方法：
function  GetDictByName(const DictName: String): GetDictByNameResult; stdcall;
在平台里我该怎么做？
这种类型：
function  HelloWorld: String; stdcall;
我知道直接读取就可以了。返回的是个字符串。上面的那个方法返回的是个类。我该怎么做？请指教，谢谢！