I have a very basic Indy 10 Http server (see below).
What would be the simplest way to add authentication. I don't need
multiple users, .htaccess, kerberos or anything like that. Just a simple
hard coded user:='admin'; password:='pass' example.
Thanks
program httpservertest;
{$APPTYPE CONSOLE}
uses
HTTPApp,
IdCustomHTTPServer,
idcontext,
idhttpserver,
sysutils;
type
TServer = class
procedure httpServerCommandGet(AThread: TIdContext; RequestInfo:
TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
end;
procedure TServer.httpServerCommandGet(AThread: TIdContext; RequestInfo:
TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
var
html : String;
begin
ResponseInfo.ContentType := 'text/HTML';
html := '<html><head><title>Title</title></head><body>';
html := html + '<center><h2>' + DateTimeToStr(Now)+ '</h2>';
html := html + '<h2>Requested: ' + RequestInfo.Document + '</h2>';
html := html + '<h2>Params: ' + RequestInfo.UnparsedParams + '</h2>';
html := html + '</body></html>';
ResponseInfo.ContentText := html;
end;
var
Server:TServer;
httpServer: TIdHTTPServer;
begin
Server:=tserver.Create;
httpserver:=tidhttpserver.Create();
httpServer.OnCommandGet:=Server.httpServerCommandGet;
httpServer.DefaultPort:=80;
httpServer.Active:=true;
while true do sleep(1000);
end.
