请教一个关于COleSafeArray得问题

[agua06]

有这样一段代码：

COleSafeArray arryParam,arryResp,arryBuf;
LPVOID lpBuf;
WORD wNum;

if(-1 == m_nCurCam)
return;

CWaitCursor cur;
arryParam.CreateOneDim(VT_UI1, sizeof(CMD_PARAM_VALUE));
//注：CMD_PARAM_VALUE 是个结构类型

arryResp.CreateOneDim(VT_UI1, sizeof(CMD_RESP_VALUE));
//注：CMD_RESP_VALUE是个结构类型

arryBuf.CreateOneDim(VT_UI1, sizeof(WORD));

CString strNum;
m_cmbBurstNum.GetLBText(m_cmbBurstNum.GetCurSel(),strNum);
wNum = atoi((char*)(LPCTSTR)strNum);

arryBuf.AccessData(&lpBuf);
CopyMemory(lpBuf,&wNum,sizeof(WORD));
arryBuf.UnaccessData();
try
{
m_pMocha->SendCmd(m_nCurCam,OP_SET_BURST_NUMBER,arryParam,arryResp,arryBuf,sizeof(WORD));
}

其中最后一句得m_pMocha->SendCmd是以上面得形式来传递参数得。而且这个Motha是个COM,所以它也可以在VB中被调用。但是我在VB中以这样得形式调用后却非法操作了：

Dim arryParam As CMD_PARAM_VALUE
Dim arryResp As CMD_RESP_VALUE
Dim pBuf As Long


Mocha.SendCmd 0, OP_SET_STILL_CAPTURE_MODE, arryParam, arryResp, pBuf, Len(pBuf)


请问按照COleSafeArray这样得声明，我该怎么样在VB中进行调用呢？
注：它在VC中得tli文件中是这样声明得：

inline HRESULT IMocha::SendCmd ( long camNo, long opeCode, const _variant_t & pramValue, VARIANT * pRespValue, VARIANT * pBuf, long bufSize ) {
HRESULT _hr = raw_SendCmd(camNo, opeCode, pramValue, pRespValue, pBuf, bufSize);
if (FAILED(_hr)) _com_issue_errorex(_hr, this, __uuidof(this));
return _hr;
}

[快乐鹦鹉]

COleSafeArray arryParam,arryResp,arryBuf;

Dim arryParam As CMD_PARAM_VALUE
Dim arryResp As CMD_RESP_VALUE
你这两个类型明摆着不一致啊。SendCmd要求的参数类型是VARIANT，而CMD_PARAM_VALUE是结构，不可能直接转换。

[快乐鹦鹉]

VB中COleSafeArray类型是用哪个类型定义的？就使用这种类型啊。

[agua06]

阿？原来VB中有这种类型？汗。。。谢谢指点。我还以为是VC专用得呢

[快乐鹦鹉]

我没说VB中也叫做COleSafeArray啊。可能是别的类型，VB不熟。

[快乐鹦鹉]

VARIANT类型应该可以用吧？VARIANT结构中的SAFEARRAY估计是可以用的。

[agua06]

的确是没有查到。。
那这个该怎么声明？我现在就头痛这个，使用varptr好像也解决不了问题

[快乐鹦鹉]

我查到VB也是支持VARIANT类型的：
八、变体数据类型(Variant )
变体数据类型是一种特殊数据类型，具有很大的灵活性，可以表示多种数据类型，其最终的类型由赋予它的值来确定。