Index: AAPClient/WS/GebruikerService.pas =================================================================== diff -u --- AAPClient/WS/GebruikerService.pas (revision 0) +++ AAPClient/WS/GebruikerService.pas (revision 2) @@ -0,0 +1,272 @@ +// ************************************************************************ // +// The types declared in this file were generated from data read from the +// WSDL File described below: +// WSDL : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1 +// >Import : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1>0 +// Encoding : UTF-8 +// Version : 1.0 +// (5/03/2019 10:53:16 - - $Rev: 45757 $) +// ************************************************************************ // + +unit GebruikerService; + +interface + +uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; + +const + IS_OPTN = $0001; + IS_REF = $0080; + + +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 Embarcadero 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"[Gbl] + + GebruikerAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + GebruikerAanmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + GebruikerAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + GebruikerAanmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + + + + // ************************************************************************ // + // XML : GebruikerAfmeldenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + GebruikerAfmeldenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FLoginCode: string; + FInitialen: string; + FInitialen_Specified: boolean; + FComputernaam: string; + procedure SetInitialen(Index: Integer; const Astring: string); + function Initialen_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property LoginCode: string read FLoginCode write FLoginCode; + property Initialen: string Index (IS_OPTN) read FInitialen write SetInitialen stored Initialen_Specified; + property Computernaam: string read FComputernaam write FComputernaam; + end; + + + + // ************************************************************************ // + // XML : GebruikerAanmeldenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + GebruikerAanmeldenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FInitialen: string; + FLoginCode: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Initialen: string read FInitialen write FInitialen; + property LoginCode: string read FLoginCode write FLoginCode; + end; + + + + // ************************************************************************ // + // XML : DataTransferObject, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + DataTransferObject = class(TRemotable) + private + published + end; + + + + // ************************************************************************ // + // XML : GebruikerAfmeldenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + GebruikerAfmeldenResponse = class(DataTransferObject) + private + FHeader: ResponseHeader; + public + destructor Destroy; override; + published + property Header: ResponseHeader read FHeader write FHeader; + end; + + + + // ************************************************************************ // + // XML : GebruikerAanmeldenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + GebruikerAanmeldenResponse = class(DataTransferObject) + private + FHeader: ResponseHeader; + public + destructor Destroy; override; + published + property Header: ResponseHeader read FHeader write FHeader; + end; + + String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblSmpl] } + + + // ************************************************************************ // + // XML : RequestHeader, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + RequestHeader = class(TRemotable) + private + FInitialen: String_; + FComputerNaam: String_; + published + property Initialen: String_ read FInitialen write FInitialen; + property ComputerNaam: String_ read FComputerNaam write FComputerNaam; + end; + + + + // ************************************************************************ // + // XML : ResponseHeader, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + ResponseHeader = class(TRemotable) + private + FStatus: String_; + FOmschrijving: String_; + published + property Status: String_ read FStatus write FStatus; + property Omschrijving: String_ read FOmschrijving write FOmschrijving; + end; + + + // ************************************************************************ // + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // soapAction: http://www.vanhoecke.be/Halux/AAP/Gebruiker/WS.Halux.AAP.GebruikerService.%operationName% + // transport : http://schemas.xmlsoap.org/soap/http + // style : document + // use : literal + // binding : GebruikerServiceSoap + // service : GebruikerService + // port : GebruikerServiceSoap + // URL : http://tve-w7:57772/csp/dev1/WS.Halux.AAP.GebruikerService.cls + // ************************************************************************ // + GebruikerServiceSoap = interface(IInvokable) + ['{B88E6F54-A0CE-0BA2-3E36-0D17B4BAA312}'] + function GebruikerAanmelden(const GebruikerAanmeldenRequest: GebruikerAanmeldenRequest): GebruikerAanmeldenResponse; stdcall; + function GebruikerAfmelden(const GebruikerAfmeldenRequest: GebruikerAfmeldenRequest): GebruikerAfmeldenResponse; stdcall; + end; + +function GetGebruikerServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): GebruikerServiceSoap; + + +implementation + uses SysUtils; + +function GetGebruikerServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): GebruikerServiceSoap; +const + defWSDL = 'http://tve-w7:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1'; + defURL = 'http://tve-w7:57772/csp/dev1/WS.Halux.AAP.GebruikerService.cls'; + defSvc = 'GebruikerService'; + defPrt = 'GebruikerServiceSoap'; +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 GebruikerServiceSoap); + 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; + + +destructor GebruikerAfmeldenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure GebruikerAfmeldenRequest.SetInitialen(Index: Integer; const Astring: string); +begin + FInitialen := Astring; + FInitialen_Specified := True; +end; + +function GebruikerAfmeldenRequest.Initialen_Specified(Index: Integer): boolean; +begin + Result := FInitialen_Specified; +end; + +destructor GebruikerAanmeldenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor GebruikerAfmeldenResponse.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor GebruikerAanmeldenResponse.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +initialization + { GebruikerServiceSoap } + InvRegistry.RegisterInterface(TypeInfo(GebruikerServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'UTF-8'); + InvRegistry.RegisterDefaultSOAPAction(TypeInfo(GebruikerServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker/WS.Halux.AAP.GebruikerService.%operationName%'); + InvRegistry.RegisterInvokeOptions(TypeInfo(GebruikerServiceSoap), ioDocument); + { GebruikerServiceSoap.GebruikerAanmelden } + InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'GebruikerAanmelden', '', + '[ReturnName="GebruikerAanmeldenResult"]'); + { GebruikerServiceSoap.GebruikerAfmelden } + InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'GebruikerAfmelden', '', + '[ReturnName="GebruikerAfmeldenResult"]'); + RemClassRegistry.RegisterXSClass(GebruikerAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenRequest'); + RemClassRegistry.RegisterXSClass(GebruikerAanmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAanmeldenRequest'); + RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'DataTransferObject'); + RemClassRegistry.RegisterXSClass(GebruikerAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenResponse'); + RemClassRegistry.RegisterXSClass(GebruikerAanmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAanmeldenResponse'); + RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'String_', 'String'); + RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'RequestHeader'); + RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ResponseHeader'); + +end. \ No newline at end of file