最近要用自动化组件传递字符串数组，查阅MSDN相关资料，还是觉得不够详尽。费了好大力气才调通，（也可能是水平不够，见笑）。特写下一简单实例，希望会对其他人有所帮助。
为自动化传递数组要选择VARIANT类型，在组件中创建分配内存，由COM机制来释放内存。所以COM客户在用完组件要调用SET OBJ=NULL来清内存。自动化传递的字符串是BSTR型，选用_bstr_t包装类会简单的多。
程序解释：创建数组，数组赋值，将数组传入返回值。
希望和大家交流，也请将错误指出。联系MAIL：[email protected]
本程序在VC6，VB6中测试通过。以下是代码：
STDMETHOD(GetArray)(/*[out]*/VARIANT* pArray);
STDMETHODIMP CRegWorker::GetArray(VARIANT *pArray)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState())//选择MFC支持自动添加
int i;
_bstr_t Temp;//#include <comdef.h>，为操作BSTR简单
PCHAR ArrayBack[] = {//返回的数组，最简单的形式
"string1",
"string2",
"string3",
"string4",
"string5"
};
SAFEARRAY* psa;//定义数组描述符
SAFEARRAYBOUND bound[1] = { 5,1 }; //一维数组
psa = SafeArrayCreate ( VT_BSTR, 1, bound );//创建数组
_ASSERTE ( psa != NULL );
for( i=1;i<6;i++){
Temp = _bstr_t(ArrayBack[i-1]);
SafeArrayPutElement(psa,(long*)&i,Temp.copy());//数组赋值，必须是BSTR型
}
pArray->vt = VT_ARRAY | VT_BSTR;//VARIANT类型定义，BSTR型数组
pArray->parray = psa; //数组传入返回值
return S_OK;
}
本文地址：http://com.8s8s.com/it/it2155.htm