Browse Source

* Merging revisions r46306 from trunk:
------------------------------------------------------------------------
r46306 | michael | 2020-08-07 00:43:15 +0200 (Fri, 07 Aug 2020) | 1 line

* Load OS defaults, add text/css
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46613 -

michael 5 years ago
parent
commit
a92e9b9181
1 changed files with 4 additions and 1 deletions
  1. 4 1
      utils/pas2js/httpcompiler.pp

+ 4 - 1
utils/pas2js/httpcompiler.pp

@@ -284,6 +284,8 @@ end;
 
 
 procedure THTTPCompilerApplication.LoadDefaultMimeTypes;
 procedure THTTPCompilerApplication.LoadDefaultMimeTypes;
 begin
 begin
+  MimeTypes.LoadKnownTypes;
+  // To be sure
   MimeTypes.AddType('application/xhtml+xml','xhtml;xht');
   MimeTypes.AddType('application/xhtml+xml','xhtml;xht');
   MimeTypes.AddType('text/html','html;htm');
   MimeTypes.AddType('text/html','html;htm');
   MimeTypes.AddType('text/plain','txt');
   MimeTypes.AddType('text/plain','txt');
@@ -296,6 +298,7 @@ begin
   MimeTypes.AddType('image/jp2','jp2');
   MimeTypes.AddType('image/jp2','jp2');
   MimeTypes.AddType('image/tiff','tiff;tif');
   MimeTypes.AddType('image/tiff','tiff;tif');
   MimeTypes.AddType('application/pdf','pdf');
   MimeTypes.AddType('application/pdf','pdf');
+  MimeTypes.AddType('text/css','css');
 end;
 end;
 
 
 constructor THTTPCompilerApplication.Create(AOWner: TComponent);
 constructor THTTPCompilerApplication.Create(AOWner: TComponent);
@@ -366,7 +369,7 @@ end;
 
 
 procedure THTTPCompilerApplication.AddToStatus(AEntry: TDirectoryEntry; AEvents: TFileEvents);
 procedure THTTPCompilerApplication.AddToStatus(AEntry: TDirectoryEntry; AEvents: TFileEvents);
 
 
-Var
+Var  
   O : TJSONObject;
   O : TJSONObject;
   FN : String;
   FN : String;