paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 07:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some command-line options

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-08-18 14:11:50 +02:00
parent 5bf9de22d6
commit f7265bf79e
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/fcl-web/examples/httpserver/simplehttpserver.pas
View File

@ -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;