[Lazarus-es] Fwd: Error al compilar ZEOSDBO-6.6.6-stable

[Jose Daboin]

Pegaste esto antes de compilar en el archivo zeos.inc

{$DEFINE FPC2_5UP}
{$DEFINE FPC2_4UP}
{$DEFINE FPC2_3UP}
{$DEFINE FPC2_2UP}
{$DEFINE FPC2_1UP}
{$DEFINE FPC2_UP}


El 9 de mayo de 2013 08:40, Ismael L. Donis Garcia
<ismael en citricos.co.cu>escribió:

> **
> Ante todo Perdon por no haber contestado antes, debido a que no fue hasta
> ahora que me siento delante de la PC. Por cuestiones de trabajo me
> encontraba ausente.
>
> Ya con la solución que me has dado pasó esa parte de la compilación sin
> problema alguno. Ahora me está dando problemas en el archivo:
>
> C:\lazarus\components\ZEOSDBO-6.6.6-stable\src\component\ZAbstractRODataset.pas(3116,48)
> Error: Expected another 2 array elements
> Específicamente en la función:
>
> procedure TZAbstractRODataset.CheckFieldCompatibility(Field:
> TField;FieldDef: TFieldDef);
>
> {$IFDEF FPC}
> const
>   BaseFieldTypes: array[TFieldType] of TFieldType = (
>     ftUnknown, ftString, ftInteger, ftInteger, ftInteger, ftBoolean,
> ftFloat,
>     ftFloat, ftBCD, ftDateTime, ftDateTime, ftDateTime, ftBytes,
> ftVarBytes,
>     ftInteger, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob,
> ftUnknown,
>     ftString, ftString, ftLargeInt, ftADT, ftArray, ftReference, ftDataSet,
>     ftBlob, ftBlob, ftVariant, ftInterface, ftInterface, ftString,
> ftTimeStamp, ftFMTBcd
>     {$IFDEF FPC2_1UP}, ftString, ftBlob{$ENDIF});
>
> Me dice que faltan 2 elementos. Si miro la otra que sigue más abajo si
> tiene los 2 elementos:
>
> {$ELSE}
>  {$IFDEF VER180}
>  const
>   BaseFieldTypes: array[TFieldType] of TFieldType = (
>     ftUnknown, ftString, ftInteger, ftInteger, ftInteger, ftBoolean,
> ftFloat,
>     ftFloat, ftBCD, ftDateTime, ftDateTime, ftDateTime, ftBytes,
> ftVarBytes,
>     ftInteger, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob,
> ftUnknown,
>     ftString, ftString, ftLargeInt, ftADT, ftArray, ftReference, ftDataSet,
>     ftBlob, ftBlob, ftVariant, ftInterface, ftInterface, ftString,
> ftTimeStamp, ftFMTBcd,
>     ftFixedWideChar,ftWideMemo,ftOraTimeStamp,ftOraInterval);
>  {$ELSE}
>
> Que me les debo poner para solucionar este problema?
>
> Desde Ya Gracias a todos los que de una forma u otra han intentado ayudar.
> =========
> || ISMAEL ||
> =========
> Website: www.sisconge.byethost15.com
>
> ----- Original Message -----
> *From:* Jose Daboin <metalbox9000 en gmail.com>
> *To:* Spanish version of Lazarus List<lazarus-es en lists.lazarus.freepascal.org>
> *Sent:* Monday, May 06, 2013 6:20 PM
> *Subject:* Re: [Lazarus-es] Fwd: Error al compilar ZEOSDBO-6.6.6-stable
>
>  Maxi creo que no me di a entender, el mensaje que yo deje era la
> respuesta concreta para resolver ese error, lo que pasa es que la copie
> directamente del foro de delphi.
>
> Dejo editado aqui para evitar confuciones
> ========================================================
> El error quiere decir que la implementación del método "QueryInterface"
> debe ser idéntica a la declaración en la interfaz IUnknown. Si te fijas en
> la interfaz está declarada como.
>
>
> Unknown.QueryInterface(constref TGuid,out <Formal type>):LongInt; StdCall
>
> y en la implementación está.
>
> function QueryInterface(const IID: TGUID; out Obj): HResult; virtual;
> stdcall;
>
> así que en la implemantación debe ser suficiente con cambiar const por
> constref
>
> ========================
>
> Al corregir el error anterior se produce otro mas que se soluciona de la
> siguiente manera
>
> ============================
>
> Buscar alguna de estas dos lineas en zeos.inc y arriba de ellas pegar los
> define que estan abajo.
> {$IFDEF VER2_5}
> {$DEFINE FPC2_5UP}
>
>
> Colocar estas lineas modificando el archivo zeos.inc que se encuentra en
> la carpeta scr  en la carpeta del componente zeos
> {$DEFINE FPC2_5UP}
> {$DEFINE FPC2_4UP}
> {$DEFINE FPC2_3UP}
> {$DEFINE FPC2_2UP}
> {$DEFINE FPC2_1UP}
> {$DEFINE FPC2_UP}
> --
> *Saludos.
>
> Jose Daboin*
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>


-- 
*Saludos.

Jose Daboin*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130509/c6cd3bbe/attachment-0002.html>