使用VARIANT传递数组的方法及步骤

来源:互联网 发布:巴洛克音乐风格知乎 编辑:程序博客网 时间:2024/04/30 09:36

在使用COM/DCOM写组件时经常要传递数组,一般比如SHORT,LONG等指针可以直接传递相应的指针,但是当遇到需要传递BYTE数组就有问题了,COM不支持BYTE类型参数,传递BYTE数组也就无从说起了。经过查找资料发现使用VARIANT变量可以传递任何类型的数组,随将使用VARIANT数组的方法总结一下。其实在VARIANT传递数组的方法非常简单,只要理解SAFEARRAY数组的使用方法即可,实质上SafeArray就是将通常的数组增加一个描述符,说明其维数、长度、边界、元素类型等信息。SafeArray使用步骤如下:

步骤一:生成SafeArray数组

VARIANT varChunk;

SAFEARRAY *psa; //使用数组整理读取的数据

SAFEARRAYBOUND rgsabound[1];

rgsabound[0].cElements =len; //设置数组的大小

rgsabound[0].lLbound = 0;

psa = SafeArrayCreate(VT_UI1,1,rgsabound); //创建SafeArray数组

步骤二:给SafeArray赋值与读取

给SafeArray赋值或读取有两种方法,一种是直接读取数据缓冲区,一种是通过函数一个一个读取数组每个变量值,很显然前一种方法比后一种方法的效率要高很多,下面就两种方法分别给出相应代码

(1) 直接读取缓冲区

读取

BYTE *buf;

SafeArrayAccessData(psa, (void **)&buf); //安全指针

SafeArrayUnaccessData(psa); //关闭后仍然可读取数据,但不能写入

写入

BYTE *buf;

SafeArrayAccessData(psa, (void **)&buf); //安全指针

for(int i=0;i

SafeArrayUnaccessData(psa);

(2) 利用函数单个读取(SafeArrayGetElement,SafeArrayPutElement)

读取

long len=psa->rgsabound[0].cElements;

BYTE *pData=new BYTE[len];

for (int i=0;i

{

::SafeArrayGetElement(psa,&i,pData+i)

}

写入

long len=psa->rgsabound[0].cElements;

for (int i=0;i

{

::SafeArrayPutElement(psa,&i,pData[i])

}

步骤三:将安全数组与VARIANT相互赋值

将安全数组赋值给VARIANT

VARIANT varChunk;

varChunk.vt = VT_ARRAY|VT_UI1; //数组类型

varChunk.parray = psa;

将VARIANT赋值给安全数组

SAFEARRAY *psa=varChuank.parray;

通过以上三步就能够很容易地在数组和VARIANT变量之间传递数据,另外VARIANT还可以表示其他很多类型的数据,现将VARIANT支持的数据类型列出:

unsigned char bVal;  VT_UI1

short iVal;       VT_I2

long lVal; VT_I4

float fltVal; VT_R4

double dblVal; VT_R8

VARIANT_BOOL boolVal; VT_BOOL

SCODE scode; VT_ERROR

CY cyVal; VT_CY

DATE date; VT_DATE

BSTR bstrVal; VT_BSTR

IUnknown FAR* punkVal; VT_UNKNOWN

IDispatch FAR* pdispVal; VT_DISPATCH

SAFEARRAY FAR* parray; VT_ARRAY|*

unsigned char FAR* pbVal; VT_BYREF|VT_UI1

short FAR* piVal; VT_BYREF|VT_I2

long FAR* plVal; VT_BYREF|VT_I4

float FAR* pfltVal; VT_BYREF|VT_R4

double FAR* pdblVal; VT_BYREF|VT_R8

VARIANT_BOOL FAR* pboolVal; VT_BYREF|VT_BOOL

SCODE FAR* pscode; VT_BYREF|VT_ERROR

CY FAR* pcyVal; VT_BYREF|VT_CY

DATE FAR* pdate; VT_BYREF|VT_DATE

BSTR FAR* pbstrVal; VT_BYREF|VT_BSTR

IUnknown FAR* FAR* ppunkVal; VT_BYREF|VT_UNKNOWN

IDispatch FAR* FAR* ppdispVal; VT_BYREF|VT_DISPATCH

SAFEARRAY FAR* FAR* pparray; VT_ARRAY|*

VARIANT FAR* pvarVal; VT_BYREF|VT_VARIANT

void FAR* byref; VT_BYREF