From f7265bf79e0945845c2b3e9472de654b5a2c9c35 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 18 Aug 2021 14:11:50 +0200
Subject: [PATCH] * Some command-line options

---
 .../examples/httpserver/simplehttpserver.pas  | 26 ++++++++++++++-----
 1 file changed, 20 insertions(+), 6 deletions(-)

diff --git a/packages/fcl-web/examples/httpserver/simplehttpserver.pas b/packages/fcl-web/examples/httpserver/simplehttpserver.pas
index d82543a7ec..9b88f00a00 100644
--- a/packages/fcl-web/examples/httpserver/simplehttpserver.pas
+++ b/packages/fcl-web/examples/httpserver/simplehttpserver.pas
@@ -7,7 +7,7 @@ uses
   {$IFDEF UNIX}{$IFDEF UseCThreads}
   cthreads,
   {$ENDIF}{$ENDIF}
-  sysutils, Classes, fphttpserver, fpmimetypes, testhttpserver;
+  sysutils, strutils,Classes, fphttpserver, fpmimetypes, testhttpserver;
 
 Type
 
@@ -35,17 +35,31 @@ begin
 end;
 
 begin
+  if IndexText(ParamStr(1),['-h','--help'])<>-1 then
+    begin
+    Writeln('Usage: ',ExtractFileName(ParamStr(0)),' [dir [port]]');
+    Writeln('Default dir is binary location');
+    Writeln('Default port is 8080');
+    Halt(0);
+    end;
   Serv:=THTTPServer.Create(Nil);
   try
-    Serv.BaseDir:=ExtractFilePath(ParamStr(0));
-{$ifdef unix}
+    if ParamCount=0 then
+      Serv.BaseDir:=ExtractFilePath(ParamStr(0))
+    else
+      Serv.BaseDir:=ParamStr(1);
+    if ParamCount>1 then
+      Serv.Port:=StrToIntDef(ParamStr(2),8080)
+    else
+      Serv.Port:=8080;
+    {$ifdef unix}
     Serv.MimeTypesFile:='/etc/mime.types';
-{$endif}
-    Serv.Threaded:=False;
-    Serv.Port:=8080;
+    {$endif}
+    Serv.ThreadMode:=tmThreadPool;
     Serv.AcceptIdleTimeout:=1000;
     Serv.OnAcceptIdle:=@Serv.DoIdle;
     Serv.WriteInfo:=@Serv.DoWriteInfo;
+    Serv.EnableKeepAlive:=True;
     Serv.Active:=True;
   finally
     Serv.Free;