* Logging demo

packages/fcl-web/examples/httpserver/simplehttpserver.pas

@@ -7,16 +7,19 @@ uses
   {$IFDEF UNIX}{$IFDEF UseCThreads}
   cthreads,
   {$ENDIF}{$ENDIF}
-  sysutils, strutils,Classes, fphttpserver, fpmimetypes, testhttpserver;
+  sysutils, strutils,Classes, fphttpserver, fpmimetypes, testhttpserver, custapp;
 
 Type
 
   { TTestHTTPServer }
 
+  { THTTPServer }
+
   THTTPServer = Class(TTestHTTPServer)
   Protected
     Procedure DoIdle(Sender : TObject);
     procedure DoWriteInfo(S: string);
+    Procedure LogEVent(Sender : TObject; aType : TEventType; Const Msg : String);
   end;
 
 Var
@@ -34,6 +37,12 @@ begin
   Writeln(S);
 end;
 
+procedure THTTPServer.LogEVent(Sender: TObject; aType: TEventType;
+  const Msg: String);
+begin
+  WriteLn('[',aType,'] ',Msg);
+end;
+
 begin
   if IndexText(ParamStr(1),['-h','--help'])<>-1 then
     begin
@@ -59,7 +68,9 @@ begin
     Serv.AcceptIdleTimeout:=10;
     Serv.OnAcceptIdle:[email protected];
     Serv.WriteInfo:[email protected];
-    Serv.KeepAliveEnabled:=True;
+    Serv.KeepConnections:=True;
+    Serv.OnLog:[email protected];
+    Serv.LogMoments:=AllLogMoments;
     Serv.Active:=True;
   finally
     Serv.Free;