2023 - 2024

Add basic authentication to your IdHttpServer with Delphi

by Ivan Revelli
in Posts
on May 29, 2023

To add basic authentication to you own http server is really simple, you only need to add inside the “onCommandGet” method the authentication check, as in the example shown after the image

Inside the method you can:

if 
  ( ARequestInfo.AuthUsername.ToUpper.Equals('USERNAME'.ToUpper)
   and
   ARequestInfo.AuthPassword.Equals('PASSWORD')
  )
then
begin 
  AResponseInfo. ResponseNo : = 401;
  AResponseInfo. AuthRealm : = 'Autentication required'; 
  exit;
end;

( ARequestInfo.AuthUsername.ToUpper.Equals('USERNAME'.ToUpper)

and

ARequestInfo.AuthPassword.Equals('PASSWORD')

)

then

begin

AResponseInfo. ResponseNo : = 401;

AResponseInfo. AuthRealm : = 'Autentication required';

exit;

end;

Build your own HTTPS server with Delphi – Open SSL Example

Add basic authentication to your IdHttpServer with Delphi

Add basic authentication to your IdHttpServer with Delphi

Ricerca Articolo

Categorie

Synaptica srl