使用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);
}