Zeoslib Portal

greetings to respected developers !
there are several bug reports and suggested fixes I want to post you.
here goes the first one.

[platform notes]
zeosdbo-6.5.1-alpha_cvs_13-10-2005
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}
}

by the way.
it would be very nice of you to publish CVS releases noting something like
build_number instead of release date.
it makes versioning more clear.
I mean you may say not
zeosdbo-6.5.1-alpha_cvs_13-10-2005
but something like
zeosdbo-6.5.1.1298-alpha_cvs

best wishes.

Hi zx,

could you please create a new bug report in the bug tracker at SourceForge. This would be very nice.

Tanks in advance.