SAFEARRAY与SAFEARRAYBOUND用法

SAFEARRAY

　　SAFEARRAY的主要目的是用于automation中的数组型参数的传递。因为在网络环境中，数组是不能直接传递的，而必须将其包装成SafeArray。实质上SafeArray就是将通常的数组增加一个描述符，说明其维数、长度、边界、元素类型等信息。SafeArray也并不单独使用，而是将其再包装到VARIANT类型的变量中，然后才作为参数传送出去。在VARIANT的vt成员的值如果包含VT_ARRAY|...,那么它所封装的就是一个SafeArray，它的parray成员即是指向SafeArray的指针。 SafeArray中元素的类型可以是VARIANT能封装的任何类型，包括VARIANT类型本身。

　　使用SafeArray的具体步骤：

使用SafeArray的具体步骤：

方法一，包装一个SafeArray

　　(1). 定义变量，如： 　　

VARIANT varChunk; 　

　SAFEARRAY *psa; 　　

SAFEARRAYBOUND rgsabound[1];

　　(2). 创建SafeArray描述符：

　　uIsRead=f.Read(bVal,ChunkSize);//read array from a file. 　

　if(uIsRead==0)break; 　

　rgsabound[0].cElements =uIsRead; 　

　rgsabound[0].lLbound = 0; 　

　psa = SafeArrayCreate(VT_UI1,1,rgsabound); 　

　(3). 放置数据元素到SafeArray： 　

　for(long index=0;index<uIsRead;index++) 　

　{ 　　if(FAILED(SafeArrayPutElement(psa,&index,&bVal)))

　　::MessageBox(NULL,"出毛病了。","提示",MB_OK | MB_ICONWARNING); 　　

 } 　　

一个一个地放，挺麻烦的。 　

　(4). 封装到VARIANT内：

　　varChunk.vt = VT_ARRAY|VT_UI1; 　

　varChunk.parray = psa; 　

　这样就可以将varChunk作为参数传送出去了。 　

　读取SafeArray中的数据的步骤： 　　

(1). 用SafeArrayGetElement一个一个地读 　

　BYTE buf[lIsRead]; 　

for(long index=0;index<lIsRead;index++) 　　

{ 　　::SafeArrayGetElement(varChunk.parray,&index,buf+index); 　　} 　　就读到缓冲区buf里了。

方法二

　　用SafeArrayAccessData直接读写SafeArray缓冲区：

　　(1). 读缓冲区： 　

　BYTE *buf; 　

　SafeArrayAccessData(varChunk.parray, (void **)&buf);

　　f.Write(buf,lIsRead); 　　

SafeArrayUnaccessData(varChunk.parray);

　　(2). 写缓冲区： 　

　BYTE *buf; 　　

::SafeArrayAccessData(psa, (void **)&buf); 　

　for(long index=0;index<uIsRead;index++) 　

　{ 　　buf=bVal; 　　} 　　

::SafeArrayUnaccessData(psa); 　　

varChunk.vt = VT_ARRAY|VT_UI1; 　

　varChunk.parray = psa; 　

　这种方法读写SafeArray都可以，它直接操纵SafeArray的数据缓冲区，比用SafeArrayGetElement和 SafeArrayPutElement速度快。

特别适合于读取数据。但用完之后不要忘了调用::SafeArrayUnaccessData (psa)，否则会出错的。 　

　如果SafeArray中存的是BSTR的二维数组,则代码如下：　

　if(varChunk.vt = VT_ARRAY | VT_BSTR)　　{　　BSTR* buf;　　long LBound; // 数组下界　　long UBound; // 数组上界　　

SafeArrayAccessData(varChunk.parray, (void **)&buf); 　

　SafeArrayGetLBound(varChunk.parray, 1, &LBound);　　

SafeArrayGetUBound(varChunk.parray, 1, &UBound);　　

for(long i = LBound; i < UBound; i ++)　　

{　　CString str(buf);　　MessageBox(str);　　}　　SafeArrayUnaccessData(varChunk.parray);　　}

　　方法一：

　　包装一个SafeArray：

　　(1). 定义变量，如：

　　VARIANT varChunk;

　　SAFEARRAY *psa;

　　SAFEARRAYBOUND rgsabound[1];

rgsabound是一个有趣的成员，它的结构不太直观。它是数据范围的数组。该数组的大小依safe array维数的不同而有所区别。rgsabound成员是一个SAFEARRAYBOUND结构的数组--每个元素代表SAFEARRAY的一个维。

