[VC->VB@DLL]如何给SAFEARRAY**类型的参数传值?

[improgrammer]

用VB6实现一个COM部件,接口class1定义如下:

Public Function test(aos() As String) As String
Dim r As Integer
For r = LBound(aos) To UBound(aos)
test = test + aos(r)
Next
End Function

Public Function multiply(a As Double, b As Double) As Double
multiply=a*b
End Function

编译,生成yy.dll

VC.NET2003,添加类型库中的MFC类后,生成Cclass1类:

class Cclass1 : public COleDispatchDriver
{
public:
Cclass1(){} // 调用 COleDispatchDriver 默认构造函数
Cclass1(LPDISPATCH pDispatch) : COleDispatchDriver(pDispatch) {}
Cclass1(const Cbaobiao& dispatchSrc) : COleDispatchDriver(dispatchSrc) {}
public:
CString test(SAFEARRAY * * aos)
{
CString result;
static BYTE parms[] = VTS_UNKNOWN ;
InvokeHelper(0x60030002, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms, aos);
return result;
}
double sum(SAFEARRAY * * v)
{
double result;
static BYTE parms[] = VTS_UNKNOWN ;
InvokeHelper(0x60030003, DISPATCH_METHOD, VT_R8, (void*)&result, parms, v);
return result;
}
};

我这样调用:

void test2()
{
cerr<<"BEGIN test2\n";
SAFEARRAYBOUND bounds[1];
bounds[0].cElements = 3;
bounds[0].lLbound = 0;
//
SAFEARRAY *sa = ::SafeArrayCreate(VT_BSTR,1u,bounds);
wchar_t *s[5]={L"111",L"222",L"333",L"444",L"555"};
for (long i = 0; i<5; ++i)
{
::SafeArrayPutElement(sa,&i,s[i]);
}
Cclass1 bb;
bb.CreateDispatch("yy.class1");
try{
cout<<bb.test(&sa).GetBuffer()<<endl;
}
catch(COleException *e)
{
char msg[256];
e->GetErrorMessage(msg,256);
cerr << msg << endl;
}
bb.ReleaseDispatch();
cerr<<"END test2\n";
}

结果:

BEGIN test2
类型不匹配。
END test2

void test1()
{
cerr <<"BEGIN test1\n";
Cclass1 bb;
bb.CreateDispatch("yy.class1");
SAFEARRAYBOUND bounds[1];
bounds[0].cElements=3;
bounds[0].lLbound=0;
SAFEARRAY *sa = ::SafeArrayCreate(VT_R8,1u,bounds);
double v[3]={1.0,2.0,3.0};
for (long i=0;i<3;++i)
{
HRESULT hr = ::SafeArrayPutElement(sa, &i,&v[i]);
// cerr<< hr<<endl;
}
cerr<<"OK1\n";
try{
double r = bb.sum(&sa);
cout<<r<<endl;
}
catch(COleException *e)
{
char msg[256];
e->GetErrorMessage(msg,256);
cerr << msg << endl;
}
cout << r <<endl;
cerr <<"END test1\n";
bb.ReleaseDispatch();
}
结果:
BEGIN test1
类型不匹配。
END test1


问题:
如果用VB6实现COM Component,该如何给SAFEARRAY**类型的参数传值?

[老夏Max]

如何从VC向VB传递数组
有三个例子：
微软的Knowledge Base的文章：“Q154172 ow To Pass Binary Data Between an ActiveX Control and VB”
http://support.microsoft.com/support/kb/articles/Q154/1/72.asp
微软的Knowledge Base的文章：“Q140202 AMPLE: MFCARRAY Using Safe Arrays in MFC Automation”
http://support.microsoft.com/support/kb/articles/Q140/2/02.asp
微软的Knowledge Base的文章：“Q167668 OWTO: Pass a SafeArray of Strings in a VARIANT*”
http://support.microsoft.com/support/kb/articles/Q167/6/68.asp

[老夏Max]

还有：
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q207931

[improgrammer]

谢谢，可以帮忙改正我的程序吗？
VC工程就用Win32控制台加MFC的。main（）如下：
int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
int nRetCode = 0;

// 初始化 MFC 并在失败时显示错误
if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0))
{
_tprintf(_T("致命错误: MFC 初始化失败\n"));
nRetCode = 1;
}
else
{
::CoInitialize(NULL);
//
try{
test1();
test2();
}
catch(COleException *e)
{
char msg[256];
e->GetErrorMessage(msg,256);
cerr << msg << endl;
return -1;
}
catch(...)
{
cerr << "Unknown exception\n";
return -1;
}
//
::CoUninitialize();
}

return nRetCode;
}

[improgrammer]

谢谢vclearner答复。我通过#import办法绕过去了。
用IDispatch*的话，还是没办法。

[lineuser]

to 楼主：我用就是用#import办法来做的，也出现你说的问题啊，知不知道怎么办？？指点一下

[lineuser]

vb原形是这样子：
Sub AddItems(ByVal NumItems As Long,
ItemIDs() As String,
ClientHandles() As Long,
ServerHandles() As Long,
Errors() As Long, [ByVal RequestedDataTypes],
[ByVal AccessPaths])
#import以后的原形是这样子：HRESULT AddItems (
long NumItems,
SAFEARRAY * * ItemIDs,
SAFEARRAY * * ClientHandles,
SAFEARRAY * * ServerHandles,
SAFEARRAY * * Errors,
const _variant_t & RequestedDataTypes = vtMissing,
const _variant_t & AccessPaths = vtMissing );


我是这样子调用的：
long count=3；
SAFEARRAYBOUND bounds[1];
bounds[0].cElements = 3;
bounds[0].lLbound = 0;
SAFEARRAY *itemIDs = ::SafeArrayCreate(VT_BSTR,1u,bounds);
wchar_t *s[3]={L"Simulation Items.Integer.Int_01",L"Simulation Items.Integer.Int_02",L"Simulation Items.Integer.Int_03"};
for (long i = 0; i<3; i++)
{
hr=::SafeArrayPutElement(itemIDs,&i,s[i]);
if(FAILED(hr))
AfxMessageBox("create itemIDs failed!");

}

//construct the clientHandles

SAFEARRAY *clientHandles = ::SafeArrayCreate(VT_I4,1u,bounds);
long temp[3]={1,2,3};
for (long i = 0; i<3;i++)
{
hr=::SafeArrayPutElement(clientHandles,&i,&i);
if(FAILED(hr))
AfxMessageBox("create clientHandles failed!");
}
//
SAFEARRAY *serverHandles=::SafeArrayCreate(VT_I4,1u,bounds);
SAFEARRAY *iError=::SafeArrayCreate(VT_I4,1u,bounds);

ApcItems->AddItems(count,&itemIDs,&clientHandles,&serverHandles,&iError);

运行时就跳出“参数不正确”异常，大家指点一下啊！！！