作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

最近要用自动化组件传递字符串数组，查阅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;

}

相关软件：