VC如何接受从VB传来的数组？

[wb197]

我想做一个可以接受任意参数的DLL，在VB中定义为ParamArray的参数列表，在VC中怎么存储？最好能给示例代码，谢谢。

[wb197]

没人捧场吗？

[土豆]

VC中好像没有Any这种万能的类型。

[WhiteWaterBlueSky]

1。其实你在VB中用Variant表示一个数组是最好的！
声明：Dim varDatas as Variant
真正使用时再定义维数：ReDim varDatas(5,3)

2。在VC中用VARIANT接收,此时这个变体是VT_ARRAY | VT_VARIANT类型的，
也就是是说这个变体的parray存放的是SAFEARRAY，有一堆API可以对
SAFEARRAY进行操作！

[WhiteWaterBlueSky]

另：我的实践表明，在VC中用VARIANT*作为函数参数来接收才行！

[wb197]

to whiteWaterBlueSky:
可有示例代码瞧瞧？借来一观

[蒋晟]

long CStrArrayDoc::Sort(VARIANT FAR* vArray)
{

long i, j, min;
BSTR bstrTemp;
SAFEARRAY FAR* psa = NULL;
BSTR HUGEP *pbstr;
HRESULT hr;
DWORD dwTimeStart;
LONG cElements, lLBound, lUBound;

USES_CONVERSION;

// Type check VARIANT parameter. It should contain a BSTR array
// passed by reference. The array must be passed by reference it is
// an in-out-parameter.
if (V_VT(vArray) != (VT_ARRAY | VT_BSTR))
AfxThrowOleDispatchException(1001,
"Type Mismatch in Parameter. Pass a string array by reference");
psa = V_ARRAY(vArray);
// Check dimensions of the array.
if (SafeArrayGetDim(psa) != 1)
AfxThrowOleDispatchException(1002,
"Type Mismatch in Parameter. Pass a one-dimensional array");

dwTimeStart = GetTickCount();

// Get array bounds.
hr = SafeArrayGetLBound(psa, 1, &lLBound);
if (FAILED(hr))
goto error;
hr = SafeArrayGetUBound(psa, 1, &lUBound);
if (FAILED(hr))
goto error;

// Get a pointer to the elements of the array.
hr = SafeArrayAccessData(psa, (void HUGEP* FAR*)&pbstr);
if (FAILED(hr))
goto error;

// Bubble sort.
cElements = lUBound-lLBound+1;
for (i = 0; i < cElements-1; i++)
{
min = i;
for (j = i+1; j < cElements; j++)
{
// NULL is a valid value for a BSTR. This code treats a NULL
// BSTR as less than other string values.
if (pbstr[min] == NULL)
continue;
else if (pbstr[j] == NULL
|| wcscmp(pbstr[j], pbstr[min]) < 0)
min = j;
}

//Swap array[min] and array[i].
bstrTemp = pbstr[min];
pbstr[min] = pbstr[i];
pbstr[i] = bstrTemp;
}

hr = SafeArrayUnaccessData(psa);
if (FAILED(hr))
goto error;

return GetTickCount()-dwTimeStart;

error:

AfxThrowOleDispatchException(1003,
"Unexpected Failure in FastSort method");
return 0;

}