COM参数如何传递数组

好象很少情况会在com的参数中用到数组。但有时候数组确实也会有它的方便之处。特别是
变体数组可以存放不同的数据类型，特别的方便。(还有就是传递不定数目的参数时，可利
用变体数组，非常有用)
比如现在有一堆数据需要进行处理，处理的分支条件是数据的类型。

vb中的调用代码：

dim var1,var2
redim var1(3)
var1(0) = cint(10) '整型需要*10
var1(1) = clng(10) '长整型需要*100
var1(2) = cstr(10) '字串需要加个前缀：string:
var2 = com.handle(var1)

在windows中对ole的处理包含了对数组的处理，但用起来很麻烦。好在vc对其进行了包
装，colesafearray 可以很好并且很简单的处理。
vc中处理如下：(使用mfc)
variant ccomarrayhandle::handle(variant far* var)
{
    colesafearray sainput(var);
    colesafearray saret;
    long index[1],l,u;
    sainput.getlbound(1,&l);
    sainput.getubound(1,&u);
    dword numelements[] = {abs(u-l)};
    saret.create(vt_variant, 1, numelements);
    for(index[0]=l; index[0]<u; index[0]++)
    {
        index[0] = ii;
        variant val;
        sainput.getelement(index,&val);
        switch (val.vt)
        {
        case vt_i2:
            val.ival = 10 * val.ival;
            break;
        case vt_i4:
            val.lval = 100 * val.lval;
            break;
        case vt_bstr:
        {
            cstring stemp = val.bstrval;
            stemp = _t("string:") + stemp;
            val.bstrval = stemp.allocsysstring();
            break;
        }
        default:
            break;
        }
        saret.putelement(index, &val);
    }
    return saret.detach();
}
如果要将一维数组变为多维数组，只需要简单更改参数即可。