SAFEARRAY

SafeArray是一個自動化數據類型，他使用了通用調度器（oleaut32.dll）,如果採用自己定義的數組，那麼要發布自己的proxy / stub dll.實質上SafeArray就是將通常的數組增加一個描述符，說明其維數、長度、邊界、元素類型等信息。SafeArray也並不單獨使用，而是將其再包裝到VARIANT類型的變數中，然後才作為參數傳送出去。在VARIANT的vt成員的值如果包含VT_ARRAY|...,那麼它所封裝的就是一個SafeArray，它的parray成員即是指向SafeArray的指針。 SafeArray中元素的類型可以是VARIANT能封裝的任何類型，包括VARIANT類型本身。

vt的取值如下表：

vt值類型

VT_UI1無符號1位元組整數(BYTE)數組

VT_UI2無符號2位元組整數(WORD)數組

VT_UI4無符號4位元組整數(DWORD)數組

VT_UINT無符號整數(UINT)數組

VT_INT有符號整數(INT)數組

VT_I1有符號1位元組整數數組

VT_I2有符號2位元組整數數組

VT_I4有符號4位元組整數數組

VT_R4IEEE 4位元組浮點數(float)數組

VT_R8IEEE 8位元組浮點數(double)數組

VT_CY8位元組定點數貨幣值數組

VT_BSTRVB字元串數組

VT_DECIMAL12位元組定點數(大數字)數組

VT_ERROR標準錯誤編號數組

VT_BOOL布爾值數組

VT_DATE日期型數組

VT_VARIANTVB Variant類型數組

使用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

{

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

{

::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

{

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);

}