What steps do I have to do to get a Lazarus/Zeos app to run on a Linux 64 box?
I am currently running FC14-64. The app runs on my 32 bit FC-12 laptop.
Thx, Terry
Zeos on a 64 bit computer
Moderators: gto, EgonHugeist
I don't know what ZDbcCache is or where I make these changes.
In ZDbcCache :
TZRowBuffer = packed record
Index: SizeInt;
UpdateType: TZRowUpdateType;
BookmarkFlag: Byte;
Columns: TByteArray;
end;
In ZAbstractRODataset :
Index of TZRowBuffer must be 64 bits compliant
Setting Index forcing the integer to be SizeInt
Like this
.Index := SizeInt ( RowNo );
In ZAbstractRODataset Always :
Another part wich is good like this :
if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
DataEvent(deFieldChange, PtrInt(Field)); ch is good like this :
if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
DataEvent(deFieldChange, PtrInt(Field));
In ZDbcCache :
TZRowBuffer = packed record
Index: SizeInt;
UpdateType: TZRowUpdateType;
BookmarkFlag: Byte;
Columns: TByteArray;
end;
In ZAbstractRODataset :
Index of TZRowBuffer must be 64 bits compliant
Setting Index forcing the integer to be SizeInt
Like this
.Index := SizeInt ( RowNo );
In ZAbstractRODataset Always :
Another part wich is good like this :
if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
DataEvent(deFieldChange, PtrInt(Field)); ch is good like this :
if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
DataEvent(deFieldChange, PtrInt(Field));