Hello Jos�,
Saturday, November 20, 2010, 1:32:34 AM, you wrote:
JAC> Hola, he probado lo que me indicabas pero sigue dando el mismo error. Te JAC> pongo toda la lista de errores por si te puede dar alguna pista. JAC> Muchas gracias por tu sugerencia.
JAC> Un saludo.
JAC> zeoslib/src/core/ZClasses.pas(84,22) Error: No matching implementation JAC> for interface method "IUnknown.QueryInterface(constref TGuid,out <Formal type>>):LongInt; CDecl;" found
JAC> zeoslib/src/core/ZClasses.pas(84,22) Error: No matching implementation JAC> for interface method "IUnknown._AddRef:LongInt; CDecl;" found JAC> zeoslib/src/core/ZClasses.pas(84,22) Error: No matching implementation JAC> for interface method "IUnknown._Release:LongInt; CDecl;" found JAC> zeoslib/src/core/ZClasses.pas(183,14) Warning: An inherited method is JAC> hidden by "TZAbstractObject.Equals(const IUnknown):Boolean;" JAC> zeoslib/src/core/ZClasses.pas(186,14) Warning: An inherited method is JAC> hidden by "TZAbstractObject.ToString:AnsiString;" JAC> zeoslib/src/core/ZClasses.pas(190,1) Fatal: There were 3 errors JAC> compiling module, stopping
Veo que lo est�s compilando en Linux, as� que has de cambiar tambi�n los stdcall del IUnknown a CDecl ya que ahora en Linux no usan stdcall (de hecho tampoco lo usaba antes, simplemente "pasaba por encima").
Vamos que deber�a quedarte algo as�:
{$IFDEF FPC}
PDateTime = ^TDateTime;
TAggregatedObject = class(TObject)
private
FController: Pointer;
function GetController: IInterface;
protected
function QueryInterface(constref IID: TGUID; out Obj): HResult; cdecl;
function _AddRef: Integer; cdecl;
function _Release: Integer; cdecl;
public
constructor Create(const Controller: IInterface);
property Controller: IInterface read GetController;
end;
TContainedObject = class(TAggregatedObject, IInterface)
protected
function QueryInterface(constref IID: TGUID; out Obj): HResult; virtual; cdecl;
end;
{$ENDIF}
O puedes recrear los ifdefs de freepascal para que se auto-adapte a la plataforma:
IUnknown = interface
['{00000000-0000-0000-C000-000000000046}']
function QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid : tguid;out obj) : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _AddRef : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _Release : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
end;
A este define {$IFDEF FPC_HAS_CONSTREF} no se si tendr�s acceso en tu unit (la de zeos vamos) :-?
Best regards,
Jos�
