com的问题

[whn]

我用ATL生成一个COM给VB用
其中有一个方法是想返回一个字符数组给VB，所有我用VARIANT
但我看到在COM里面返回都是HRESULT，可不可改成返回VARIANT
应该如何返回给VB呢，用接口的参数可以吗，
请给一些代码，或简单的工程
谢谢

[Semigod]

可以返回VARIANT，要返回字符串给VB，就返回 BSTR类型的

[whn]

BSTR send_data_buf[3]={
L"123",
L"abc",
L"xyz"};
int send_data_len=3;
SAFEARRAY * psa;//安全数组
SAFEARRAYBOUND rgsabound[1];
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = send_data_len; // SAFEARRAY长度
psa = SafeArrayCreate(VT_BSTR, 1, rgsabound);//创建类型为字节的数组

long len;
for(len=0;len<send_data_len;len++)
SafeArrayPutElement(psa, &len, send_data_buf[len]);//缓冲区数据入安全数组

VARIANT send_var;
send_var.vt=VT_ARRAY|VT_BSTR;
send_var.parray=psa;
int Nums=send_var.parray->rgsabound->cElements;
BSTR bstr;
for(int i=0;i<Nums;i++)
{
bstr=(BSTR)send_var.parray->pvData+i;
CString str=bstr;
}

以上代码是我想生成一个BSTR的数组的VARIANT
但SafeArrayPutElement(psa, &len, send_data_buf[len]);
只能执行一次，就错了
还有我从新将数组里的内容显示出来，
int Nums=send_var.parray->rgsabound->cElements;
BSTR bstr;
for(int i=0;i<Nums;i++)
{
bstr=(BSTR)send_var.parray->pvData+i;
CString str=bstr;
}
那样对吗？