paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:39:24 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utils/pas2js/httpcompiler.pp
View File

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