Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

removed Context.Response.SetCustomHeader('Content-Length' in TMVCStaticContents.SendFile; See comment

Browse Source
This commit is contained in:
MPannier 2016-03-03 16:50:55 +01:00
parent fe387256ed
commit 40d7220d5d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sources/MVCFramework.pas
View File

@ -2146,7 +2146,13 @@ begin
else
begin
S := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone);
Context.Response.SetCustomHeader('Content-Length', IntToStr(S.Size));
//Content-Length is set in (%DELPHI%)\source\internet\Web.Win.IsapiHTTP.pas
//procedure TISAPIResponse.SendResponse;
//if set twice it could be a problem under IIS (ISAPI)
//the header is available 1x but the value are doubled
//sometimes some images are not shown
//How to unittest this behavior?
//Context.Response.SetCustomHeader('Content-Length', IntToStr(S.Size));
Context.Response.SetCustomHeader('Last-Modified',
LocalDateTimeToHttpStr(LFileDate));
Context.Response.SetContentStream(S, AMimeType);