• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

Delphi判断某个类是否实现了某个接口

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

通过TObject.GetInterface可以获得对象的实例实现某个接口，前提条件是必须实例化对象后才能运行GetInterface

下面的方法可获取类是否实现了某个接口，并返回接口的偏移：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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;

　下面我们看下通过偏移量的快速获得对象的接口，以及通过接口快速获取对象：

快速获取对象的接口：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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;

　　

快速通过接口获取对象

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type
  TSomeObject=class(TXXX, ISomeInterface)
  ......
  end;
 
var
  FItemObjectOffset:NativeInt;
 
//获取偏移量
FindInterface(TSomeObject, ISomeInterface, FItemObjectOffset)
 
var
  P:TSomeObject;
  Intf:ISomeInterface;
....................................
 
//通过接口获取对象
  P:=TSomeObject(Pointer(PNativeInt(@Intf)^- FItemObjectOffset));

https://www.cnblogs.com/hezihang/p/5735897.html

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi开发动态连接库的方法和规范发布时间：2022-07-18
下一篇：
MATLAB聚类有效性评价指标（外部）MATLAB聚类有效性评价指标（外部成对度量）Mutualin ...发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap