Ver Fonte

* 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 há 5 anos atrás
pai
commit
a92e9b9181
1 ficheiros alterados com 4 adições e 1 exclusões
  1. 4 1
      utils/pas2js/httpcompiler.pp

+ 4 - 1
utils/pas2js/httpcompiler.pp

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