diff --git a/packages/fcl-db/src/sqldb/sqldb.pp b/packages/fcl-db/src/sqldb/sqldb.pp index ac863de5be..5648fc258e 100644 --- a/packages/fcl-db/src/sqldb/sqldb.pp +++ b/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;