COM 组件设计与应用(18)—属性包.doc

COM组件设计与应用（十八）属性包作者：杨老师下载源代码一、前言书接上回，本回着落在介绍属性包 IPersistPropertyBag 接口的实现方法和调用方式。属性包，是以“名称 - 值”的方式提供组件持续性的支持，而“名称 - 值”恰恰又适合于用文本方式来表现。下面的片段是在 HTML 中插入 Microsoft MonthView Control ActiveX 控件后的样式：以文本方式保存组件属性，比较直观、容易修改，上面 HTML 示例中的 就很清晰。下面开始介绍如何在组件中实现 IPersistPropertyBag 接口。二、组件的实现（1）vc6.0 开发步骤1、建立一个工作空间(WorkSpace)。2、在这个工作空间中，建立 ATL 工程，示例程序工程为 Simple18。3、增加 ATL 对象类，默认全部选项。示例程序中的 ATL 对象短名称是 Property。4、增加一些属性。在以前的章回中，我们只介绍了增加接口函数的方法，由于今天是首次增加接口属性，所以稍微细致一些。步骤是，在ClassView卡片中选择接口(IProperty)后，执行鼠标右键菜单Add Property.5、增加 BSTR 类型的接口属性 str，同样的方式，再增加一个 long 型的接口属性 interger。在示例程序中，这两个属性其实只为演示，并没有实际的意义。6、接口中的属性，多数情况下会对应对象内部的一个成员变量，因此我们现在要添加成员变量。选择对象类名，执行鼠标右键菜单Add Member Variable.7、添加两个成员变量，一个是 CComBSTR m_str 对应于接口属性 str；另一个是 long m_integer 对应于接口属性 integer。（2） 开发步骤1、建立一个空白解决方案。2、在解决方案中，新增 ATL 项目。示例程序中项目名称叫 Simple18， 注意不要选择“属性化编程”方式。3、添加 ATL 类。选择 “ATL 的简单对象”。默认全部选项。示例程序中 ATL 类短名称为 Property，类名称为 CMyProperty。（注1）4、 增加一些属性。在以前的章回中，我们只介绍了增加接口函数的方法，由于今天是首次增加接口属性，所以稍微细致一些。步骤是，在类视图卡片中选择接口(IProperty)后，执行鼠标右键菜单添加属性.5、增加 BSTR 类型的接口属性 str，同样的方式，再增加一个 long 型的接口属性 interger。在示例程序中，这两个属性其实只为演示，并没有实际的意义。6、接口中的属性，多数情况下会对应对象内部的一个成员变量，因此我们现在要添加成员变量。选择对象类名，执行鼠标右键菜单添加变量.7、添加两个成员变量，一个是 CComBSTR m_str 对应于接口属性 str；另一个是 long m_integer 对应于接口属性 integer。(3)实现代码至此，我们组件的框架已经完成，下面该完成函数函数的实现了：STDMETHODIMP Cxxx:get_str(BSTR* pVal)*pVal = m_str.Copy();return S_OK;STDMETHODIMP Cxxx:put_str(BSTR newVal)m_str = newVal;return S_OK;STDMETHODIMP Cxxx:get_integer(LONG* pVal)*pVal = m_integer;return S_OK;STDMETHODIMP Cxxx:put_integer(LONG newVal)m_integer = newVal;return S_OK;没有什么复杂的，就是实现 str、integer 两个属性值的设置和读取功能。（4）添加 IPersistPropertyBag 接口还记得我们在上回书中如何添加 IPersistStreamInit 的吗？添加 IPersistPropertyBag 的方法也一样，但这次我们换一个方式，即我们不从 IPersistPropertyBag 派生，而是从 IPersistPropertyBagImpl 派生。在 ATL 中，系统帮我们已经完成了很多接口的默认实现，我们只要从 IxxxImpl 派生，然后再添加一些必要的映射和变量，就可以了。这样显然要比自己去实现接口的所有函数要简单许多了。其实，如果你明白了本回 IPersistPropertyBagImpl 派生的方法后，你完全可以修改前回书中的实现方法，从 IPersistStreamInit 派生改进为从 IPersistStreamInitImpl 派生。class ATL_NO_VTABLE Cxxx : public CComObjectRootEx,public CComCoClass,public IDispatchImpl,public IPersistPropertyBagImpl/ 手工添加派生类. . .BEGIN_COM_MAP(Cxxx). . .COM_INTERFACE_ENTRY(IPersistPropertyBag)/ 手工添加接口表END_COM_MAP(). . ./ 手工添加属性映射表，这是 IPersistXXXImpl 所必须的。/ 将来你在写 ActiveX 的时候，ATL 向导会帮我们添加属性映射表BEGIN_PROP_MAP(Cxxx)/ 参数：属性名称, 接口属性序号(见IDL文件), 属性页对话窗PROP_ENTRY(str, 1, CLSID_NULL)PROP_ENTRY(integer, 2, CLSID_NULL)END_PROP_MAP(). . .public:. . ./ 这个成员变量，是 IPersistXXXImpl 所必须的bool m_bRequiresSave;/ 表示属性数据是否已经改变而需要保存;我们只要手工添加以上内容，而不用自己写任何 IPersistPropertyBag 接口的函数，多简单呀！天空出彩霞呀，地上开红花呀.会唱这只歌的同学请举手，每个人奖励 vckbase 的专家分 500 ！三、调用者的实现我们在阅读 MSDN 关于 IPersistPropertyBag 接口函数的时候，你会发现还需要一个接口 IPropertyBag 与之配合才能实现属性包功能。而 IPropertyBag 则需要我们在调用者（容器）中来实现该接口。它们之间的关系如下： 前面几回书中，我们已经学会了从 IUnknown 派生类，也学会了从 IDispatch 派生类，也学会了从 ICallBack 派生类.同样，这回我们要从 IPropertyBag 派生了。在示例程序中，我们添加了一个类 CPropertyBag:public IPropertyBag，同时重载了所有的虚函数。 STDMETHODIMP CPropertyBag:QueryInterface(const struct _GUID &iid,void * ppv)*ppv = this;return S_OK;ULONG _stdcall CPropertyBag:AddRef(void)return 1;/ 做个假的就可以，因为反正这个对象在程序结束前是不会退出的ULONG _stdcall CPropertyBag:Release(void)return 0;/ 做个假的就可以，因为反正这个对象在程序结束前是不会退出的STDMETHODIMP CPropertyBag:Read(LPCOLESTR pszPropName,VARIANT *pVar,IErrorLog *pErrorLog)/ 根据 pszPropName 指定的属性名称，你要提供该属性的值。/ 而值的数据类型已经在 pVal-vt 中指定了。if( 如果能提供指定的数据 )return S_OK;elsereturn E_FAIL;STDMETHODIMP CPropertyBag:Write(LPCOLESTR pszPropName,VARIANT *pVar)/ 根据 psaPropName 指定的属性名称和 pVar 提供的值/ 你保存到文本中去吧。return S_OK;以上是调用者（容器）程序的关键部分，其它的管理和协调部分，读者去阅读示例程序代码。编译注册组件，并运行调用者示例程序，显示如下：在编辑窗口中你可以随便指定 str 和 interger 的值，然后“启动组件”，那么你设定的属性值就会在启动组件的同时，通过 IPersistPropertyBag 接口设置到组件中（还原了持续性的环境）。而后，你就可以在下面的 Property 分组操作中，“设置/读取”组件的属性了。当“关闭组件”的时候，程序通过调用 IPersistPropertyBag 接口函数，又重新取得组件的属性名称和值保存到编辑