|
的让系统为我们来完成这些引用计数，学会自己来进行观察、判断很重要，才能举一反三，才能正真的提高组件的效率！同时，作为一个组件，并非会将每个对象的接口都直接的给用户的，它也可以通一个共用的接口来进行其它的接口的引用。实例我将会给出。
再来谈一谈对象模型和引用模型中，引用计数的应用给程序带来的不同。
对象模型和引用模型，我们都比较熟悉，如：
var
pT : TCoClass;//对象模型。
……
var
pI : ICoClass;//引用模型。
……
事实上，接口模型已经在很大的程度上替代了引用模型，如上两段代码，我们都可以在程序中去进行COM对象的调用，那么此时就会用到AS操作符，将一个对象指针赋值给或是被赋值于一个接口指针，此时，Delphi中当应用了AS的时候，它会自动的调用_AddRef函数。接口使用完之后，它会调用_Release函数，用户的对象将被销毁。如下：
Procedure DoSomethingwithInterface(Intf : IFormattedNumber);
Begin
ShowMessage(Intf.FormattedString);
End;
Procedure CreateAndUserObject;
Begin
MyInterger := TformattedInteger.Create(12);
DoSomethingWithInterface(MyInteger as IFormattedNumber);
MyInteger.SetValue(10);
End;
在这个例子中，MyInteger是一个TformattedInteger类的对象。它是使用对象模型(也就是说，TformattedInteger.Create被赋值给了一个对象变量)所创建的。而在调用DoSomethingWithIntegerface时进行转换，用到了As操作符（这就是一个很明显的对象模型、引用或是接口模型的应用），而之前说了，在调用AS时，Delphi会进行_AddRef，而调用完完毕之后，它要进行_Release操作。此时，进行了As转换完毕之后，事实上IformattedNumber的引用计数FrefCount已经为0，那么接口被释放，所以再调用MyIntegerSetValue(10)将会出错，解决的方法是只要我们改变了函数声明，如下：
Procedure DoSomethingwithInterface(var Intf : IFormattedNumber); 或者
Procedure DoSomethingwithInterface(Const Intf : IFormattedNumber);
就可以解决这个问题，理由很简单，Const or var 类型合Delphi通过引用地址传递接口，而不是通过值传递。通过值传递接口将引起Delphi调用_AddRef和_ReLease。改正之后，可以作如下
Procedure DoSomethingwithInterface(var Intf : IFormattedNumber);
Begin
ShowMessage(Intf.FormattedString);
End;
Procedure CreateAndUserObject;
Begin
MyInterger := TformattedInteger.Create(12);
DoSomethingWithInterface(MyInteger);
MyInteger.SetValue(10);
End;
以上代码来自网上，这仅仅是解决又汇合模型的一种方法，其实，在某些时候，我们来进行手动的调用_AddRef or _Release是很有必要的。
再此还要说的一点时，组件的生命周期的确是根据FrefCount来进行动态的作用的，但是，并非是他一人进行掌管，下一篇您将会看到类厂，会发现它也同样的管理着组件的生命周期。
上一页 [1] [2]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
