Work in Win64 (Delphi 12.x)
dbf ntx clipper compatibility delphi component
Brought to you by:
zilez20031
Hi,
For the library to work under Win64, you need to make the following small changes in the VKDBFDataSet.pas module:
1) In class TVKDBFFieldDef
{$IFDEF WIN64}
FTag: NativeInt;
{$ELSE}
FTag: Integer;
{$ENDIF}
and
{$IFDEF WIN64}
property Tag: NativeInt read FTag write FTag;
{$ELSE}
property Tag: Integer read FTag write FTag;
{$ENDIF}
2) In function HideBindDBFFieldDef
{$IFDEF WIN64}
F.Tag := NativeInt(Pointer(FD));
{$ELSE}
F.Tag := Integer(Pointer(FD));
{$ENDIF}