delphi网页控制

RIO := HTTPRIO;

try

Result := (RIO as HelloWorld);

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(Ty

peInfo(HelloWorld), 'http://server.cxf.com/',

'UTF-8');

InvRegistry.RegisterDefaultSOAPAction(TypeInfo(HelloWorld), '');

InvRegistry.RegisterInvokeOption

s(TypeInfo(HelloWorld),

ioDocument);

end.

// ************************************************************************ //

// The types declared in this file were generated from data read from the

// WSDL File described below:

// WSDL : http://localhost/ServiceTest/Service.asmx?wsdl // Encoding : utf-8 // Version : 1.0

// (2005-12-17 1:49:46 - 1.33.2.5)

// ************************************************************************ //

unit Service;

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

// ************************************************************************ //

// 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/ServiceTest/Service.asmx

// ************************************************************************ //

ServiceSoap = interface(IInvokable)

[ '{77573149-9C57-FA51-F11F-EFD527C91BD9} ']

function HelloWorld(const user: WideString): WideString; stdcall; end;

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

implementation

function GetServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): ServiceSoap; const

defWSDL = 'http://localhost/ServiceTest/Service.asmx?wsdl '; defURL = 'http://localhost/ServiceTest/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; 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;