fcl-db: base: Add fmShareDenyWrite in TParam.LoadFromFile to don't block subsequent opening of same file, while loading into blob. Bug #30429

git-svn-id: trunk@34244 -

packages/fcl-db/src/base/dsparams.inc

@@ -1122,7 +1122,7 @@ Var
   S : TFileStream;
 
 begin
-  S:=TFileStream.Create(FileName,fmOpenRead);
+  S:=TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
   Try
     LoadFromStream(S,BlobType);
   Finally