paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make sure size is set after return

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-08-18 22:26:09 +02:00
parent bb9a1af248
commit e6f40c196a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-web/src/base/fpwebfile.pp
View File

@ -262,10 +262,11 @@ begin
aResponse.CacheControl:=Format('max-age=%d',[CacheControlMaxAge]);
F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyWrite);
try
AResponse.ContentLength:=F.Size;
AResponse.ContentStream:=F;
AResponse.ContentStream:=F; // Sets size
AResponse.SendContent;
AResponse.ContentStream:=Nil;
// We set it again so an after request interceptor can see it
AResponse.ContentLength:=F.Size;
finally
F.Free;
end;