ErangeError in ZEOSDBO-6.6.6-stable
Posted: 20.10.2010, 08:33
Hi all,
I made a old program with my Delphi 5, this program connected on MySql 4.0.15. with ZEOSDBO-6.6.1-beta.
All was ok, but now I must to recompile it with the last ZEOSDBO-6.6.6-stable, I don't change the Mysql version and the mysql Dll, but when I launch my program I have an exception ERangeError on ZDbcCache.pas :
ZEOSDBO-6.6.6-stable is it compatible with Mysql 4.0.15 ?
The exception appear on the ZReadOnlyQuery_show.open;
A datasource is connected on this ZReadOnlyQuery_but I delete the datasource without any amelioration.
Thanks a lot,
I made a old program with my Delphi 5, this program connected on MySql 4.0.15. with ZEOSDBO-6.6.1-beta.
All was ok, but now I must to recompile it with the last ZEOSDBO-6.6.6-stable, I don't change the Mysql version and the mysql Dll, but when I launch my program I have an exception ERangeError on ZDbcCache.pas :
Code: Select all
procedure TZRowAccessor.SetPChar(ColumnIndex: Integer; Value: PChar);
begin
{$IFNDEF DISABLE_CHECKING}
CheckColumnConvertion(ColumnIndex, stString);
{$ENDIF}
case FColumnTypes[ColumnIndex - 1] of
stString:
begin
if Value <> nil then
begin
(*HERE->*) FBuffer.Columns[FColumnOffsets[ColumnIndex - 1]] := 0;
StrLCopy(@FBuffer.Columns[FColumnOffsets[ColumnIndex - 1] + 1], Value,
FColumnLengths[ColumnIndex - 1] - 1);
end else
FBuffer.Columns[FColumnOffsets[ColumnIndex - 1]] := 1;
end;
else
SetString(ColumnIndex, Value);
end;
end;
The exception appear on the ZReadOnlyQuery_show.open;
A datasource is connected on this ZReadOnlyQuery_but I delete the datasource without any amelioration.
Thanks a lot,