COM 组件设计与应用(九)——IDispatch 接口 for VC6.0

核心提示： 四、用 ATL 实现双接口组件(操作方法和步骤，请参考《COM 组件设计与应用(五)》)4-1：建立一个 ATL 工程(Project)，COM 组件设计与应用(九)——IDispatch 接口 for VC6.0(4)，工程名称为“Simple6”4-2：按默认进

四、用 ATL 实现双接口组件(操作方法和步骤，请参考《COM 组件设计与应用(五)》)

4-1：建立一个 ATL 工程(Project)，工程名称为“Simple6”

4-2：按默认进行。选择 DLL 类型、不合并代理和存根代码、不支持MFC、不支持MTS

4-3：New Atl Object... 选择Simple Object

4-4：输入名称和属性，属性按默认进行，也就是 dual(双接口)方式(注3)

4-5：增加函数。在 ClassView 卡片中，选择接口、鼠标右键菜单、Add Method...

Add([in] VARIANT v1, [in] VARIANT v2, [out, retval] VARIANT * pVal);

Upper([in] BSTR str, [out,retval] BSTR * pVal);

关于Add()函数，你依然可以使用 Add([in] long n1, [in] long n2, [out,retval] long * pVal) 方式。但这次我们没有使用 long ，而是使用了 VARIANT 做参数和返回值。这里我先卖个关子，往下看，就知道使用 VARIANT 的精彩之处了。

4-6：完成代码

STDMETHODIMP CDispSimple::Add(VARIANT v1, VARIANT v2, VARIANT *pVal)
{
　　::VariantInit( pVal );　　// 永远初始化返回值是个好习惯
　　CComVariant v_1( v1 );
　　CComVariant v_2( v2 );
　　if((v1.vt & VT_I4) && (v2.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 );
　　　　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();
　　return S_OK;
}

刚才卖的关子，现在开始揭密了......加法函数Add()不使用long类型，而使用VARIANT的好处是：函数内部动态判断参数类型，如果是整数则进行整数加法，如果是字符串，则进行字符串加法（字符串加法就是字符串连接哈）。也就是说，如果参数是VARIANT，那么我们就可以实现函数的可变参数类型呀。怪怪个咙，真爽！