如何实现单例的进程内COM组件

    最近要做一个状态保存器，希望用进程内COM实现，并且将状态保存在内存中，其实很简单，只需要在组件的应用程序中开辟全局内存区，即可达到效果，但突然想到，为什么进程内组件不能实现单例呢？于是，进行了若干尝试。
    问题提出：
    如何实现一个单例的COM进程内组件.(类似进程外组件的SingleUse)

    仔细查看后发现：
1：由于组件的实例创建由类厂实现，而类厂实际上是通过new的方式来创建实例，所以，很难通过类似单例设计模式中的方法来达到目的。如果要实现，估计得改造类厂，调用组件类提供的专用获取实例的方法(类似单例模式，采用全局指针来指向唯一实例)，然后将构造屏蔽，但想想MFC和ATL中实现COM的复杂性，我很快就放弃了这种想法。

2：或许， 对于进程内组件做单例没有什么实际需要,因为每次创建一份接口实例并没有太大消耗(当然,要保证组件接口内的实现代码简单,否则,会有内存损耗).,或者使用完即时的关闭。而数据如需共享可以通过组件应用的外层数据区来实现. 因此: MS并未考虑如何简单生成单例的进程内组件COM。
对于进程外组件,当然有必要单例,因为新创建一个进程的代价是相当之高的。   

3：再仔细一想，实际上可以改进程序结构，达到类似单例的效果。
原理：虽然进程内COM的单例不好实现,但可以通过组件内包含单例对象来达到等同的效果.
只要将业务逻辑封装到实现单例的对象中,那就可以达到最大程度的节省内存和提高效率(减少程序的加载) 。

举一下例子：
     在VC中: (适用于MFC或ATL)
     a：组件内包含 CImplement * pImp. 
     b：将组件的业务逻辑全部封装到CImplement中,组件的接口仅相当于一个代理. 
     c：组件创建时,获取pImp,保证pImp指向单一对象,这很容易啦,用单例模式即可。 
     在VB中: 
     a：在Moudle中包含  public gImp as classImpement
     b： public function getImpInstance() as object 
                if gImp is nothing then 
                   set gImp = new classImplement 
                endif 
               set getImpInstanc = gImp
            end function 
      c：将业务逻辑封装到classImplement类中,该类定义为私有. 
      d：:组件接口通过 getImpInstance获取实现对象,调用相应功能,即可.

最后：
      此种方式并未实现单例，只是尽可能的达到单例所能达到的目的。因为，这种方式下，组件的创建如果不在调用方进行控制(如：需要多个组件程序调用)，仍然会生成多个实例。
      实际意义大不大，得看具体的应用场景。

石头 于 2006.03.16