Index: VerpakkingsDefinitie/UI/LogInScherm.pas
===================================================================
diff -u
--- VerpakkingsDefinitie/UI/LogInScherm.pas	(revision 0)
+++ VerpakkingsDefinitie/UI/LogInScherm.pas	(revision 546)
@@ -0,0 +1,43 @@
+unit LogInScherm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
+
+type
+  TfmLogin = class(TForm)
+    Label1: TLabel;
+    Label2: TLabel;
+    edtGebruikersnaam: TEdit;
+    Label3: TLabel;
+    edtWachtwoord: TEdit;
+    Panel1: TPanel;
+    procedure Panel1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  fmLogin: TfmLogin;
+
+implementation
+  uses
+  UserServerService, Agent;
+
+{$R *.dfm}
+
+procedure TfmLogin.Panel1Click(Sender: TObject);
+var
+  Response: PxStatus;
+  fAgent: TAgent;
+begin
+  fAgent := TAgent.Create();
+  Response := fAgent.GebruikerAanmelden(edtGebruikersnaam.Text, edtWachtwoord.Text);
+  edtGebruikersnaam.Text := Response.ToString
+end;
+
+end.
Index: VerpakkingsDefinitie/UI/Unit1.dfm
===================================================================
diff -u
--- VerpakkingsDefinitie/UI/Unit1.dfm	(revision 0)
+++ VerpakkingsDefinitie/UI/Unit1.dfm	(revision 546)
@@ -0,0 +1,62 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 276
+  ClientWidth = 591
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object LabelNummer1: TLabel
+    Left = 88
+    Top = 48
+    Width = 69
+    Height = 13
+    Align = alCustom
+    Caption = 'Dit is een label'
+  end
+  object Splitter1: TSplitter
+    Left = 0
+    Top = 0
+    Width = 1
+    Height = 276
+    ExplicitLeft = 3
+    ExplicitHeight = 299
+  end
+  object ButtonNummer1: TButton
+    Left = 200
+    Top = 136
+    Width = 163
+    Height = 25
+    Caption = 'Dit is een button'
+    TabOrder = 0
+    OnClick = ButtonNummer1Click
+  end
+  object Edit1: TEdit
+    Left = 216
+    Top = 87
+    Width = 121
+    Height = 21
+    TabOrder = 1
+    Text = 'Edit1'
+  end
+  object Panel1: TPanel
+    Left = 406
+    Top = 0
+    Width = 185
+    Height = 276
+    Align = alRight
+    BevelOuter = bvNone
+    Caption = 'Panel1'
+    TabOrder = 2
+    ExplicitLeft = 432
+    ExplicitTop = 67
+    ExplicitHeight = 41
+  end
+end
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/LogInScherm.pas'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/ProjectGroup1.groupproj'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/Project1.dpr'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/Agent.pas'.
FishEye: No comparison available.  Pass `N' to diff?
Index: VerpakkingsDefinitie/VerpakkingsDefinitie.identcache
===================================================================
diff -u -r545 -r546
Binary files differ
Index: VerpakkingsDefinitie/WS/GebruikerService.pas
===================================================================
diff -u
--- VerpakkingsDefinitie/WS/GebruikerService.pas	(revision 0)
+++ VerpakkingsDefinitie/WS/GebruikerService.pas	(revision 546)
@@ -0,0 +1,471 @@
+// ************************************************************************ //
+// The types declared in this file were generated from data read from the
+// WSDL File described below:
+// WSDL     : http://localhost:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1
+//  >Import : http://localhost:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1>0
+// Encoding : UTF-8
+// Version  : 1.0
+// (16/02/2021 14:30: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, <complexType>
+  // 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, <complexType>
+  // 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, <complexType>
+  // 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, <complexType>
+  // 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, <complexType>
+  // Namespace : http://www.vanhoecke.be/Halux/AAP/Gebruiker
+  // ************************************************************************ //
+  DataTransferObject = class(TRemotable)
+  private
+  published
+  end;
+
+
+
+  // ************************************************************************ //
+  // XML       : GebruikerAfmeldenResponse, global, <complexType>
+  // 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, <complexType>
+  // 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, <complexType>
+  // 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, <complexType>
+  // 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, <complexType>
+  // 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://localhost: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://localhost:57772/csp/dev1/WS.Halux.AAP.GebruikerService.CLS?WSDL=1';
+  defURL  = 'http://localhost: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.
\ No newline at end of file
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/Project1.dproj.local'.
FishEye: No comparison available.  Pass `N' to diff?
Index: VerpakkingsDefinitie/Main.pas
===================================================================
diff -u
--- VerpakkingsDefinitie/Main.pas	(revision 0)
+++ VerpakkingsDefinitie/Main.pas	(revision 546)
@@ -0,0 +1,24 @@
+unit Main;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
+
+type
+  TfrmMain = class(TForm)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmMain: TfrmMain;
+
+implementation
+
+{$R *.dfm}
+
+end.
Index: VerpakkingsDefinitie/Main.dfm
===================================================================
diff -u
--- VerpakkingsDefinitie/Main.dfm	(revision 0)
+++ VerpakkingsDefinitie/Main.dfm	(revision 546)
@@ -0,0 +1,16 @@
+object frmMain: TfrmMain
+  Left = 0
+  Top = 0
+  Caption = 'Verpakkings Definitie'
+  ClientHeight = 299
+  ClientWidth = 635
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+end
Index: VerpakkingsDefinitie/WS/UserServerService.pas
===================================================================
diff -u
--- VerpakkingsDefinitie/WS/UserServerService.pas	(revision 0)
+++ VerpakkingsDefinitie/WS/UserServerService.pas	(revision 546)
@@ -0,0 +1,296 @@
+// ************************************************************************ //
+// The types declared in this file were generated from data read from the
+// WSDL File described below:
+// WSDL     : http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.CLS?WSDL=1
+//  >Import : http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.CLS?WSDL=1>0
+// Encoding : UTF-8
+// Version  : 1.0
+// (16/04/2021 10:15:08 - - $Rev: 45757 $)
+// ************************************************************************ //
+
+unit UserServerService;
+
+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]
+  // !:boolean         - "http://www.w3.org/2001/XMLSchema"[Gbl]
+
+  pxStatus             = class;                 { "http://vhintra.vanhoecke.be"[GblCplx] }
+  pxLogIn              = class;                 { "http://vhintra.vanhoecke.be"[GblCplx] }
+
+
+
+  // ************************************************************************ //
+  // XML       : pxStatus, global, <complexType>
+  // Namespace : http://vhintra.vanhoecke.be
+  // ************************************************************************ //
+  pxStatus = class(TRemotable)
+  private
+    FIsOK: Boolean;
+    FIsOK_Specified: boolean;
+    FMessage_: string;
+    FMessage__Specified: boolean;
+    FInternalMessage: string;
+    FInternalMessage_Specified: boolean;
+    FData: string;
+    FData_Specified: boolean;
+    procedure SetIsOK(Index: Integer; const ABoolean: Boolean);
+    function  IsOK_Specified(Index: Integer): boolean;
+    procedure SetMessage_(Index: Integer; const Astring: string);
+    function  Message__Specified(Index: Integer): boolean;
+    procedure SetInternalMessage(Index: Integer; const Astring: string);
+    function  InternalMessage_Specified(Index: Integer): boolean;
+    procedure SetData(Index: Integer; const Astring: string);
+    function  Data_Specified(Index: Integer): boolean;
+  published
+    property IsOK:            Boolean  Index (IS_OPTN) read FIsOK write SetIsOK stored IsOK_Specified;
+    property Message_:        string   Index (IS_OPTN) read FMessage_ write SetMessage_ stored Message__Specified;
+    property InternalMessage: string   Index (IS_OPTN) read FInternalMessage write SetInternalMessage stored InternalMessage_Specified;
+    property Data:            string   Index (IS_OPTN) read FData write SetData stored Data_Specified;
+  end;
+
+
+
+  // ************************************************************************ //
+  // XML       : pxLogIn, global, <complexType>
+  // Namespace : http://vhintra.vanhoecke.be
+  // ************************************************************************ //
+  pxLogIn = class(TRemotable)
+  private
+    FSessionKey: string;
+    FSessionKey_Specified: boolean;
+    FToegangID: string;
+    FToegangID_Specified: boolean;
+    FGebruikersNaam: string;
+    FGebruikersNaam_Specified: boolean;
+    FSettings: string;
+    FSettings_Specified: boolean;
+    FInDevelop: Boolean;
+    FInDevelop_Specified: boolean;
+    FServerName: string;
+    FServerName_Specified: boolean;
+    procedure SetSessionKey(Index: Integer; const Astring: string);
+    function  SessionKey_Specified(Index: Integer): boolean;
+    procedure SetToegangID(Index: Integer; const Astring: string);
+    function  ToegangID_Specified(Index: Integer): boolean;
+    procedure SetGebruikersNaam(Index: Integer; const Astring: string);
+    function  GebruikersNaam_Specified(Index: Integer): boolean;
+    procedure SetSettings(Index: Integer; const Astring: string);
+    function  Settings_Specified(Index: Integer): boolean;
+    procedure SetInDevelop(Index: Integer; const ABoolean: Boolean);
+    function  InDevelop_Specified(Index: Integer): boolean;
+    procedure SetServerName(Index: Integer; const Astring: string);
+    function  ServerName_Specified(Index: Integer): boolean;
+  published
+    property SessionKey:     string   Index (IS_OPTN) read FSessionKey write SetSessionKey stored SessionKey_Specified;
+    property ToegangID:      string   Index (IS_OPTN) read FToegangID write SetToegangID stored ToegangID_Specified;
+    property GebruikersNaam: string   Index (IS_OPTN) read FGebruikersNaam write SetGebruikersNaam stored GebruikersNaam_Specified;
+    property Settings:       string   Index (IS_OPTN) read FSettings write SetSettings stored Settings_Specified;
+    property InDevelop:      Boolean  Index (IS_OPTN) read FInDevelop write SetInDevelop stored InDevelop_Specified;
+    property ServerName:     string   Index (IS_OPTN) read FServerName write SetServerName stored ServerName_Specified;
+  end;
+
+
+  // ************************************************************************ //
+  // Namespace : http://vhintra.vanhoecke.be
+  // soapAction: http://vhintra.vanhoecke.be/WS.Sys.Toegang.UserServer.%operationName%
+  // transport : http://schemas.xmlsoap.org/soap/http
+  // style     : document
+  // use       : literal
+  // binding   : UserServerSoap
+  // service   : UserServer
+  // port      : UserServerSoap
+  // URL       : http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.cls
+  // ************************************************************************ //
+  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;
+  end;
+
+function GetUserServerSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): UserServerSoap;
+
+
+implementation
+  uses SysUtils;
+
+function GetUserServerSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): UserServerSoap;
+const
+  defWSDL = 'http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.CLS?WSDL=1';
+  defURL  = 'http://cachedevut2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.cls';
+  defSvc  = 'UserServer';
+  defPrt  = 'UserServerSoap';
+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 UserServerSoap);
+    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;
+
+
+procedure pxStatus.SetIsOK(Index: Integer; const ABoolean: Boolean);
+begin
+  FIsOK := ABoolean;
+  FIsOK_Specified := True;
+end;
+
+function pxStatus.IsOK_Specified(Index: Integer): boolean;
+begin
+  Result := FIsOK_Specified;
+end;
+
+procedure pxStatus.SetMessage_(Index: Integer; const Astring: string);
+begin
+  FMessage_ := Astring;
+  FMessage__Specified := True;
+end;
+
+function pxStatus.Message__Specified(Index: Integer): boolean;
+begin
+  Result := FMessage__Specified;
+end;
+
+procedure pxStatus.SetInternalMessage(Index: Integer; const Astring: string);
+begin
+  FInternalMessage := Astring;
+  FInternalMessage_Specified := True;
+end;
+
+function pxStatus.InternalMessage_Specified(Index: Integer): boolean;
+begin
+  Result := FInternalMessage_Specified;
+end;
+
+procedure pxStatus.SetData(Index: Integer; const Astring: string);
+begin
+  FData := Astring;
+  FData_Specified := True;
+end;
+
+function pxStatus.Data_Specified(Index: Integer): boolean;
+begin
+  Result := FData_Specified;
+end;
+
+procedure pxLogIn.SetSessionKey(Index: Integer; const Astring: string);
+begin
+  FSessionKey := Astring;
+  FSessionKey_Specified := True;
+end;
+
+function pxLogIn.SessionKey_Specified(Index: Integer): boolean;
+begin
+  Result := FSessionKey_Specified;
+end;
+
+procedure pxLogIn.SetToegangID(Index: Integer; const Astring: string);
+begin
+  FToegangID := Astring;
+  FToegangID_Specified := True;
+end;
+
+function pxLogIn.ToegangID_Specified(Index: Integer): boolean;
+begin
+  Result := FToegangID_Specified;
+end;
+
+procedure pxLogIn.SetGebruikersNaam(Index: Integer; const Astring: string);
+begin
+  FGebruikersNaam := Astring;
+  FGebruikersNaam_Specified := True;
+end;
+
+function pxLogIn.GebruikersNaam_Specified(Index: Integer): boolean;
+begin
+  Result := FGebruikersNaam_Specified;
+end;
+
+procedure pxLogIn.SetSettings(Index: Integer; const Astring: string);
+begin
+  FSettings := Astring;
+  FSettings_Specified := True;
+end;
+
+function pxLogIn.Settings_Specified(Index: Integer): boolean;
+begin
+  Result := FSettings_Specified;
+end;
+
+procedure pxLogIn.SetInDevelop(Index: Integer; const ABoolean: Boolean);
+begin
+  FInDevelop := ABoolean;
+  FInDevelop_Specified := True;
+end;
+
+function pxLogIn.InDevelop_Specified(Index: Integer): boolean;
+begin
+  Result := FInDevelop_Specified;
+end;
+
+procedure pxLogIn.SetServerName(Index: Integer; const Astring: string);
+begin
+  FServerName := Astring;
+  FServerName_Specified := True;
+end;
+
+function pxLogIn.ServerName_Specified(Index: Integer): boolean;
+begin
+  Result := FServerName_Specified;
+end;
+
+initialization
+  { UserServerSoap }
+  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"]');
+  RemClassRegistry.RegisterXSClass(pxStatus, 'http://vhintra.vanhoecke.be', 'pxStatus');
+  RemClassRegistry.RegisterExternalPropName(TypeInfo(pxStatus), 'Message_', '[ExtName="Message"]');
+  RemClassRegistry.RegisterXSClass(pxLogIn, 'http://vhintra.vanhoecke.be', 'pxLogIn');
+
+end.
Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dpr
===================================================================
diff -u -r533 -r546
--- VerpakkingsDefinitie/VerpakkingsDefinitie.dpr	(.../VerpakkingsDefinitie.dpr)	(revision 533)
+++ VerpakkingsDefinitie/VerpakkingsDefinitie.dpr	(.../VerpakkingsDefinitie.dpr)	(revision 546)
@@ -2,11 +2,11 @@
 
 uses
   Vcl.Forms,
