<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.19328">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>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.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>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:</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2
face=Arial>C:\lazarus\components\ZEOSDBO-6.6.6-stable\src\component\ZAbstractRODataset.pas(3116,48)
Error: Expected another 2 array elements<BR></FONT></DIV>
<DIV><FONT size=2 face=Arial>Específicamente en la función:</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>procedure
TZAbstractRODataset.CheckFieldCompatibility(Field: TField;FieldDef:
TFieldDef);</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2 face=Arial>{$IFDEF FPC}<BR>const<BR> BaseFieldTypes:
array[TFieldType] of TFieldType = (<BR> ftUnknown, ftString,
ftInteger, ftInteger, ftInteger, ftBoolean, ftFloat,<BR>
ftFloat, ftBCD, ftDateTime, ftDateTime, ftDateTime, ftBytes,
ftVarBytes,<BR> ftInteger, ftBlob, ftBlob, ftBlob, ftBlob,
ftBlob, ftBlob, ftBlob, ftUnknown,<BR> ftString, ftString,
ftLargeInt, ftADT, ftArray, ftReference, ftDataSet,<BR>
ftBlob, ftBlob, ftVariant, ftInterface, ftInterface, ftString, ftTimeStamp,
ftFMTBcd<BR> {$IFDEF FPC2_1UP}, ftString,
ftBlob{$ENDIF}); </FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Me dice que faltan 2 elementos. Si miro la otra que
sigue más abajo si tiene los 2 elementos:</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>{$ELSE}<BR> {$IFDEF
VER180}<BR> const<BR> BaseFieldTypes: array[TFieldType] of TFieldType
= (<BR> ftUnknown, ftString, ftInteger, ftInteger, ftInteger,
ftBoolean, ftFloat,<BR> ftFloat, ftBCD, ftDateTime,
ftDateTime, ftDateTime, ftBytes, ftVarBytes,<BR> ftInteger,
ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob, ftBlob,
ftUnknown,<BR> ftString, ftString, ftLargeInt, ftADT, ftArray,
ftReference, ftDataSet,<BR> ftBlob, ftBlob, ftVariant,
ftInterface, ftInterface, ftString, ftTimeStamp, ftFMTBcd,<BR>
ftFixedWideChar,ftWideMemo,ftOraTimeStamp,ftOraInterval);<BR> {$ELSE}
</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Que me les debo poner para solucionar este
problema?</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Desde Ya Gracias a todos los que de una forma u
otra han intentado ayudar.</DIV></FONT>
<DIV>=========<BR>|| ISMAEL ||<BR>=========<BR>Website: <A
href="http://www.sisconge.byethost15.com">www.sisconge.byethost15.com</A><BR></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=metalbox9000@gmail.com href="mailto:metalbox9000@gmail.com">Jose
Daboin</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, May 06, 2013 6:20 PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Fwd: Error al
compilar ZEOSDBO-6.6.6-stable</DIV>
<DIV><BR></DIV>
<DIV dir=ltr>
<DIV>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.<BR><BR></DIV>
<DIV>Dejo editado aqui para evitar confuciones<BR></DIV>
<DIV>========================================================<BR>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.
<DIV class=im><BR><BR>Unknown.QueryInterface(constref TGuid,out <Formal
type>):LongInt; StdCall<BR><BR></DIV>y en la implementación está.
<DIV class=im><BR>function QueryInterface(const IID: TGUID; out Obj): HResult;
virtual; stdcall;<BR><BR></DIV>así que en la implemantación debe ser
suficiente con cambiar const por
constref<BR><BR>========================<BR><BR></DIV>
<DIV>Al corregir el error anterior se produce otro mas que se soluciona de la
siguiente manera<BR><BR>============================<BR><BR>Buscar alguna de
estas dos lineas en zeos.inc y arriba de ellas pegar los define que estan
abajo. <BR>{$IFDEF VER2_5}<BR>{$DEFINE FPC2_5UP}<BR><BR><BR>Colocar
estas lineas modificando el archivo zeos.inc que se encuentra en la carpeta
scr en la carpeta del componente zeos<BR>{$DEFINE FPC2_5UP}<BR>{$DEFINE
FPC2_4UP}<BR>{$DEFINE FPC2_3UP}<BR>{$DEFINE FPC2_2UP}<BR>{$DEFINE
FPC2_1UP}<BR>{$DEFINE FPC2_UP}<BR></DIV>
<DIV>-- <BR><SPAN style="BACKGROUND-COLOR: rgb(255,255,255)"><FONT
size=+0><SPAN style="COLOR: rgb(0,0,153)"><I><B>Saludos.<BR><BR>Jose
Daboin</B></I></SPAN></FONT></SPAN><BR></DIV></DIV></BLOCKQUOTE></BODY></HTML>