// ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1 // >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1>0 // Encoding : UTF-8 // Version : 1.0 // (7/05/2020 8:38:23 - - $Rev: 45757 $) // ************************************************************************ // unit GebruikerService; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; const IS_OPTN = $0001; IS_UNBD = $0002; IS_NLBL = $0004; 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. // ************************************************************************ // // !:dateTime - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] GebruikerAanmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } ZoekAangemeldeGebruikersRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } GebruikerAfmeldenRequest = 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] } ZoekAangemeldeGebruikersResponse = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } Gebruiker = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } ArrayOfGebruikerGebruiker = array of Gebruiker; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblSmpl] } // ************************************************************************ // // 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 : 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 : ZoekAangemeldeGebruikersRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker // ************************************************************************ // ZoekAangemeldeGebruikersRequest = 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 : 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 : 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; // ************************************************************************ // // XML : ZoekAangemeldeGebruikersResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker // ************************************************************************ // ZoekAangemeldeGebruikersResponse = class(DataTransferObject) private FHeader: ResponseHeader; FGebruikers: ArrayOfGebruikerGebruiker; FGebruikers_Specified: boolean; procedure SetGebruikers(Index: Integer; const AArrayOfGebruikerGebruiker: ArrayOfGebruikerGebruiker); function Gebruikers_Specified(Index: Integer): boolean; public destructor Destroy; override; published property Header: ResponseHeader read FHeader write FHeader; property Gebruikers: ArrayOfGebruikerGebruiker Index (IS_OPTN or IS_UNBD or IS_NLBL) read FGebruikers write SetGebruikers stored Gebruikers_Specified; end; // ************************************************************************ // // XML : Gebruiker, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker // ************************************************************************ // Gebruiker = class(DataTransferObject) private FLoginCode: string; FLoginCode_Specified: boolean; FInitialen: string; FInitialen_Specified: boolean; FComputerNaam: string; FComputerNaam_Specified: boolean; FAangemeldSinds: TXSDateTime; FAangemeldSinds_Specified: boolean; FLaatsteActiviteit: TXSDateTime; FLaatsteActiviteit_Specified: boolean; procedure SetLoginCode(Index: Integer; const Astring: string); function LoginCode_Specified(Index: Integer): boolean; procedure SetInitialen(Index: Integer; const Astring: string); function Initialen_Specified(Index: Integer): boolean; procedure SetComputerNaam(Index: Integer; const Astring: string); function ComputerNaam_Specified(Index: Integer): boolean; procedure SetAangemeldSinds(Index: Integer; const ATXSDateTime: TXSDateTime); function AangemeldSinds_Specified(Index: Integer): boolean; procedure SetLaatsteActiviteit(Index: Integer; const ATXSDateTime: TXSDateTime); function LaatsteActiviteit_Specified(Index: Integer): boolean; public destructor Destroy; override; published property LoginCode: string Index (IS_OPTN) read FLoginCode write SetLoginCode stored LoginCode_Specified; property Initialen: string Index (IS_OPTN) read FInitialen write SetInitialen stored Initialen_Specified; property ComputerNaam: string Index (IS_OPTN) read FComputerNaam write SetComputerNaam stored ComputerNaam_Specified; property AangemeldSinds: TXSDateTime Index (IS_OPTN) read FAangemeldSinds write SetAangemeldSinds stored AangemeldSinds_Specified; property LaatsteActiviteit: TXSDateTime Index (IS_OPTN) read FLaatsteActiviteit write SetLaatsteActiviteit stored LaatsteActiviteit_Specified; 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-w10: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; function ZoekAangemeldeGebruikers(const ZoekAangemeldeGebruikersRequest: ZoekAangemeldeGebruikersRequest): ZoekAangemeldeGebruikersResponse; 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-w10:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1'; defURL = 'http://tve-w10: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 GebruikerAanmeldenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ZoekAangemeldeGebruikersRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; procedure ZoekAangemeldeGebruikersRequest.SetInitialen(Index: Integer; const Astring: string); begin FInitialen := Astring; FInitialen_Specified := True; end; function ZoekAangemeldeGebruikersRequest.Initialen_Specified(Index: Integer): boolean; begin Result := FInitialen_Specified; 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 GebruikerAfmeldenResponse.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor GebruikerAanmeldenResponse.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; destructor ZoekAangemeldeGebruikersResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FGebruikers)-1 do SysUtils.FreeAndNil(FGebruikers[I]); System.SetLength(FGebruikers, 0); SysUtils.FreeAndNil(FHeader); inherited Destroy; end; procedure ZoekAangemeldeGebruikersResponse.SetGebruikers(Index: Integer; const AArrayOfGebruikerGebruiker: ArrayOfGebruikerGebruiker); begin FGebruikers := AArrayOfGebruikerGebruiker; FGebruikers_Specified := True; end; function ZoekAangemeldeGebruikersResponse.Gebruikers_Specified(Index: Integer): boolean; begin Result := FGebruikers_Specified; end; destructor Gebruiker.Destroy; begin SysUtils.FreeAndNil(FAangemeldSinds); SysUtils.FreeAndNil(FLaatsteActiviteit); inherited Destroy; end; procedure Gebruiker.SetLoginCode(Index: Integer; const Astring: string); begin FLoginCode := Astring; FLoginCode_Specified := True; end; function Gebruiker.LoginCode_Specified(Index: Integer): boolean; begin Result := FLoginCode_Specified; end; procedure Gebruiker.SetInitialen(Index: Integer; const Astring: string); begin FInitialen := Astring; FInitialen_Specified := True; end; function Gebruiker.Initialen_Specified(Index: Integer): boolean; begin Result := FInitialen_Specified; end; procedure Gebruiker.SetComputerNaam(Index: Integer; const Astring: string); begin FComputerNaam := Astring; FComputerNaam_Specified := True; end; function Gebruiker.ComputerNaam_Specified(Index: Integer): boolean; begin Result := FComputerNaam_Specified; end; procedure Gebruiker.SetAangemeldSinds(Index: Integer; const ATXSDateTime: TXSDateTime); begin FAangemeldSinds := ATXSDateTime; FAangemeldSinds_Specified := True; end; function Gebruiker.AangemeldSinds_Specified(Index: Integer): boolean; begin Result := FAangemeldSinds_Specified; end; procedure Gebruiker.SetLaatsteActiviteit(Index: Integer; const ATXSDateTime: TXSDateTime); begin FLaatsteActiviteit := ATXSDateTime; FLaatsteActiviteit_Specified := True; end; function Gebruiker.LaatsteActiviteit_Specified(Index: Integer): boolean; begin Result := FLaatsteActiviteit_Specified; 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"]'); { GebruikerServiceSoap.ZoekAangemeldeGebruikers } InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'ZoekAangemeldeGebruikers', '', '[ReturnName="ZoekAangemeldeGebruikersResult"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfGebruikerGebruiker), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ArrayOfGebruikerGebruiker'); RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'String_', 'String'); RemClassRegistry.RegisterXSClass(GebruikerAanmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAanmeldenRequest'); RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'RequestHeader'); RemClassRegistry.RegisterXSClass(ZoekAangemeldeGebruikersRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekAangemeldeGebruikersRequest'); RemClassRegistry.RegisterXSClass(GebruikerAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenRequest'); 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.RegisterXSClass(ZoekAangemeldeGebruikersResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekAangemeldeGebruikersResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAangemeldeGebruikersResponse), 'Gebruikers', '[ArrayItemName="Gebruiker"]'); RemClassRegistry.RegisterXSClass(Gebruiker, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'Gebruiker'); RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ResponseHeader'); end.