Installing the Zeos 7.2 in Delphi XE7
Posted: 25.02.2015, 04:30
Good night my friends developers, sorry for being so long away, but was involved in a project that took me a long time.
procedures for zeos installation on XE7 are identical to the XE6. I will do a step by step ok!
come on!
1 - Still in the same previous file includes the following constants in the Policy Compilation:
Code: Select all
{ $IFDEF VER280 } / / Delphi XE7 // By dieletro
BaseFieldTypes : array [ TFieldType ] of TFieldType = (
ftUnknown , ftString , ftSmallint , ftInteger , ftWord , ftBoolean , ftFloat ,
ftCurrency , ftBCD , ftDate , ftTime , ftDateTime , ftBytes , ftVarBytes , ftAutoInc ,
ftBlob , ftMemo , ftGraphic , ftFmtMemo , ftParadoxOle , ftDBaseOle , ftTypedBinary ,
ftCursor , ftFixedChar , ftWideString , ftLargeint , ftADT , ftArray , ftReference ,
ftDataSet , ftOraBlob , ftOraClob , ftVariant , ftInterface , ftIDispatch , ftGuid ,
ftTimeStamp , ftFMTBcd , ftFixedWideChar , ftWideMemo , ftOraTimeStamp , ftOraInterval ,
ftLongWord , ftShortint , ftByte , ftExtended , ftConnection , ftParams , ftStream ,
ftTimeStampOffset , ftObject , ftSingle );
{ $ENDIF VER280}
2 - I declared this varialvel within a policy not to imply the compatibility from earlier versions, the
procedure TZAbstractRODataset.CheckFieldCompatibility (Field: TField; FieldDef: TFieldDef)
modules ZAbstractRODataset.pas the file ZComponente package.
Code: Select all
{ $IFDEF VER280} / / By dieletro
Var BaseFieldTypes : array [ TFieldType ] of TFieldType ;
{ $ENDIF VER280}
3 - {$LIBSUFFIX changed '200 '} of all the packages for {$LIBSUFFIX '210'} ;
4 - I created another Compilation directives for the XE7 Zeos.inc file:
Code: Select all
{ $IFDEF VER280 } / / Compilation directives for Delphi XE7 - By dieletro
{ $DEFINE VER200BELOW } / / Used in code
{ $DEFINE DELPHI12_UP } / / Used in code
{ $DEFINE DELPHI14_UP } / / Egonhugeist used in my code
{ $DEFINE DELPHI15_UP } / / Used only in zeos.inc
{ $DEFINE DELPHI16_UP } / / Used in code
{ $DEFINE DELPHI17_UP } / / Used in code
{ $DEFINE DELPHI18_UP } / / Used in code
{ $DEFINE DELPHI19_UP}
{ $DEFINE DELPHI20_UP}
{ $DEFINE DELPHI21_UP} //add this line
{ $DEFINE BDS4_UP } / / Used in code
{ $DEFINE BDS5_UP } / / Used in code
{ $ENDIF }