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;
  fUserServer: string;
begin
  fServer := 'cachedevut2010';
  fNamespace := 'dev1';
  if fServer = 'cache01' then
    fNamespace := 'admin1';
  //fUserServer := 'http://' + fServer + ':57772/csp/' + fNamespace + '/WS.Halux.AAP.GebruikerService.cls';
  fUserServer :=  'http://cacheaccept2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.cls';
  fUserServerSoap := UserServerService.GetUserServerSoap(false, fUserServer, nil);
end;

function TAgent.GebruikerAanmelden(Gebruikersnaam: string; Wachtwoord: string) : PxStatus;
var
  fLogInObject: PxLogin;
  fResponse: PxStatus;
begin
  fLogInObject := PxLogin.Create;
  // By REF ingevuld wanneer pxStatus geen fout bevat
  //                        LogIn(Application, GebruikersNaam, WachtWoord, Domein, pxLogIn) -> pxStatus
  fResponse := fUserServerSoap.LogIn('vhintra', Gebruikersnaam, Wachtwoord, '1', fLogInObject);
  Result := fResponse
end;

end.