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

* Take care of locking when reading a file.

Browse Source 
git-svn-id: trunk@22447 -
This commit is contained in:
michael 2012-09-24 09:00:52 +00:00
parent 944c1172ee
commit cd733daaa4
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/base/fphttpclient.pp
View File

@ -935,7 +935,7 @@ begin
SS:=TStringStream.Create(s);
try
SS.Seek(0,soFromEnd);
F:=TFileStream.Create(AFileName,fmOpenRead);
F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyWrite);
try
SS.CopyFrom(F,F.Size);
finally

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

@ -129,7 +129,7 @@ begin
AResponse.ContentType:=MimeTypes.GetMimeType(ExtractFileExt(AFileName));
If (AResponse.ContentType='') then
AResponse.ContentType:='Application/octet-stream';
F:=TFileStream.Create(AFileName,fmOpenRead);
F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyWrite);
try
AResponse.ContentLength:=F.Size;
AResponse.ContentStream:=F;

2
packages/fcl-web/src/base/httpdefs.pp
View File

@ -1469,7 +1469,7 @@ begin
begin
If (FLocalFileName='') then
Raise HTTPError.Create(SErrInternalUploadedFileError);
FStream:=TFileStream.Create(FLocalFileName,fmOpenRead);
FStream:=TFileStream.Create(FLocalFileName,fmOpenRead or fmShareDenyWrite);
end;
Result:=FStream;
end;