|
它应该释放它的“叶子”吗？显然不是，那“叶子”是不是一定会晚于这个“合成对象”对象释放呢？我想也不一定吧。如果强制这样规定的话，就失去很多的灵活性。所以我们肯定想这些接口引用置nil时，不会和原对象发生什么关系，以免对象被释放后出非法地址访问错误。考虑使用什么容器呢？array？TList？TInterfaceList？
首先想到肯定是TInterfaceList了，因为我们是要容纳的就是接口。但是对他进行Free时，它会把它所有容纳的接口置为nil，这正是我们不想要的。或者我们可以在Free之前先把它存储的接口引用转为指针再置为nil。
for I := 0 to interList.Count -1 do
Pointer(interList.Items[i]) := nil;
可惜的是，编译错误“[Error] XXXX.pas(XX): Left side cannot be assigned to”。
然后我们试一下array。
interList: Array of I1;
动态数组是不要释放的。好像很好用，但是编译器释放它时还是会对每个元素置为nil的，而且是作为接口，仍然有非法地址访问错误的可能。可以这样
for i := Low(arr) to High(arr) do
Pointer(arr[i]) := nil;
但是这毕竟是违反编码习惯的，而且每次使用都要记得作，不记得作也可能不会马上出错，所以有可能成为隐患。
最后，就是使用TList。不过TList中是指针，所以Add时必须这样
procedure XXX.Add(AIntf: I1)
Begin
InterList.Add(Pointer(AIntf));
End;
由于它本来就保存的是指针，所以释放时也不需要特殊处理。
好像比较完美，但是还是有一个陷阱，如果你写了这样的代码会怎么样呢？
interList.Add(TC2.Create);
或者
Obj2 := TC2.Create;
interList.Add(Obj2);
错！因为保存的是纯粹的指针，所以转化为接口时，对象引用到接口引用的地址转换没有进行（它也不知道如何进行），所以调用接口声明的方法时就又是一个非法地址访问错误。只能这么写：
interList.Add(Pointer(I1(TC2.Create)));
虽然有些麻烦，相比之下这已是最佳方案（我所知的）了。因为你如果你忘记转会在第一次调用时就出错，比较容易发现错误（相比于使用array）。
所以我建议：
1， 使用Tlist来管理接口引用。
2， 增加时要把对象转型成Interface再转型成Pointer，如果本来就是接口引用的话直接转为Pointer即可。
3， 对于没有使用Tlist来管理的接口引用。对于接口的引用要用下面的方法手动置为nil：Pointer（IntfRef）:= nil;
另外，TInterfacedObject也实现了IInterface的三个方法。所以从它继承也可以省去自己实现这三个方法的麻烦。但是它的_Release是这样实现的：
function TInterfacedObject._Release: Integer;
begin
Result := InterlockedDecrement(FRefCount);
if Result = 0 then
Destroy;
end;
我们前边说过，接口引用的置nil会调用接口的_Release，所以有可能会把对象给释放掉，我当时可是被它吓了一跳，多亏我没用过它。也就是这样实现下比从TComponent继承带来更大的麻烦。除非特殊用途，不建议使用。
上面对接口的所有讨论，只限于普通使用的语言级的接口，没有讨论Com+接口。Delphi的这些诡异的接口的实现，和它是从Com+接口发展而来是有很大关系的，也就是由于背负了过重的历史包袱而作出的妥协的结果。
上一页 [1] [2]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
