COM 组件技术实验6.docVIP

COM 组件技术实验6---自动化组件的应用（一）：ATL实现自动化组件及其在VBS和VBA中的应用 一、实验内容　　1、参照文档，完成自动化COM组件（工程名：ComExp6，短号：Auto，方法1：AddEx()，方法2：Upper()）。其中，方法AddEx()的功能扩展了以前的方法Add()，它能判断入参的类型，若传入的是整数，则完成加法功能，若传入的是字符串，则完成连接功能。方法Upper()将传入的的字符串转换为大写状态。重点在于VARIANT和BSTR的应用。 2、编写客户程序测试该自动化组件。参照文档，分别使用vbscript和vba进行调用，以理解自动化组件的应用本质（使其他高级语言或脚本语言都能调用COM组件，从而形成不同语言（环境）间的互通） 二、实验步骤 用 ATL 实现自动化组件 1-1：建立一个 ATL 工程(Project)，工程名称为“ComExp4”??? 1-2：按默认进行。选择 DLL 类型、不合并代理和存根代码、不支持MFC、不支持MTS??? 1-3：New Atl Object... 选择Simple Object??? 1-4：输入名称和属性，属性按默认进行，也就是 dual(双接口)方式??? 1-5：增加两个方法。 Add([in] VARIANT a, [in] VARIANT b, [out, retval] VARIANT * pVal);Upper([in] BSTR str, [out,retval] BSTR * pVal);?????1-6：完成代码 STDMETHODIMP CDispSimple::Add(VARIANT a, VARIANT b, VARIANT *pVal) { ::VariantInit( pVal ); //初始化返回值（对于不马上赋值的VARIANT，最好先用Void VariantInit（VARIANTARG FAR* pvarg）;进行初始化,其本质是将vt设置为VT_EMPTY） CComVariant v_1( a ); //将a传给CcomVariant模板类的实例化对象v_1，关于CcomVariant请看下说明 CComVariant v_2( b ); if((a.vt VT_R8) (b.vt VT_R8) ) // 如果都是小数类型（通过a.vt VT_R8 来判断是否含有VT_R8类型，不能用==进行判断） { v_1.ChangeType( VT_R8 ); // 转换为小数 v_2.ChangeType( VT_R8 ); // 转换为小数 pVal-vt = VT_R8; pVal-dblVal = v_1.dblVal + v_2.dblVal; // 加法 } else if((a.vt VT_I4) (b.vt VT_I4) ) // 如果都是整数类型 { v_1.ChangeType( VT_I4 ); // 转换为整数 v_2.ChangeType( VT_I4 ); // 转换为整数 pVal-vt = VT_I4; pVal-lVal = v_1.lVal + v_2.lVal; // 加法 } else //其他情况做为字符串处理 { v_1.ChangeType( VT_BSTR ); // 转换为字符串 v_2.ChangeType( VT_BSTR ); // 转换为字符串 CComBSTR bstr( v_1.bstrVal ); //将v_1.bstrVal传给CComBSTR模板类的实例化对象bstr，关于CComBSTR请看下说明 bstr.AppendBSTR( v_2.bstrVal ); //字符串连接 pVal-vt = VT_BSTR; pVal-bstrVal = bstr.Detach(); //给出参赋值 } return S_OK; } STDMETHODIMP CDispSimple::Upper(BSTR str, BSTR *pVal) { *pVal = NULL; //初始化返回值是个好习惯 CComBSTR s(str); s.ToUpper(); // 转换为大写 *pVal = s.Copy();//传给*pVal return S_OK; } 说明： 以上代码必须搞懂 CComVariant是对VARIANT的封装类；CComBSTR是对BSTR的封装类。使用ATL提供的CcomVariant和CComBSTR比VARIANT、BSTR简便（通过封装类的现有函数），所以通常我们一般不直接使用原始的VARIANT、BSTR。