JCL中由接口获得对象的方法

ruilin215

浏览: 1142617 次
性别:
来自: 成都

最近访客更多访客>>

u012363178

Csupport

8612

huangyunhui

博主相关

博客

微博

相册

留言

关于我

文章分类

全部博客 (1505)

社区版块

存档分类

CSS

我原本并不想单独发以下JCL的方法，可是想到很多人可能还是不知道的。另外，从我博客的回复上看，很多人也愿意去了解一下，特此贴出JCL中的代码。


//===Interfaceinformation==================================================

functionGetImplementorOfInterface(constI:IInterface):TObject;
...{TODO-cDOC:OriginalcodebyHallvardVassbotn}
...{TODO-cTesting:Checktheimplemetationforanyfurtherversionofcompiler}
const
AddByte=$04244483;//opcodeforADDDWORDPTR[ESP+4],Shortint
AddLong=$04244481;//opcodeforADDDWORDPTR[ESP+4],Longint
type
PAdjustSelfThunk=^TAdjustSelfThunk;
TAdjustSelfThunk=packedrecord
caseAddInstruction:Longintof
AddByte:(AdjustmentByte:ShortInt);
AddLong:(AdjustmentLong:Longint);
end;
PInterfaceMT=^TInterfaceMT;
TInterfaceMT=packedrecord
QueryInterfaceThunk:PAdjustSelfThunk;
end;
TInterfaceRef=^PInterfaceMT;
var
QueryInterfaceThunk:PAdjustSelfThunk;
begin
try
Result:=Pointer(I);
ifAssigned(Result)then
begin
QueryInterfaceThunk:=TInterfaceRef(I)^.QueryInterfaceThunk;
caseQueryInterfaceThunk.AddInstructionof
AddByte:
Inc(PChar(Result),QueryInterfaceThunk.AdjustmentByte);
AddLong:
Inc(PChar(Result),QueryInterfaceThunk.AdjustmentLong);
else
Result:=nil;
end;
end;
except
Result:=nil;
end;
end;