<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.28.1">
</HEAD>
<BODY>
Hola, he probado lo que me indicabas pero sigue dando el mismo error. Te pongo toda la lista de errores por si te puede dar alguna pista.<BR>
Muchas gracias por tu sugerencia.<BR>
Un saludo.<BR>
<BR>
zeoslib/src/core/ZClasses.pas(84,22) Error: No matching implementation for interface method "IUnknown.QueryInterface(constref TGuid,out <Formal type>):LongInt; CDecl;" found<BR>
zeoslib/src/core/ZClasses.pas(84,22) Error: No matching implementation for interface method "IUnknown._AddRef:LongInt; CDecl;" found<BR>
zeoslib/src/core/ZClasses.pas(84,22) Error: No matching implementation for interface method "IUnknown._Release:LongInt; CDecl;" found<BR>
zeoslib/src/core/ZClasses.pas(183,14) Warning: An inherited method is hidden by "TZAbstractObject.Equals(const IUnknown):Boolean;"<BR>
zeoslib/src/core/ZClasses.pas(186,14) Warning: An inherited method is hidden by "TZAbstractObject.ToString:AnsiString;"<BR>
zeoslib/src/core/ZClasses.pas(190,1) Fatal: There were 3 errors compiling module, stopping<BR>
<BR>
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%">
<TR>
<TD>
<BR>
<HR NOSHADE>
<BR>
<BR>
<B><FONT SIZE="2">ARTEX TRADING S.A.</FONT></B><BR>
<I><FONT SIZE="2">José Antonio Cuello Principal</FONT></I><BR>
<BR>
<BR>
<BR>
</TD>
</TR>
</TABLE>
El vie, 19-11-2010 a las 12:26 +0100, José Mejuto escribió:<BR>
<BLOCKQUOTE TYPE=CITE>
<TT><FONT COLOR="#000000">Se ha hecho un cambio en el compilador para que FPC sea compatible</FONT></TT><BR>
<TT><FONT COLOR="#000000">XPCOM, o sea, COM para sistemas no Windows, y creo que ahí hay un</FONT></TT><BR>
<TT><FONT COLOR="#000000">error en la versión windows. La historia es que ahora los "const" para</FONT></TT><BR>
<TT><FONT COLOR="#000000">COM deben de ser "constref" lo que asegura el buen funcionamiento con</FONT></TT><BR>
<TT><FONT COLOR="#000000">XPCOM y Windows.</FONT></TT><BR>
<BR>
<TT><FONT COLOR="#000000">Mientras averiguo si el problema es un bug o tiene que ser así por</FONT></TT><BR>
<TT><FONT COLOR="#000000">algún motivo puedes compilar el zeos cambiando esta linea de</FONT></TT><BR>
<TT><FONT COLOR="#000000">queryinterface:</FONT></TT><BR>
<BR>
<TT><FONT COLOR="#000000">function QueryInterface(const IID: TGUID; out Obj): HResult; virtual; stdcall;</FONT></TT><BR>
<BR>
<TT><FONT COLOR="#000000">por esta otra:</FONT></TT><BR>
<BR>
<TT><FONT COLOR="#000000">function QueryInterface(constref IID: TGUID; out Obj): HResult; virtual; stdcall;</FONT></TT><BR>
<BR>
<TT><FONT COLOR="#000000">-- </FONT></TT><BR>
<TT><FONT COLOR="#000000">Best regards,</FONT></TT><BR>
<TT><FONT COLOR="#000000"> José</FONT></TT>
</BLOCKQUOTE>
</BODY>
</HTML>