T R I V I A L (trabajo con delphi 3)
Publicado por Ismael (136 intervenciones) el 06/11/2001 08:57:12
BUENO, AL DARLE COMPILAR APARECE ESTE ERROR EN ESTE REGLON:
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
Y EL ERROR DICE:
Undeclared Identifier: HResult
Y ESTA ES LA FUNCION COMPLETA:
function TLRU.QueryInterface(const IID: TGUID; out Obj): HResult;
const
E_NOINTERFACE = LongInt($80004002);
begin
if GetInterface(IID, Obj) then
Result := 0
else
Result := E_NOINTERFACE;
end (*QueryInterface*);
QUISIERA SABER PORQUE MARCA ERROR Y QUE ES LO QUE HAY QUE AGREGAR.
Gracias.
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
Y EL ERROR DICE:
Undeclared Identifier: HResult
Y ESTA ES LA FUNCION COMPLETA:
function TLRU.QueryInterface(const IID: TGUID; out Obj): HResult;
const
E_NOINTERFACE = LongInt($80004002);
begin
if GetInterface(IID, Obj) then
Result := 0
else
Result := E_NOINTERFACE;
end (*QueryInterface*);
QUISIERA SABER PORQUE MARCA ERROR Y QUE ES LO QUE HAY QUE AGREGAR.
Gracias.
Valora esta pregunta
0