Browse Source

* Allow use of mime.types on windows

git-svn-id: trunk@38566 -
michael 7 years ago
parent
commit
4972a9fbb8
1 changed files with 2 additions and 0 deletions
  1. 2 0
      utils/pas2js/httpcompiler.pp

+ 2 - 0
utils/pas2js/httpcompiler.pp

@@ -492,6 +492,8 @@ begin
   Log(etInfo,'Listening on port %d, serving files from directory: %s',[Port,D]);
   Log(etInfo,'Listening on port %d, serving files from directory: %s',[Port,D]);
 {$ifdef unix}
 {$ifdef unix}
   MimeTypesFile:='/etc/mime.types';
   MimeTypesFile:='/etc/mime.types';
+{$else}
+   MimeTypesFile:=ExtractFilePath(System.ParamStr(0))+'mime.types';
 {$endif}
 {$endif}
   if Hasoption('P','project') then
   if Hasoption('P','project') then
     begin
     begin