Greetings

Below is the code I use to authenticate users. The windows parameter string  is parsed to determine the:
HostName, Port and DefaultPort.

How do we get a simple, elegant, developer-friendly solution that is shown in the application to determine that Authentication has failed?

procedure TfmCountryList.fmCountryListCreate(Sender: TObject);
var
  i:                      integer;
  ParamString:            string;
  S1, S2:                 array of string;

begin
 logoutput('TfmCountryList.fmCountryListCreate', 'log');
 Database.Name := 'Countries';
 Database.AutoTransactions := false;
 Session.Name := 'Session';
 Session.OnComplete := sessionComplete;
 ParamString := copy(window.location.search, 2);
 logoutput('ParamString: ' + paramString, 'log');

//  Obtain Session.BaseURL from host name and port number in ParamString

//  ?hostname=<host name>&port=<port>&defaultport=<defaultport>
 logoutput(' ---------------', 'log');

// Parse "ParamString' to determine HostName, PortNumber, DefaultPault
// Code not shown

 session.BaseURL := 'http://' + Host + ':' + IntToStr(PortNumber);
 logoutput('Session.BaseURL: ' + Session.BaseURL, 'log');
 session.UserName := 'Anonymous';

 // session.password is assigned to the invalid 'X'
 session.password := 'X';
 Application.Surface.Background.Fill.Color := clAntiqueWhite;
   try
     logoutput('try session.Authenticate', 'log');
     session.Authenticate;
   except
     logoutput('Error in authenticating! - Username / password incorrect', 'log');
   end;

 end else                              // if length(ParamString) > 0
 begin
   Logoutput('No html parameters', 'log');
 end;
end;

procedure TfmCountryList.SessionComplete(Session: TServerSession);
begin
 Logoutput('SessionComplete', 'log');

 if Session.Authenticated then
 begin
    Database.OnCommitError := CommitError;
    Database.AfterCommit := AfterCommit;
    Database.BeforeCommit := BeforeCommit;
    Database.OnRollbackError := RollbackError;
    Database.AfterRollback := AfterRollback;

    AllCountriesSummary.Open;
    Database.LoadRows(AllCountriesSummary);
  end else begin
    logoutput('Session not authenticated', 'log');
  end;
end;

A ShowError procedure shows the details of the TExternalObject
Log output: ERROR: Error executing request "http://localhost:8300/authentication"
(Authentication error for user Anonymous (Invalid user or password) ) at line 26439: undefined

Richard

I use

procedure TfrmMain.SessionComplete(Session: TServerSession);
begin
 if Session.RequestStatusCode <> HTTP_OK then begin
   [Show Error]
 end;
end;

in my projects.

Thank you Ralf.

Richard