Index: VerpakkingsDefinitie/WS/UserServerService.pas
===================================================================
diff -u -r548 -r551
--- VerpakkingsDefinitie/WS/UserServerService.pas	(.../UserServerService.pas)	(revision 548)
+++ VerpakkingsDefinitie/WS/UserServerService.pas	(.../UserServerService.pas)	(revision 551)
@@ -4,9 +4,9 @@
 // WSDL     : http://cacheaccept2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.CLS?WSDL=1
 //  >Import : http://cacheaccept2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.CLS?WSDL=1>0
 // Encoding : UTF-8
-// Codegen  : [wfSkipUnusedTypes-, wfAllowOutParameters+]
+// Codegen  : [wfUnwindLiteralParameters-, wfOutputLiteralTypes+]
 // Version  : 1.0
-// (2/08/2021 14:58:05 - - $Rev: 45757 $)
+// (3/08/2021 12:55:09 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit UserServerService;
@@ -32,12 +32,105 @@
   // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
   // !:boolean         - "http://www.w3.org/2001/XMLSchema"[Gbl]
 
+  LogInResponse        = class;                 { "http://vhintra.vanhoecke.be"[GblElm] }
+  LogOutResponse       = class;                 { "http://vhintra.vanhoecke.be"[GblElm] }
+  LogOut               = class;                 { "http://vhintra.vanhoecke.be"[GblElm] }
+  LogIn                = class;                 { "http://vhintra.vanhoecke.be"[GblElm] }
   pxStatus             = class;                 { "http://vhintra.vanhoecke.be"[GblCplx] }
   pxLogIn              = class;                 { "http://vhintra.vanhoecke.be"[GblCplx] }
 
 
 
   // ************************************************************************ //
+  // XML       : LogInResponse, global, <element>
+  // Namespace : http://vhintra.vanhoecke.be
+  // ************************************************************************ //
+  LogInResponse = class(TRemotable)
+  private
+    FLogInResult: pxStatus;
+    FpxLogIn: pxLogIn;
+    FpxLogIn_Specified: boolean;
+    procedure SetpxLogIn(Index: Integer; const ApxLogIn: pxLogIn);
+    function  pxLogIn_Specified(Index: Integer): boolean;
+  public
+    destructor Destroy; override;
+  published
+    property LogInResult: pxStatus  read FLogInResult write FLogInResult;
+    property pxLogIn:     pxLogIn   Index (IS_OPTN) read FpxLogIn write SetpxLogIn stored pxLogIn_Specified;
+  end;
+
+
+
+  // ************************************************************************ //
+  // XML       : LogOutResponse, global, <element>
+  // Namespace : http://vhintra.vanhoecke.be
+  // ************************************************************************ //
+  LogOutResponse = class(TRemotable)
+  private
+    FLogOutResult: pxStatus;
+  public
+    destructor Destroy; override;
+  published
+    property LogOutResult: pxStatus  read FLogOutResult write FLogOutResult;
+  end;
+
+
+
+  // ************************************************************************ //
+  // XML       : LogOut, global, <element>
+  // Namespace : http://vhintra.vanhoecke.be
+  // ************************************************************************ //
+  LogOut = class(TRemotable)
+  private
+    FSessionKey: string;
+    FSessionKey_Specified: boolean;
+    procedure SetSessionKey(Index: Integer; const Astring: string);
+    function  SessionKey_Specified(Index: Integer): boolean;
+  published
+    property SessionKey: string  Index (IS_OPTN) read FSessionKey write SetSessionKey stored SessionKey_Specified;
+  end;
+
+
+
+  // ************************************************************************ //
+  // XML       : LogIn, global, <element>
+  // Namespace : http://vhintra.vanhoecke.be
+  // ************************************************************************ //
+  LogIn = class(TRemotable)
+  private
+    FApplication_: string;
+    FApplication__Specified: boolean;
+    FGebruikersNaam: string;
+    FGebruikersNaam_Specified: boolean;
+    FWachtWoord: string;
+    FWachtWoord_Specified: boolean;
+    FDomein: string;
+    FDomein_Specified: boolean;
+    FpxLogIn: pxLogIn;
+    FpxLogIn_Specified: boolean;
+    procedure SetApplication_(Index: Integer; const Astring: string);
+    function  Application__Specified(Index: Integer): boolean;
+    procedure SetGebruikersNaam(Index: Integer; const Astring: string);
+    function  GebruikersNaam_Specified(Index: Integer): boolean;
+    procedure SetWachtWoord(Index: Integer; const Astring: string);
+    function  WachtWoord_Specified(Index: Integer): boolean;
+    procedure SetDomein(Index: Integer; const Astring: string);
+    function  Domein_Specified(Index: Integer): boolean;
+    procedure SetpxLogIn(Index: Integer; const ApxLogIn: pxLogIn);
+    function  pxLogIn_Specified(Index: Integer): boolean;
+  public
+    destructor Destroy; override;
+  published
+    property Application_:   string   Index (IS_OPTN) read FApplication_ write SetApplication_ stored Application__Specified;
+    property GebruikersNaam: string   Index (IS_OPTN) read FGebruikersNaam write SetGebruikersNaam stored GebruikersNaam_Specified;
+    property WachtWoord:     string   Index (IS_OPTN) read FWachtWoord write SetWachtWoord stored WachtWoord_Specified;
+    property Domein:         string   Index (IS_OPTN) read FDomein write SetDomein stored Domein_Specified;
+    property pxLogIn:        pxLogIn  Index (IS_OPTN) read FpxLogIn write SetpxLogIn stored pxLogIn_Specified;
+  end;
+
+
+
+  // ************************************************************************ //
   // XML       : pxStatus, global, <complexType>
   // Namespace : http://vhintra.vanhoecke.be
   // ************************************************************************ //
