Delphi判断某个类是否实现了某个接口
2016-08-04 11:06
567 查看
通过TObject.GetInterface可以获得对象的实例实现某个接口,前提条件是必须实例化对象后才能运行GetInterface
下面的方法可获取类是否实现了某个接口,并返回接口的偏移:
下面我们看下通过偏移量的快速获得对象的接口,以及通过接口快速获取对象:
快速获取对象的接口:
快速通过接口获取对象
下面的方法可获取类是否实现了某个接口,并返回接口的偏移:
function FindInterface(AClass: TClass; GUID:TGUID; var Offset:NativeInt):Boolean; var i : integer; InterfaceTable: PInterfaceTable; InterfaceEntry: PInterfaceEntry; begin while Assigned(AClass) do begin InterfaceTable := AClass.GetInterfaceTable; if Assigned(InterfaceTable) then begin for i := 0 to InterfaceTable.EntryCount-1 do begin InterfaceEntry := @InterfaceTable.Entries[i]; if InterfaceEntry.IID=GUID then begin Offset:=InterfaceEntry.IOffset; Exit(True); end; end; end; AClass := AClass.ClassParent; end; end;
下面我们看下通过偏移量的快速获得对象的接口,以及通过接口快速获取对象:
快速获取对象的接口:
type TSomeObject=class(TXXX, ISomeInterface) ...... end; var FItemObjectOffset:NativeInt; //获取偏移量 FindInterface(TSomeObject, ISomeInterface, FItemObjectOffset) var P:TSomeObject; Intf:ISomeInterface; .................................... //通过对象直接获取接口 PNativeInt(@Intf)^:=PNativeInt(@P)^+ FItemObjectOffset; Intf._AddRef;
快速通过接口获取对象
type TSomeObject=class(TXXX, ISomeInterface) ...... end; var FItemObjectOffset:NativeInt; //获取偏移量 FindInterface(TSomeObject, ISomeInterface, FItemObjectOffset) var P:TSomeObject; Intf:ISomeInterface; .................................... //通过接口获取对象 P:=TSomeObject(Pointer(PNativeInt(@Intf)^- FItemObjectOffset));
相关文章推荐
- Delphi判断某个类是否实现了某个接口
- 判断某个类是否实现了某个接口或者继承了某个父类的方法
- C#中如何判断实例是否继承了某个父类或者实现了某类接口
- 在C#中判断某个类是否实现了某个接口
- 在C#中判断某个类是否实现了某个接口
- 【.Net】在C#中判断某个类是否实现了某个接口
- 判断类是否实现了某个接口 和 是否继承了某个类
- C#控制台基础 判断一个类是否实现了指定的接口 IsAssignableFrom
- java中判断一个对象是否实现了某个接口 2011-05-06 16:48:52
- java中判断一个对象是否实现了某个接口
- 在C#中判断某个类是否实现了某个接口
- 在C#中判断某个类是否实现了某个接口
- Delphi实现判断网址是否存在及是否可以打开的方法
- 判断一个类是否继承于指定类或是否实现了指定接口
- as3 判断,某个类是否继承于某个类,某个类是否实现某个接口的方法
- 在C#中判断某个类是否实现了某个接口
- Face++在线接口在Android下的使用,以及简单的Demo实现(判断两张脸是否为同一个人)
- java中判断一个对象是否实现了某个接口
- Face++在线接口在Android下的使用,以及简单的Demo实现(判断两张脸是否为同一个人)
- Delphi 中实现判断某个外部程序是否运行(如果运行则执行一个命令否则执行一个命令)