ITPub博客

首页 > 应用开发 > IT综合 > 传递自动化字符串数组 (转)

传递自动化字符串数组 (转)

原创 IT综合 作者:amyz 时间:2007-10-17 18:16:08 0 删除 编辑
传递自动化字符串数组 (转)[@more@] 

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

 XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

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

 

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

希望和大家交流,也请将错误指出。联系Mailokokex@sina.com.cn

本程序在VC6,vb6中测试通过。以下是代码:

 

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;

}


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-977194/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 我的程序观 (转)
请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7372721