传递自动化字符串数组

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;

}