Delphi – 愤怒的接口

大家好,我是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.哈哈 实现这个接口的地方就千万不能再委托了.

---

上面都是我的一些小小愚见,欢迎大家拍砖