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

Ismael L. Donis Garcia ismael en citricos.co.cu
Jue Mayo 9 15:10:30 CEST 2013


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 
  To: Spanish version of Lazarus List 
  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
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130509/84cc2ae4/attachment-0002.html>


More information about the Lazarus-es mailing list