git-svn-id: trunk@33534 -
@@ -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;