首页 > 应用开发 > IT综合 > 传递自动化字符串数组 (转)
最近要用自动化传递字符串数组,查阅MSDN相关资料,还是觉得不够详尽。费了好大力气才调通,(也可能是水平不够,见笑)。特写下一简单实例,希望会对其他人有所帮助。
:namespace prefix = o ns = "urn:schemas--com::office" />
为自动化传递数组要选择VARIANT类型,在组件中创建分配,由COM机制来释放内存。所以COM客户在用完组件要SET OBJ=NULL来清内存。自动化传递的字符串是BSTR型,选用_bstr_t包装类会简单的多。
解释:创建数组,数组赋值,将数组传入返回值。
希望和大家交流,也请将错误指出。联系:
本程序在VC6,中测试通过。以下是代码:
STDMETHOD(GetArray)(/*[out]*/VARIANT* pArray);
STDMETHODIMP CRegWorker::GetArray(VARIANT *pArray)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState())//选择MFC支持自动添加
int i;
_bstr_t Temp;//#include
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;
}
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-977194/,如需转载,请注明出处,否则将追究法律责任。