COM 组件设计与应用（十）——IDispatch 接口 for VC.NET

核心提示： 4-5：增加函数，选择接口、鼠标右键菜单、添加方法...Add([in] VARIANT v1, [in] VARIANT v2, [out, retval] VARIANT * pVal);Upper([in] BSTR str, [out,retval] BSTR * pVal);关于

4-5：增加函数。选择接口、鼠标右键菜单、添加方法...

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，那么我们就可以实现函数的可变参数类型呀。怪怪个咙，真爽！