Browse Source

fcl-db: sqldb: make deferred blob loading dependent on sqoKeepOpenOnCommit not on sqoAutoCommit. As original problem is that dataset remains open on commit. Related to rev.33496

git-svn-id: trunk@33534 -
lacak 9 years ago
parent
commit
2e005ecc7d
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-db/src/sqldb/sqldb.pp

+ 2 - 1
packages/fcl-db/src/sqldb/sqldb.pp

@@ -2707,7 +2707,8 @@ end;
 function TCustomSQLQuery.LoadField(FieldDef : TFieldDef; buffer : pointer; out CreateBlob : boolean) : boolean;
 begin
   Result := SQLConnection.LoadField(Cursor, FieldDef, buffer, CreateBlob);
-  if Result and (FieldDef.DataType in ftBlobTypes) and (sqoAutoCommit in Options) then
+  // disable deferred blob loading for "disconnected" datasets
+  if Result and (FieldDef.DataType in ftBlobTypes) and (sqoKeepOpenOnCommit in Options) then
     CreateBlob:=True
 end;