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

}