學會使用SafeArray

 

學會使用SafeArray也是很重要的，因爲在ADO編程中經常要用。它的主要目的是用於automation中的數組型參數的傳遞。因爲在網絡環境中，數組是不能直接傳遞的，而必須將其包裝成SafeArray。實質上SafeArray就是將通常的數組增加一個描述符，說明其維數、長度、邊界、元素類型等信息。SafeArray也並不單獨使用，而是將其再包裝到VARIANT類型的變量中，然後才作爲參數傳送出去。在VARIANT的vt成員的值如果包含VT_ARRAY|...,那麼它所封裝的就是一個SafeArray，它的parray成員即是指向SafeArray的指針。SafeArray中元素的類型可以是VARIANT能封裝的任何類型，包括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<uIsRead;index++)         
 {
  if(FAILED(SafeArrayPutElement(psa,&index,&bVal[index])))
   ::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[index]=bVal[index]; 
 }
 ::SafeArrayUnaccessData(psa);

 varChunk.vt = VT_ARRAY|VT_UI1;
 varChunk.parray = psa;

這種方法讀寫SafeArray都可以，它直接操縱SafeArray的數據緩衝區，比用SafeArrayGetElement和SafeArrayPutElement速度快。特別適合於讀取數據。但用完之後不要忘了調用::SafeArrayUnaccessData(psa)，否則會出錯的。