COM参数如何传递数组

王朝vc·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

好象很少情况会在com的参数中用到数组。但有时候数组确实也会有它的方便之处。特别是

变体数组可以存放不同的数据类型,特别的方便。(还有就是传递不定数目的参数时,可利

用变体数组,非常有用)

比如现在有一堆数据需要进行处理,处理的分支条件是数据的类型。

VB中的调用代码:

dim var1,var2

ReDim var1(3)

var1(0) = CInt(10) '整型需要*10

var1(1) = CLng(10) '长整型需要*100

var1(2) = CStr(10) '字串需要加个前缀:string:

var2 = com.handle(var1)

在Windows中对OLE的处理包含了对数组的处理,但用起来很麻烦。好在VC对其进行了包

装,COleSafeArray 可以很好并且很简单的处理。

VC中处理如下:(使用MFC)

VARIANT CComArrayHandle::handle(VARIANT FAR* var)

{

COleSafeArray saInput(var);

COleSafeArray saRet;

long index[1],l,u;

saInput.GetLBound(1,&l);

saInput.GetUBound(1,&u);

DWORD numElements[] = {abs(u-l)};

saRet.Create(VT_VARIANT, 1, numElements);

for(index[0]=l; index[0]<u; index[0]++)

{

index[0] = ii;

VARIANT val;

saInput.GetElement(index,&val);

switch (val.vt)

{

case VT_I2:

val.iVal = 10 * val.iVal;

break;

case VT_I4:

val.lVal = 100 * val.lVal;

break;

case VT_BSTR:

{

CString sTemp = val.bstrVal;

sTemp = _T("string:") + sTemp;

val.bstrVal = sTemp.AllocSysString();

break;

}

default:

break;

}

saRet.PutElement(index, &val);

}

return saRet.Detach();

}

如果要将一维数组变为多维数组,只需要简单更改参数即可。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航