大家好,我是DH,技术交流.
最近我再写程序中需要用到接口,在使用中发现几个问题,这里拿出来说说,希望和大家交流,也希望得到大家的建议.
第一个非常严重的问题就是 查询一个类或者一个接口是否实现了某一个接口.
在delphi里面的方法有个Supports,但这些所有的方法最终都是调用的TObject.GetInterface().
1: function GetInterface(const IID: TGUID; out Obj): Boolean;
从这个函数的参数,我们就能看出来,接口必须要有IID,也就是GUID.丫的,软件工程里面的接口哪有什么GUID呀.真麻烦,这主要是Delphi早期接口就是为了实现COM的,所以接口都有GUID.现在接口可以没有GUID,但是这接口就不是一个完整的接口了,根本不能查询某个类是否实现了它,这还叫接口么?
来看看第二个 委托吧.
1: const
2: IID_IA: TGUID = '{489D2CC5-D6D6-4683-8EB4-BE7AE8B58586}';
3: IID_IB: TGUID = '{7DFBFAC3-98F7-4716-85EE-FBD404C906AC}';
4:
5: type
6: IA = interface
7: ['{489D2CC5-D6D6-4683-8EB4-BE7AE8B58586}']
8: procedure SayA;
9: end;
10:
11: IB = Interface
12: ['{7DFBFAC3-98F7-4716-85EE-FBD404C906AC}']
13: procedure SayB;
14: End;
15:
16: TA = class(TInterfacedObject, IA)
17: procedure SayA;
18: end;
19:
20: TB = class(TInterfacedObject, IA, IB)
21: private
22: FA: TA;
23: public
24: procedure SayB;
25: constructor Create();
26: destructor Destroy; override;
27: property A: TA read FA implements IA;
28: end;
委托在上面这个例子中就是用A来帮你实现IA的接口.你自己就在用写代码了.
这2个单独起来都没有问题,可是合起来后,用过几次后supports就查询不出接口了.
下面我们就来看看这个完整的例子吧.
1: const
2: IID_IA: TGUID = '{B506BE0C-07BD-41A4-8931-3DD69ABEAD82}';
3: IID_IB: TGUID = '{960A6A2F-D706-48D1-BCEC-D06152B42389}';
4:
5: type
6: IA = interface
7: ['{B506BE0C-07BD-41A4-8931-3DD69ABEAD82}']
8: procedure SayA;
9: function GetO: IA;
10: property O: IA read GetO;
11: end;
12:
13: IB = interface
14: ['{960A6A2F-D706-48D1-BCEC-D06152B42389}']
15: procedure SayB;
16: end;
17:
18: TA = class(TInterfacedObject, IA)
19: private
20: FO: TObject;
21: protected
22: function GetO: IA;
23: public
24: constructor Create(AOwner: TObject);
25: procedure SayA;
26: property O: IA read GetO;
27: end;
28:
29: TB = class(TInterfacedObject, IA, IB)
30: private
31: FA: TA;
32: public
33: procedure SayB;
34: constructor Create();
35: destructor Destroy; override;
36: property A: TA read FA Implements IA;
37: end;
38: /////////////////////////////////////////////////////////////////////////////
39: { TA }
40:
41: constructor TA.Create(AOwner: TObject);
42: begin
43: inherited Create;
44: FO:= AOwner;
45: Supports(FO, IID_IA);//error
46: end;
47:
48: function TA.GetO: IA;
49: begin
50: Supports(FO, IID_IA, Result)
51: end;
52:
53: procedure TA.SayA;
54: begin
55: ShowMessage('A');
56: end;
57:
58: { TB }
59:
60: constructor TB.Create;
61: begin
62: FA:= TA.Create(Self);
63: end;
64:
65: destructor TB.Destroy;
66: begin
67: FA.Free;
68: inherited;
69: end;
70:
71: procedure TB.SayB;
72: begin
73: ShowMessage('B');
74: end;
75:
76: procedure TForm3.FormCreate(Sender: TObject);
77: var
78: B : TB;
79: A : IA;
80: C : IB;
81: begin
82: B:= TB.Create;
83: try
84: //获得IA接口
85: Supports(B, IID_IA, A);
86: //这里A.O属性是对A的FO进行查询IA接口 ,然后再查询IB接口
87: //理论上说 A的FO也就是TB对象,是实现了IA 和 IB接口的.
88: //但是实际这里这里C = nil
89: Supports(A.O, IID_IB, C);
90: C.SayB;//error
91: finally
92: B.free;
93: end;
94: end;
上面的代码中我写出来有两处错误的地方.错误的原因主要是委托.TB是委托FA来实现IA的.
第一处错误:你在TB.Create->FA.Create中调用Supports(FO,IID_IA).因为FO的IA是委托FA来实现的,所以编译器就会调用FA.GetInterface(IID_IA);
但是我们现在得发现了,这个过程都还在FA.Create中,也就是FA根本就没有创建好,所以这里会出现一个
第二次错误:Supports(A.O, IID_IB, C);A.O是对A.FO查询了IA接口,FO的IA接口是委托给FA的,所以A.O实际上就是FA.IA偏移.那么对它进行查询IB接口,肯定查询不到.
FA.IA.Self = FA.GetInterface(IID_IB, C);我们知道TA是没有实现IB接口的.所以这里C = nil.
如何解决这个问题?
第一个:最简单的就是A.O这里用类而不是用被委托的接口类型.
第二个:就是像TComponent那样
1: IInterfaceComponentReference = interface
2: ['{E28B1858-EC86-4559-8FCD-6B4F824151ED}']
3: function GetComponent: TComponent;
4: end;
所有接口都继承这个接口,并返回Self.哈哈 实现这个接口的地方就千万不能再委托了.
上面都是我的一些小小愚见,欢迎大家拍砖
来源：https://www.cnblogs.com/huangjacky/archive/2011/07/07/2099923.html