Authentifizierung Indy Http-Server

[SubData]

So ganz grob sollte folgendes hinkommen

Delphi-Quellcode:

if ((ARequestInfo.AuthUsername <> 'scheff') or (ARequestInfo.AuthPassword <> 'geheim')) then
begin
  AResponseInfo.ContentText := 'Benutzername und Kennwort bitte...';
  AResponseInfo.AuthRealm := 'Scheff-Interface';
end else
begin
  AResponseInfo.ContentText := 'alles toll';
end;