fcl-db:

+ Let TBlobField.LoadFromFile also open shared files. Adapted from patch by Erwin van den Bosch, thanks! Fixes mantis issue #25972

git-svn-id: trunk@27478 -

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

@@ -2955,7 +2955,7 @@ procedure TBlobField.LoadFromFile(const FileName: string);
 Var S : TFileStream;
 
 begin
-  S:=TFileStream.Create(FileName,fmOpenRead);
+  S:=TFileStream.Create(FileName,fmOpenRead or fmShareDenyWrite);
   try
     LoadFromStream(S);
   finally