【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了，Iwsbytedynarray1.pas，希望对大家有所帮助！

    // ************************************************************************ //
    // The types declared in this file were generated from data read from the
    // WSDL File described below:
    // WSDL     : http://localhost:8081/pwsavibyarray.wsbytednyarray/wsdl/Iwsbytedynarray
    // Encoding : utf-8
    // Version  : 1.0
    // (2004-6-30 21:50:18 - 1.33.2.5)
    // ************************************************************************ //
    
    unit Iwsbytedynarray1;
    
    interface
    
    uses InvokeRegistry, SOAPHTTPClient, 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"
      // !:TStringDynArray - "http://www.borland.com/namespaces/Types"
      // !:int             - "http://www.w3.org/2001/XMLSchema"
      // !:base64Binary    - "http://www.w3.org/2001/XMLSchema"
    
    
      // ************************************************************************ //
      // Namespace : urn:wsbytedynarrayIntf-Iwsbytedynarray
      // soapAction: urn:wsbytedynarrayIntf-Iwsbytedynarray#%operationName%
      // transport : http://schemas.xmlsoap.org/soap/http
      // style     : rpc
      // binding   : Iwsbytedynarraybinding
      // service   : Iwsbytedynarrayservice
      // port      : IwsbytedynarrayPort
      // URL       : http://localhost:8081/pwsavibyarray.wsbytednyarray/soap/Iwsbytedynarray
      // ************************************************************************ //
      Iwsbytedynarray = interface(IInvokable)
      ['{32EB2CDF-E767-5179-87D6-63278CFEA040}']
        function  getfilename(out icount: Integer): TStringDynArray; stdcall;
        function  getfilebydynarray(const afilename: WideString; out isize: Integer): TByteDynArray; stdcall;
      end;
    
    function GetIwsbytedynarray(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): Iwsbytedynarray;
    
    
    implementation
    
    function GetIwsbytedynarray(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): Iwsbytedynarray;
    const
      defWSDL = 'http://localhost:8081/pwsavibyarray.wsbytednyarray/wsdl/Iwsbytedynarray';
      defURL  = 'http://localhost:8081/pwsavibyarray.wsbytednyarray/soap/Iwsbytedynarray';
      defSvc  = 'Iwsbytedynarrayservice';
      defPrt  = 'IwsbytedynarrayPort';
    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;
      try
        Result := (RIO as Iwsbytedynarray);
        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;
    
    
    initialization
      InvRegistry.RegisterInterface(TypeInfo(Iwsbytedynarray), 'urn:wsbytedynarrayIntf-Iwsbytedynarray', 'utf-8');
      InvRegistry.RegisterDefaultSOAPAction(TypeInfo(Iwsbytedynarray), 'urn:wsbytedynarrayIntf-Iwsbytedynarray#%operationName%');
    
    end. 
    

上一篇：ItemsTableU.pas
下一篇：法律专业开题报告范文