* Take care of locking when reading a file.

git-svn-id: trunk@22447 -

packages/fcl-web/src/base/fphttpclient.pp

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

packages/fcl-web/src/base/fpwebfile.pp

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

packages/fcl-web/src/base/httpdefs.pp

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