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

解析JCL中的接口实现

最新推荐文章于 2021-02-26 08:42:25 发布

最新推荐文章于 2021-02-26 08:42:25 发布 · 70 阅读

文章标签：

#CSS

本文分享了JCL代码中关于接口实现的具体汇编代码片段，并详细解释了接口和对象指针偏移的硬编码过程。通过理解这些底层实现细节，可以更好地掌握对象和接口之间的转换机制。

我原本并不想单独发以下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;