diff --git a/packages/fcl-web/examples/simpleserver/simpleserver.pas b/packages/fcl-web/examples/simpleserver/simpleserver.pas index cd922996a3..80286585ae 100644 --- a/packages/fcl-web/examples/simpleserver/simpleserver.pas +++ b/packages/fcl-web/examples/simpleserver/simpleserver.pas @@ -88,6 +88,7 @@ begin usage(S); Quiet:=HasOption('q','quiet'); Port:=StrToIntDef(GetOptionValue('p','port'),3000); + LoadMimeTypes; D:=GetOptionValue('d','directory'); if D='' then D:=GetCurrentDir;