分析一下自己的错误:
首先用Range的GetItem取到的是一个VARIANT,内含IDispatch接口,我一直以为内含的是一个BSTR,所以我已一开始直接用
_bstr_t bs(rg.GetItem(_variant_t((short)1),_variant_t((short)2)));
来获取字符串(主要是的确能获得字符串),根据lop5712(LOP)的提醒,发现返回的VARIANT是接口并不是BSTR;
看来_bstr_t这个类可以把IDispatch接口直接转换为字符串。
跟踪代码发现,在给一个_bstr_t或COleVariant赋值VARIANT类型的时候,如果VARIANT不是VT_BSTR,这时候_bstr_t会调用OLE函数VariantChangeType进行类型转换,根据MSDN说明,如果转换是从一个IDispatch到BSTR,这时VariantChangeType会尝试接口的Value属性,而rg.GetItem返回的接口的确存在Value属性,因而_bstr_t和COleVariant能取到值。
根据上述原因,我们应该释放VARIANT所含的接口,但我用#import 指令导入Excel库的时候,却没有碰到这个问题,看来两种方式的代码是有区别的。
首先谈一下#import导入的情况:
Range 的GetItem声明为:
inline _variant_t Excel::Range::GetItem ( const _variant_t & RowIndex, const _variant_t & ColumnIndex ) {
VARIANT _result;
_com_dispatch_method(this, 0xaa, DISPATCH_PROPERTYGET, VT_VARIANT, (void*)&_result,
L "/x000c/x080c ", &RowIndex, &ColumnIndex);
return _variant_t(_result, false);
}
这种情况下返回的是_variant_t(_result, false);
也就是说已经对返回的VARIANT用_variant_t包装了,而且重要的是第二个参数,第二个参数false告诉_variant_t包装VARIANT时仅仅把内容完整的复制过来,如果不含这个false(默认为true),_variant_t将采用OLE函数VariantCopy,根据MSDN,VariantCopy在碰到BSTR时会再分配一个空间,碰到接口类型时将对接口添加一个引用,所以_variant_t(_result, false)直接把返回值存起来,并在析构的时候自动释放内含的IDispatch。
再来看一下用MFC导入的情况:
声明如下:
VARIANT Range::GetItem(const VARIANT& RowIndex, const VARIANT& ColumnIndex)
这时候返回的是未经过包装的VARIANT,不会自动释放,需要手动完成。
如果用_bstr_t bs(rg.GetItem(_variant_t((short)1),_variant_t((short)2)));
将丢失返回的VARIANT,这就是我发生的错误。
我看到有的网站上的例子是这样的:
_variant_t vt(rg.GetItem(_variant_t((short)1),_variant_t((short)2)));
或
_variant_t vt=rg.GetItem(_variant_t((short)1),_variant_t((short)2));
这样做其实也是有问题的,虽然取到了VARIANT的值,但是不带false的_variant_t会添加一个引用,析构_variant_t只会Release一次,仍然造成对象释放不完全。
解决办法:每次VARIANT中的内容取出来后,调用VariantClear() 将VARIANT清除就好了