COM 组件技术实验6

COM 组件技术实验6---
自动化组件的应用（一）：ATL实现自动化组件及其在VBS和VBA中的应用
一、实验内容
1、参照文档，完成自动化COM组件（工程名：ComExp6，短号：Auto，方法1：AddEx()，方法2：Upper()）。

其中，方法AddEx()的功能扩展了以前的方法Add()，它能判断入参的类型，若传入的是整数，则完成加法功能，若传入的是字符串，则完成连接功能。

方法Upper()将传入的的字符串转换为大写状态。

重点在于VARIANT和BSTR的应用。

2、编写客户程序测试该自动化组件。

参照文档，分别使用vbscript和vba 进行调用，以理解自动化组件的应用本质（使其他高级语言或脚本语言都能调用COM组件，从而形成不同语言（环境）间的互通）
二、实验步骤
1、用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 * p Val);
Upper([in] BSTR str, [out,retval] BSTR * p Val);
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;
}
说明：
1、以上代码必须搞懂
2、CComVariant是对VARIANT的封装类；CComBSTR是对BSTR的封装类。

使用ATL
提供的CcomVariant和CComBSTR比VARIANT、BSTR简便（通过封装类的现有函数），所以通常我们一般不直接使用原始的VARIANT、BSTR。

3、下表列举vt与常用数据的对应关系:
unsigned char bVal; VT_UI1
short iVal; VT_I2
long lVal; VT_I4
float fltVal; VT_R4
double dblVal; VT_R8
V ARIANT_BOOL boolVal; VT_BOOL
SCODE scode; VT_ERROR
CY cyVal; VT_CY
DA TE date; VT_DATE
BSTR bstrVal; VT_BSTR
IUnknown FAR* punkVal; VT_UNKNOWN
IDispatch FAR* pdispVal; VT_DISPATCH
SAFEARRAY FAR* parray; VT_ARRAY|*
4、加法函数AddEx()不使用long类型，而使用VARIANT的好处是：函数内部动态判断参数类型，如果是整数则进行整数加法，如果是字符串，则进行字符串加法（字符串加法就是字符串连接）。

也就是说，如果参数是VARIANT，那么我们就可以实现函数的可变参数类型。

2、脚本调用自动化组件（vbscript使用举例）
打开“记事本”程序，输入脚本程序，保存为xxx.vbs 脚本文件。

然后双击就能运行它。

3、vba调用自动化组件（WORD中使用举例）
说明：
VBA 是专门开发Off ice应用的一种语言---Visual Basic for Application，与vb 非常类似（如：环境，语法，常用控件等）
3-1：录制一段宏程序
3-2：选择“键盘”，当然你也可以把这个“宏”程序放到“工具栏”上去。

这里我们随便指定一个快捷键，比如Atl+Z（键入即可）
3-3：开始录制了，随便输入点东西。

然后点“停止”
3-4：接下来，执行菜单，选择这个刚刚录制的宏，然后编辑它
3-5：点“编辑”按钮，输入下面的程序：
然后保存关闭VBA 的编辑器。

3-6：看下效果
然后按快捷键Atl+Z
我们已经扩展了MS WORD 的功能，虽然只是一个简单的例子，但通过这个例子，可以体会到自动化组件的功能、作用。