请教一个有关BSTR和数组的简单问题,在线等待！！！

[lun2001]

我的一位同事用VC6写了一个COM
定义为:
change(BSTR arrStr[])

在VC6中调用是没有问题

在VB6中调用却提示那个参数arrStr是一个String型
而不是String数组

请问是哪里出了毛病呢???

是VC里面的问题还是VB的问题呢?????

[thinkustc]

up

[lun2001]

在vb.net中:

dim arrStr() As String = {"aaa","bbb","ccc"}

obj.change(arrStr)

提示数组不能转换为String

[wooingcn]

你说的VB中的String数组 是不是和CStringArray相类似的变量类型呢？

[thinkustc]

vc 客户程序
int arraySize = 3 ;
CString aa[3] = {"aa","bb","cc"};
在客户程序
p->change(arraySize,aa);
就可以调用com中的change([ in ] int aSize ,[in] BSTR arrStr[] );

那么在VB的客户程序里任何实现呢?

[lun2001]

waiting...

[lun2001]

up

[paul2002]

obj.change(arrStr(0))试试.
不行的话,改VC
//IDL
change([in] SAFEARRAY(BSTR)* ARR)
//
change(SAFEARRAY** ARR)

[lun2001]

to:xiner(叉叉)

我不知道CStringArray和VB的string有什么关系

但在VC的COM接口规范中只能用BSTR来接收String

是吗???

[lun2001]

waiting.....

[nuaazwg]

用change(BSTR arrStr[][])试试

[paul2002]

STDMETHODIMP C::GetName(SAFEARRAY** pVal)
{
HRESULT hr;
//一维，基数0，3个元素
SAFEARRAY* name=SafeArrayCreateVector(VT_BSTR,0,3);
ATLASSERT(name);
long ix[1];
//第一维索引
ix[0]=0;
for(int i=0;i<3;i++)
{
hr=SafeArrayPutElement(name,ix,(void*)(BSTR)_bstr_t("hello!"));
ix[0]++;
}
if(SUCCEEDED(hr))
*pVal=name;
else
*pVal=0;
return hr;
}

STDMETHODIMP C::SetName(SAFEARRAY **arr)
{
ULONG DM=SafeArrayGetDim(*arr);
long bd;
HRESULT hr;
SafeArrayGetUBound(*arr,DM,&bd);
long rg[1];
rg[0]=0;
for(int i=0;i<bd;i++)
{
BSTR bstr;
hr=SafeArrayGetElement(*arr,rg,&bstr);
if(SUCCEEDED(hr))
{
_bstr_t s(bstr);
MessageBox(NULL,s,NULL,NULL);
}
rg[0]++;
}
return hr;
}
另外由于VC6的BUG，IDL文件中 change([in] SAFEARRAY(BSTR)* ARR) 这样定义会出错，须手工输入，VC7不会。

[lun2001]

非常感谢 paul2002()!!!

又在测试中........

[lun2001]

我也用类似的方法写过
是
C::SetName(VARIANT arr)

最后只取到每个字串的第一个字符

用int型的数组作参数
是可以正确取出的

请问你的方法在VB中如何调用的呢???

[paul2002]

'in vb IX1 is the default IDispath Interface,and IX2 has the methods
Set obj1 = New C.IX1
Dim obj2 As IX2
Set obj2 = obj1
Dim str() As String
Dim i As Integer
str=obj2.GetName
For i = 0 To UBound(str)
Print str(i)
Next
obj2.SetName str
Set obj2= Nothing
Set obj1 = Nothing
// in vc idl file
[id(1), helpstring("method SetName")] HRESULT SetName([in] SAFEARRAY(BSTR)* arr);
[id(2), helpstring("method GetName")] HRESULT GetName([out,retval] SAFEARRAY(BSTR)* arr);

//in header file
STDMETHOD(GetName)(/*[out,retval]*/ SAFEARRAY** arr);
STDMETHOD(SetName)(/*[in]*/ SAFEARRAY** arr);

[lun2001]

谢谢 paul2002()!!!

测试中........

[librastar2001]

你可以试试用SAFEARRAY

[lun2001]

SAFEARRAY我不会用

请教有什么例子可以参考吗???

或有别的方法吗???

[lun2001]

感谢 paul2002() 的帮忙

无以为报

只能以分相许了!!!