前天碰到有人问SAFEARRAY的问题，我正好对VBSCRIPT里面如何得到COM组件返回的数组感兴趣，就试验了一下。

IDE用的是VC7.1

开始都差不多，建立工程，建立COM对象，建立方法：

接口定义：

[id(2),helpstring("methodGetArray")]HRESULTGetArray1([out,retval]VARIANT*v);

方法实现：

STDMETHODIMPCATL3::GetArray1(VARIANT*pvaVariant)

{

std::vector<float>vct;

vct.push_back(11.4);

vct.push_back(12.4);

vct.push_back(14.4);

CComSafeArray<VARIANT>saMatrix;

for(inti=0;i<vct.size();++i)

{

saMatrix.Add(CComVariant(vct[i]));

}

VariantInit(pvaVariant);

CComVariantvar(saMatrix);

var.Detach(pvaVariant);

returnS_OK;

}

注意的一点就是：VBS或其它脚本环境中要得到返回数组参数，数组中的类型是VARIANT类型。

VBS测试脚本

Dimv4

Cnxn4.Add1,2

v4=Cnxn4.GetArray1()

Dimx

Forx=Lbound(v4)ToUbound(v4)

MsgBoxv4(x)

Next