<div dir="ltr">Chicos,<div><br></div><div>Cuando quiero implementar PascalMock me da el siguiente error:</div><div><br></div><div><div>NoRefCountObject.pas(18,24) Error: No matching implementation for interface method "IUnknown.QueryInterface(constref TGuid,out <Formal type>):LongInt; StdCall;" found</div>

</div><div><br></div><div>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í.</div><div>

<br></div><div><div>type</div><div><br></div><div>  // TNoRefCountObject</div><div>  //</div><div>  {: Base object to implement interfaces without reference counting }</div><div>  <span style="background-color:rgb(255,153,0)">TNoRefCountObject =  class(TObject, IInterface)</span></div>

<div>  protected</div><div>    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;</div><div>    function _AddRef: Integer; stdcall;</div><div>    function _Release: Integer; stdcall;</div><div>  end;</div>

</div><div><br></div><div><div>implementation</div><div><br></div><div>{ TNoRefCountObject }</div><div><br></div><div>function TNoRefCountObject.QueryInterface(const IID: TGUID;</div><div>  out Obj): HResult;</div><div>begin</div>

<div>  if GetInterface(IID, Obj) then</div><div>    Result := 0</div><div>  else</div><div>    Result := E_NOINTERFACE;</div><div>end;  </div></div><div><br></div><div>Y donde señale se el compilador se detiene con error...</div>

<div><br></div><div>Me pueden dar una mano.</div><div><br></div><div>Gracias,</div><div><br></div><div>Pancho</div><div>Cordoba</div><div>Argentina</div></div>