Index: PlanScan/WS/GebruikerService.pas =================================================================== diff -u -r259 -r283 --- PlanScan/WS/GebruikerService.pas (.../GebruikerService.pas) (revision 259) +++ PlanScan/WS/GebruikerService.pas (.../GebruikerService.pas) (revision 283) @@ -1,11 +1,11 @@ // ************************************************************************ // // 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 +// 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 -// (5/03/2019 10:53:16 - - $Rev: 45757 $) +// (2/03/2020 9:30:33 - - $Rev: 45757 $) // ************************************************************************ // unit GebruikerService; @@ -16,6 +16,8 @@ const IS_OPTN = $0001; + IS_UNBD = $0002; + IS_NLBL = $0004; IS_REF = $0080; @@ -28,26 +30,66 @@ // 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] - GebruikerAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } GebruikerAanmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + ZoekGebruikersRequest = 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] } - RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblCplx] } + ZoekGebruikersResponse = 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 : GebruikerAfmeldenRequest, global, + // XML : GebruikerAanmeldenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker // ************************************************************************ // - GebruikerAfmeldenRequest = class(TRemotable) + 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 : ZoekGebruikersRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker + // ************************************************************************ // + ZoekGebruikersRequest = class(TRemotable) + private + FHeader: RequestHeader; + FLoginCode: string; FInitialen: string; FInitialen_Specified: boolean; FComputernaam: string; @@ -65,20 +107,25 @@ // ************************************************************************ // - // XML : GebruikerAanmeldenRequest, global, + // XML : GebruikerAfmeldenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker // ************************************************************************ // - GebruikerAanmeldenRequest = class(TRemotable) + GebruikerAfmeldenRequest = class(TRemotable) private FHeader: RequestHeader; - FInitialen: string; 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 Initialen: string read FInitialen write FInitialen; - property LoginCode: string read FLoginCode write FLoginCode; + 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; @@ -122,25 +169,67 @@ property Header: ResponseHeader read FHeader write FHeader; end; - String_ = type string; { "http://www.vanhoecke.be/Halux/AAP/Gebruiker"[GblSmpl] } // ************************************************************************ // - // XML : RequestHeader, global, + // XML : ZoekGebruikersResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker // ************************************************************************ // - RequestHeader = class(TRemotable) + ZoekGebruikersResponse = class(DataTransferObject) private - FInitialen: String_; - FComputerNaam: String_; + 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 Initialen: String_ read FInitialen write FInitialen; - property ComputerNaam: String_ read FComputerNaam write FComputerNaam; + 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 // ************************************************************************ // @@ -169,6 +258,7 @@ ['{B88E6F54-A0CE-0BA2-3E36-0D17B4BAA312}'] function GebruikerAanmelden(const GebruikerAanmeldenRequest: GebruikerAanmeldenRequest): GebruikerAanmeldenResponse; stdcall; function GebruikerAfmelden(const GebruikerAfmeldenRequest: GebruikerAfmeldenRequest): GebruikerAfmeldenResponse; stdcall; + function ZoekGebruikers(const ZoakGebruikersRequest: ZoekGebruikersRequest): ZoekGebruikersResponse; stdcall; end; function GetGebruikerServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): GebruikerServiceSoap; @@ -214,6 +304,29 @@ end; +destructor GebruikerAanmeldenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +destructor ZoekGebruikersRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +procedure ZoekGebruikersRequest.SetInitialen(Index: Integer; const Astring: string); +begin + FInitialen := Astring; + FInitialen_Specified := True; +end; + +function ZoekGebruikersRequest.Initialen_Specified(Index: Integer): boolean; +begin + Result := FInitialen_Specified; +end; + destructor GebruikerAfmeldenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -231,24 +344,102 @@ Result := FInitialen_Specified; end; -destructor GebruikerAanmeldenRequest.Destroy; +destructor GebruikerAfmeldenResponse.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor GebruikerAfmeldenResponse.Destroy; +destructor GebruikerAanmeldenResponse.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor GebruikerAanmeldenResponse.Destroy; +destructor ZoekGebruikersResponse.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 ZoekGebruikersResponse.SetGebruikers(Index: Integer; const AArrayOfGebruikerGebruiker: ArrayOfGebruikerGebruiker); +begin + FGebruikers := AArrayOfGebruikerGebruiker; + FGebruikers_Specified := True; +end; + +function ZoekGebruikersResponse.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'); @@ -260,13 +451,21 @@ { GebruikerServiceSoap.GebruikerAfmelden } InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'GebruikerAfmelden', '', '[ReturnName="GebruikerAfmeldenResult"]'); - RemClassRegistry.RegisterXSClass(GebruikerAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'GebruikerAfmeldenRequest'); + { GebruikerServiceSoap.ZoekGebruikers } + InvRegistry.RegisterMethodInfo(TypeInfo(GebruikerServiceSoap), 'ZoekGebruikers', '', + '[ReturnName="ZoekGebruikersResult"]'); + 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(ZoekGebruikersRequest, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekGebruikersRequest'); + 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.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(ZoekGebruikersResponse, 'http://www.vanhoecke.be/Halux/AAP/Gebruiker', 'ZoekGebruikersResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekGebruikersResponse), '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. \ No newline at end of file