@@ -121,8 +214,8 @@
   // ************************************************************************ //
   UserServerSoap = interface(IInvokable)
   ['{161BA6C5-717D-1FD5-0A06-6B43E6A58125}']
-    function  LogIn(const Application_: string; const GebruikersNaam: string; const WachtWoord: string; const Domein: string; var pxLogIn: pxLogIn): pxStatus; stdcall;
-    function  LogOut(const SessionKey: string): pxStatus; stdcall;
+    function  LogIn(const parameters: LogIn): LogInResponse; stdcall;
+    function  LogOut(const parameters: LogOut): LogOutResponse; stdcall;
   end;
 
 function GetUserServerSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): UserServerSoap;
@@ -168,6 +261,102 @@
 end;
 
 
+destructor LogInResponse.Destroy;
+begin
+  SysUtils.FreeAndNil(FLogInResult);
+  SysUtils.FreeAndNil(FpxLogIn);
+  inherited Destroy;
+end;
+
+procedure LogInResponse.SetpxLogIn(Index: Integer; const ApxLogIn: pxLogIn);
+begin
+  FpxLogIn := ApxLogIn;
+  FpxLogIn_Specified := True;
+end;
+
+function LogInResponse.pxLogIn_Specified(Index: Integer): boolean;
+begin
+  Result := FpxLogIn_Specified;
+end;
+
+destructor LogOutResponse.Destroy;
+begin
+  SysUtils.FreeAndNil(FLogOutResult);
+  inherited Destroy;
+end;
+
+procedure LogOut.SetSessionKey(Index: Integer; const Astring: string);
+begin
+  FSessionKey := Astring;
+  FSessionKey_Specified := True;
+end;
+
+function LogOut.SessionKey_Specified(Index: Integer): boolean;
+begin
+  Result := FSessionKey_Specified;
+end;
+
+destructor LogIn.Destroy;
+begin
+  SysUtils.FreeAndNil(FpxLogIn);
+  inherited Destroy;
+end;
+
+procedure LogIn.SetApplication_(Index: Integer; const Astring: string);
+begin
+  FApplication_ := Astring;
+  FApplication__Specified := True;
+end;
+
+function LogIn.Application__Specified(Index: Integer): boolean;
+begin
+  Result := FApplication__Specified;
+end;
+
+procedure LogIn.SetGebruikersNaam(Index: Integer; const Astring: string);
+begin
+  FGebruikersNaam := Astring;
+  FGebruikersNaam_Specified := True;
+end;
+
+function LogIn.GebruikersNaam_Specified(Index: Integer): boolean;
+begin
+  Result := FGebruikersNaam_Specified;
+end;
+
+procedure LogIn.SetWachtWoord(Index: Integer; const Astring: string);
+begin
+  FWachtWoord := Astring;
+  FWachtWoord_Specified := True;
+end;
+
+function LogIn.WachtWoord_Specified(Index: Integer): boolean;
+begin
+  Result := FWachtWoord_Specified;
+end;
+
+procedure LogIn.SetDomein(Index: Integer; const Astring: string);
+begin
+  FDomein := Astring;
+  FDomein_Specified := True;
+end;
+
+function LogIn.Domein_Specified(Index: Integer): boolean;
+begin
+  Result := FDomein_Specified;
+end;
+
+procedure LogIn.SetpxLogIn(Index: Integer; const ApxLogIn: pxLogIn);
+begin
+  FpxLogIn := ApxLogIn;
+  FpxLogIn_Specified := True;
+end;
+
+function LogIn.pxLogIn_Specified(Index: Integer): boolean;
+begin
+  Result := FpxLogIn_Specified;
+end;
+
 procedure pxStatus.SetIsOK(Index: Integer; const ABoolean: Boolean);
 begin
   FIsOK := ABoolean;
