Zeoslib Portal

Posted: **22.04.2014, 07:51**

I managed to compile Zeos 7.2 Alphatest in Delphi XE6.
Postby dieletro » 22.04.2014, 07:51

Friends developers, I believe this is my first collaboration in this forum.

I managed to compile Zeos 7.2 Alphatest in Delphi XE6.
I made the following changes:

1 - I created another policy for the XE6 Zeos.inc file:

Code: Select all

{ $IFDEF VER270 } / / Compilation directives for Delphi XE6 - 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} //Delphi XE6 //By dieletro
  { $DEFINE BDS4_UP } / / Used in code
  { $DEFINE BDS5_UP } / / Used in code
{ $ENDIF }

2 - I changed the line 4906 of file ZFastCode ZCore package where:

this policy was different from that stated in the policy and Zeos.inc already been corrected writing.
Code: Select all
```
WITH_FORMATSETTINGS
```

3 - 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 VER270} / / By dieletro
Var BaseFieldTypes : array [ TFieldType ] of TFieldType ;
{ $ENDIF VER270}

4 - Still in the same previous file includes the following constants in the Policy Compilation:

Code: Select all

{ $IFDEF VER270 } / / Delphi XE6 / / 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 );
{ $ELSE !VER270}
{ $ENDIF VER270}

5 -Change

Code: Select all

 {$LIBSUFFIX  '190 '}

changed of all the packages for
Code: Select all
```
{$LIBSUFFIX '200'}
```

If anyone is interested in picking up the files have changed al follows:

By dieletro
E-mail: diegolacerdamenezes@gmail.com

Posted: **22.04.2014, 23:40**

I'm sorry but I could not send the file has changed before, follows the download link with the changes:
Zeos 7.2 AlphaTest for Delphi XE6...
https://mega.co.nz/#!UNpQWLbS!k9BN4IJwB ... -YftHRY-v8

Posted: **23.04.2014, 00:04**

@dieletro,

It is a pity you did not use the current Zeos 7.2 revision, I mean r3119(3116):
http://svn.code.sf.net/p/zeoslib/code-0 ... sting-7.2/

Michal

Posted: **23.04.2014, 03:11**

I will use it now, ok, thanks for the tip!

Zeoslib Portal

Installing the Zeos 7.2 Alphatest Delphi XE6

Installing the Zeos 7.2 Alphatest Delphi XE6

Re: Installing the Zeos 7.2 Alphatest Delphi XE6

Re: Installing the Zeos 7.2 Alphatest Delphi XE6

Re: Installing the Zeos 7.2 Alphatest Delphi XE6