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.