-  Unit1 in 'Unit1.pas' {Form1},
-  GebruikerService in 'GebruikerService.pas',
-  LogInScherm in 'LogInScherm.pas' {fmLogin},
-  UserServerService in 'UserServerService.pas',
-  Agent in 'Agent.pas';
+  Unit1 in 'UI\Unit1.pas' {Form1},
+  GebruikerService in 'WS\GebruikerService.pas',
+  LogInScherm in 'UI\LogInScherm.pas' {fmLogin},
+  UserServerService in 'WS\UserServerService.pas',
+  Agent in 'WS\Agent.pas';
 
 {$R *.res}
 
Index: VerpakkingsDefinitie/UI/Unit1.pas
===================================================================
diff -u
--- VerpakkingsDefinitie/UI/Unit1.pas	(revision 0)
+++ VerpakkingsDefinitie/UI/Unit1.pas	(revision 546)
@@ -0,0 +1,35 @@
+unit Unit1;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
+
+type
+  TForm1 = class(TForm)
+    LabelNummer1: TLabel;
+    ButtonNummer1: TButton;
+    Edit1: TEdit;
+    Splitter1: TSplitter;
+    Panel1: TPanel;
+    procedure ButtonNummer1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.ButtonNummer1Click(Sender: TObject);
+begin
+    LabelNummer1.Caption := Edit1.Text;
+end;
+
+end.
Index: VerpakkingsDefinitie/UI/LogInScherm.dfm
===================================================================
diff -u
--- VerpakkingsDefinitie/UI/LogInScherm.dfm	(revision 0)
+++ VerpakkingsDefinitie/UI/LogInScherm.dfm	(revision 546)
@@ -0,0 +1,90 @@
+object fmLogin: TfmLogin
+  Left = 0
+  Top = 0
+  BorderStyle = bsSingle
+  Caption = 'Log In'
+  ClientHeight = 443
+  ClientWidth = 972
+  Color = 1513421
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 384
+    Top = 104
+    Width = 162
+    Height = 52
+    Caption = 'vHintra'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -43
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 408
+    Top = 162
+    Width = 116
+    Height = 16
+    Caption = 'GEBRUIKERSNAAM'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label3: TLabel
+    Left = 416
+    Top = 211
+    Width = 96
+    Height = 16
+    Caption = 'WACHTWOORD'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object edtGebruikersnaam: TEdit
+    Left = 384
+    Top = 184
+    Width = 161
+    Height = 21
+    TabOrder = 0
+  end
+  object edtWachtwoord: TEdit
+    Left = 384
+    Top = 233
+    Width = 161
+    Height = 21
+    TabOrder = 1
+  end
+  object Panel1: TPanel
+    Left = 418
+    Top = 268
+    Width = 94
+    Height = 25
+    BevelEdges = []
+    BevelOuter = bvSpace
+    BiDiMode = bdLeftToRight
+    Caption = 'LOG IN'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentBiDiMode = False
+    ParentFont = False
+    TabOrder = 2
+    OnClick = Panel1Click
+  end
+end
Index: VerpakkingsDefinitie/WS/Agent.pas
===================================================================
diff -u
--- VerpakkingsDefinitie/WS/Agent.pas	(revision 0)
+++ VerpakkingsDefinitie/WS/Agent.pas	(revision 546)
@@ -0,0 +1,42 @@
+unit Agent;
+
+interface
+uses UserServerService;
+type
+TAgent = class
+  private
+    fServer: String;
+    fUserServerSoap: UserServerSoap;
+  public
+    Constructor Create(); overload;
+    function GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string): PxStatus;
+end;
+implementation
+
+constructor TAgent.Create();
+var
+  fNamespace: string;
+begin
+  fServer := 'cachedevut2010';
+  fNameSpace := 'dev1';
+  if fServer = 'cache01' then
+    fNameSpace := 'admin1';
+  fUserServerSoap := UserServerService.GetUserServerSoap(false,'http://'+fServer+':57772/csp/'+fNameSpace+'/WS.Halux.AAP.GebruikerService.cls',nil);
+  end;
+
+function TAgent.GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string): PxStatus;
+var
+  Request : PxStatus;
+  LogInObject :  PxLogin;
+  fTest : string;
+begin
+  Request := PxStatus.Create;
+  LogInObject := PxLogin.Create;
+  try
+    Result := fUserServerSoap.LogIn('vhintra', Gebruikersnaam, Wachtwoord, '1', LogInObject );
+    fTest := 'hoi'
+  finally
+
+  end;
+end;
+end.
Index: VerpakkingsDefinitie/Project1.res
===================================================================
diff -u -r533 -r546
Binary files differ
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/GebruikerService.pas'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/UserServerService.pas'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/Unit1.dfm'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/LogInScherm.dfm'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/ProjectGroup1.groupproj.local'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/Project1.dproj'.
FishEye: No comparison available.  Pass `N' to diff?
Index: VerpakkingsDefinitie/Project1.identcache
===================================================================
diff -u -r533 -r546
Binary files differ
FishEye: Tag 546 refers to a dead (removed) revision in file `VerpakkingsDefinitie/Unit1.pas'.
FishEye: No comparison available.  Pass `N' to diff?