[Lazarus-es] Implementar PascalMock

[francisco prieto]

Chicos,

Cuando quiero implementar PascalMock me da el siguiente error:

NoRefCountObject.pas(18,24) Error: No matching implementation for interface
method "IUnknown.QueryInterface(constref TGuid,out <Formal type>):LongInt;
StdCall;" found

Revisando en foros este mismo error dicen que la defincion es distinta a la
implementacion y es por eso que da el error, sin embargo, el código que
pertenece al paquete esta escrito así.

type

  // TNoRefCountObject
  //
  {: Base object to implement interfaces without reference counting }
  TNoRefCountObject =  class(TObject, IInterface)
  protected
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

implementation

{ TNoRefCountObject }

function TNoRefCountObject.QueryInterface(const IID: TGUID;
  out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
    Result := 0
  else
    Result := E_NOINTERFACE;
end;

Y donde señale se el compilador se detiene con error...

Me pueden dar una mano.

Gracias,

Pancho
Cordoba
Argentina
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20140620/25c7d055/attachment-0002.html>