paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 01:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions r46306 from trunk:

Browse Source 
------------------------------------------------------------------------
    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 -
This commit is contained in:
michael 2020-08-23 09:32:22 +00:00
parent d518cd0800
commit a92e9b9181
1 changed files with 4 additions and 1 deletions

5
utils/pas2js/httpcompiler.pp
View File

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