传递自动化字符串数组

传递自动化字符串数组

最近要用自动化组件传递字符串数组，查阅MSDN相关资料，还是觉得不够详尽。费了好大力气才调通，（也可能是水平不够，见笑）。特写下一简单实例，希望会对其他人有所帮助。

为自动化传递数组要选择VARIANT类型，在组件中创建分配内存，由COM机制来释放内存。所以COM客户在用完组件要调用SET OBJ=NULL来清内存。自动化传递的字符串是BSTR型，选用_bstr_t包装类会简单的多。

程序解释：创建数组，数组赋值，将数组传入返回值。

希望和大家交流，也请将错误指出。联系MAIL：

本程序在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;//定义数组描述符