@@ -283,13 +472,12 @@
   InvRegistry.RegisterInterface(TypeInfo(UserServerSoap), 'http://vhintra.vanhoecke.be', 'UTF-8');
   InvRegistry.RegisterDefaultSOAPAction(TypeInfo(UserServerSoap), 'http://vhintra.vanhoecke.be/WS.Sys.Toegang.UserServer.%operationName%');
   InvRegistry.RegisterInvokeOptions(TypeInfo(UserServerSoap), ioDocument);
-  { UserServerSoap.LogIn }
-  InvRegistry.RegisterMethodInfo(TypeInfo(UserServerSoap), 'LogIn', '',
-                                 '[ReturnName="LogInResult"]');
-  InvRegistry.RegisterParamInfo(TypeInfo(UserServerSoap), 'LogIn', 'Application_', 'Application', '');
-  { UserServerSoap.LogOut }
-  InvRegistry.RegisterMethodInfo(TypeInfo(UserServerSoap), 'LogOut', '',
-                                 '[ReturnName="LogOutResult"]');
+  InvRegistry.RegisterInvokeOptions(TypeInfo(UserServerSoap), ioLiteral);
+  RemClassRegistry.RegisterXSClass(LogInResponse, 'http://vhintra.vanhoecke.be', 'LogInResponse');
+  RemClassRegistry.RegisterXSClass(LogOutResponse, 'http://vhintra.vanhoecke.be', 'LogOutResponse');
+  RemClassRegistry.RegisterXSClass(LogOut, 'http://vhintra.vanhoecke.be', 'LogOut');
+  RemClassRegistry.RegisterXSClass(LogIn, 'http://vhintra.vanhoecke.be', 'LogIn');
+  RemClassRegistry.RegisterExternalPropName(TypeInfo(LogIn), 'Application_', '[ExtName="Application"]');
   RemClassRegistry.RegisterXSClass(pxStatus, 'http://vhintra.vanhoecke.be', 'pxStatus');
   RemClassRegistry.RegisterExternalPropName(TypeInfo(pxStatus), 'Message_', '[ExtName="Message"]');
   RemClassRegistry.RegisterXSClass(pxLogIn, 'http://vhintra.vanhoecke.be', 'pxLogIn');