　　typedef struct tagSAFEARRAYBOUND

　　　{

　　　　unsigned long cElements;

　　　　unsigned long lLbound;

　　　} SAFEARRAYBOUND;

　　维数被定义在cDims成员中。例如，一个'C'类数组的维数可以是[3][4][5]-一个三维的数组。如果我们使用一个SAFEARRAY来表示这个结构，我们定义一个有三个元素的rgsabound数组--一个代表一维。

　　cDims = 3;


　　　 ...


　　SAFEARRAYBOUND rgsabound[ 3 ];

　　rgsabound[0]元素定义第一维。在这个例子中ILBOUND元素为0，是数组的下界。cElements成员的值等于三。数组的第二维（[4]）可以被rgsabound结构的第二个元素定义。下界也可以是0，元素的个数是4，第三维也是这样。要注意，由于这是一个"C"数组，因此由0开始，对于其它语言，例如Visual Basic，或者使用一个不同的开始。该数组的详细情况如下所示：

元素cElementsILboundrgsabound[0]30rgsabound[1]40rgsabound[2]50

　　关于SAFEARRAYBOUND结构其实还有很多没说的。我们将要使用的SAFEARRAY只是一个简单的单维字节数组。我们通过API函数创建数组的时候，SAFEARRAYBOUND将会被自动设置。只有在你需要使用复杂的多维数组的时候，你才需要操作这个结构。

 

　　(2). 创建SafeArray描述符：

　　uIsRead=f.Read(bVal,ChunkSize);//read array from a file.

　　if(uIsRead==0)break;

　　rgsabound[0].cElements =uIsRead;

　　rgsabound[0].lLbound = 0;

　　psa = SafeArrayCreate(VT_UI1,1,rgsabound);

　　(3). 放置数据元素到SafeArray：

　　for(long index=0;index<uIsRead;index++)

　　{

　　if(FAILED(SafeArrayPutElement(psa,&index,&bVal)))

　　::MessageBox(NULL,"出毛病了。","提示",MB_OK | MB_ICONWARNING);

　　}

　　一个一个地放，挺麻烦的。

　　(4). 封装到VARIANT内：

　　varChunk.vt = VT_ARRAY|VT_UI1;

　　varChunk.parray = psa;

　　这样就可以将varChunk作为参数传送出去了。

　　读取SafeArray中的数据的步骤：

　　(1). 用SafeArrayGetElement一个一个地读

　　BYTE buf[lIsRead];

　　for(long index=0;index<lIsRead;index++)

　　{

　　::SafeArrayGetElement(varChunk.parray,&index,buf+index);

　　}

　　就读到缓冲区buf里了。

　　方法二：

　　使用SafeArrayAccessData直接读写SafeArray的缓冲区：

　　(1). 读缓冲区：

　　BYTE *buf;

　　SafeArrayAccessData(varChunk.parray, (void **)&buf);

　　f.Write(buf,lIsRead);

　　SafeArrayUnaccessData(varChunk.parray);

　　(2). 写缓冲区：

　　BYTE *buf;

　　::SafeArrayAccessData(psa, (void **)&buf);

　　for(long index=0;index<uIsRead;index++)

　　{

　　buf=bVal;

　　}

　　::SafeArrayUnaccessData(psa);

　　varChunk.vt = VT_ARRAY|VT_UI1;

　　varChunk.parray = psa;

　　这种方法读写SafeArray都可以，它直接操纵SafeArray的数据缓冲区，比用SafeArrayGetElement和 SafeArrayPutElement速度快。特别适合于读取数据。但用完之后不要忘了调用::SafeArrayUnaccessData (psa)，否则会出错的。

　　如果SafeArray中存的是BSTR的二维数组,则代码如下：

　　if(varChunk.vt = VT_ARRAY | VT_BSTR)

　　{

　　BSTR* buf;

　　long LBound; // 数组下界

　　long UBound; // 数组上界

　　SafeArrayAccessData(varChunk.parray, (void **)&buf);

　　SafeArrayGetLBound(varChunk.parray, 1, &LBound);

　　SafeArrayGetUBound(varChunk.parray, 1, &UBound);

　　for(long i = LBound; i < UBound; i ++)

　　{

　　CString str(buf);

　　MessageBox(str);

　　}

　　SafeArrayUnaccessData(varChunk.parray);

　　}