Index: VerpakkingsDefinitie/Agent.pas
===================================================================
diff -u -r533 -r545
--- VerpakkingsDefinitie/Agent.pas	(.../Agent.pas)	(revision 533)
+++ VerpakkingsDefinitie/Agent.pas	(.../Agent.pas)	(revision 545)
@@ -6,13 +6,10 @@
 TAgent = class
   private
     fServer: String;
-    fUserServerSoap = UserServerSoap;
-    fSessionKey: String;
-    function ComputerName: String;
-    function WUserName: String;
-
+    fUserServerSoap: UserServerSoap;
   public
     Constructor Create(); overload;
+    function GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string): PxStatus;
 end;
 implementation
 
@@ -26,4 +23,20 @@
     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/VerpakkingsDefinitie.identcache
===================================================================
diff -u -r533 -r545
Binary files differ
Index: VerpakkingsDefinitie/LogInScherm.pas
===================================================================
diff -u -r533 -r545
--- VerpakkingsDefinitie/LogInScherm.pas	(.../LogInScherm.pas)	(revision 533)
+++ VerpakkingsDefinitie/LogInScherm.pas	(.../LogInScherm.pas)	(revision 545)
@@ -14,6 +14,7 @@
     Label3: TLabel;
     edtWachtwoord: TEdit;
     Panel1: TPanel;
+    procedure Panel1Click(Sender: TObject);
   private
     { Private declarations }
   public
@@ -25,8 +26,18 @@
 
 implementation
   uses
-  GebruikerService;
+  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/VerpakkingsDefinitie.res
===================================================================
diff -u
Binary files differ
Index: VerpakkingsDefinitie/LogInScherm.dfm
===================================================================
diff -u -r533 -r545
--- VerpakkingsDefinitie/LogInScherm.dfm	(.../LogInScherm.dfm)	(revision 533)
+++ VerpakkingsDefinitie/LogInScherm.dfm	(.../LogInScherm.dfm)	(revision 545)
@@ -85,5 +85,6 @@
     ParentBiDiMode = False
     ParentFont = False
     TabOrder = 2
+    OnClick = Panel1Click
   end
 end
Index: VerpakkingsDefinitie/Win32/Debug/Unit1.dcu
===================================================================
diff -u -r533 -r545
Binary files differ
Index: VerpakkingsDefinitie/Win32/Debug/GebruikerService.dcu
===================================================================
diff -u -r533 -r545
Binary files differ
Index: VerpakkingsDefinitie/Win32/Debug/GebruikerServiceTest.dcu
===================================================================
diff -u -r533 -r545
Binary files differ
Index: VerpakkingsDefinitie/Win32/Debug/Project1.exe
===================================================================
diff -u -r533 -r545
Binary files differ
Index: VerpakkingsDefinitie/Win32/Debug/LogInScherm.dcu
===================================================================
diff -u -r533 -r545
Binary files differ