浏览代码

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 年之前
父节点
当前提交
2e005ecc7d
共有 1 个文件被更改,包括 2 次插入1 次删除
  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;