[bug_fixed] bug report: read blob in ADO
Posted: 29.05.2007, 13:38
greetings. I've been sending a number of patches to Zeos team since 6.1.5 or 6.1.4 version, but as member rotations took place, this patches were not taken a good look at..
so I'm trying to send 'em one more time.
bug report: read blob in ADO
[platform notes]
zeosdbo-6.6.1-beta
protocol: ado
delphi7
Microsoft SQL server 2000
field kind = image
[problem]
when you fetch blob field from database with zeosdbo components
using ADO protocol the last byte of blob field is lost.
[suggested solution]
======== [dbc\ZDbcAdoResultSet.pas] ========
{
(scope)
function TZAdoResultSet.GetBlob(ColumnIndex: Integer): IZBlob;
(origin)
{
Result := TZAbstractBlob.CreateWithData(P, VarArrayHighBound(V, 1));
}
(changed into)
{
Result := TZAbstractBlob.CreateWithData(P, VarArrayHighBound(V, 1) + 1);
}
(purpose)
{to fix error: read blob truncates its last byte}
}
so I'm trying to send 'em one more time.
bug report: read blob in ADO
[platform notes]
zeosdbo-6.6.1-beta
protocol: ado
delphi7
Microsoft SQL server 2000
field kind = image
[problem]
when you fetch blob field from database with zeosdbo components
using ADO protocol the last byte of blob field is lost.
[suggested solution]
======== [dbc\ZDbcAdoResultSet.pas] ========
{
(scope)
function TZAdoResultSet.GetBlob(ColumnIndex: Integer): IZBlob;
(origin)
{
Result := TZAbstractBlob.CreateWithData(P, VarArrayHighBound(V, 1));
}
(changed into)
{
Result := TZAbstractBlob.CreateWithData(P, VarArrayHighBound(V, 1) + 1);
}
(purpose)
{to fix error: read blob truncates its last byte}
}