使用Excel COM组件导出数据后释放 Excel进程不能正常结束

分析一下自己的错误:

首先用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清除就好了

上一篇:4个Linux下最好的命令行下载管理器/加速器


下一篇:大小数据 | 辨析大数据价值与小数据洞察