Explorar o código

* Fix from Kevin Jesshope to fix concurrent access in case of CGI

Michaël Van Canneyt %!s(int64=3) %!d(string=hai) anos
pai
achega
f8bf34303c
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fcl-web/src/base/fpmimetypes.pp

+ 1 - 1
packages/fcl-web/src/base/fpmimetypes.pp

@@ -310,7 +310,7 @@ Var
   F : TFileStream;
 
 begin
-  F:=TFileStream.Create(AFileName,fmOpenRead);
+  F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyWrite);
   try
     LoadFromStream(F);
   finally