访问冲突异常德尔福的支援 - >的QueryInterface

我有下面的代码：访问冲突异常德尔福的支援 - >的QueryInterface

for i := 0 to FControlList.Count - 1 do 
     if Supports(IMyControl(FControlList[i]), IMyControlEx) then 
     begin 
     MyControlEx := IMyControl(FControlList[i]) as IMyControlEx; 
     MyControlEx.DoYourMagic(Self, SomeData); 
     end;

此代码是我的应用程序执行期间被调用很多次，但在某些特定情况下它失败的支架内（）方法。更具体地说 - 它似乎属于Supports（）方法内的QueryInterface（）调用。

我检查了FControlList不是零和FControlList [i]不为零，它仍然会发生。

任何想法可以理解的！

来源

2010-03-21 Sharon

你能删除的支持投给IMyControl打电话？什么是FControlList，IInterfaceList？ – mjn 2010-03-21 10:32:28

还要注意TControl可以有自己的生命周期管理，即使它们是TInterfacedPersistent的子类，它们也不使用引用计数。请参阅http://stackoverflow.com/questions/2182612 – mjn 2010-03-21 11:29:12

这只是因为TInterfacedPersistent不使用引用计数。否则使用TInterfacedObject。 – 2010-03-21 12:03:33

即使FControlList[I]不nil，这并不意味着它指向有效的数据。底层对象实例可能已经被释放。

我也建议删除类型转换为IMyControl。 Supports可以将对象和接口作为参数，即使它们是nil，并产生所需的结果。

此外，您可以考虑使用电话supports你的代码的舒适和readabilty的是这样的：

if Supports(FControlList[i], IMyControlEx, MyControlEx) then 
begin 
    MyControlEx.DoYourMagic(Self, SomeData); 
end;

来源

2010-03-21 11:21:00

+1在这种情况下 – 2010-03-21 12:10:06

权载体的使用看起来像你说的没错，确实有一些释放的数据。问题非常复杂，我还没有解决，但仍然 - 这就是答案。谢谢！ – Sharon 2010-03-22 06:53:42

访问冲突异常德尔福的支援 - >的QueryInterface

回答

相关问题