{	
	LPBITMAPINFOHEADER lpbmi;	// 指向BITMAPINFO結構的指針（Win3.0）
	LPBITMAPCOREHEADER lpbmc;	// 指向BITMAPCOREINFO結構的指針
	lpbmi = (LPBITMAPINFOHEADER)lpDIB;
	lpbmc = (LPBITMAPCOREHEADER)lpDIB;

	// 返回DIB中圖像的寬度
	if (IS_WIN30_DIB(lpDIB))
	{		
		return lpbmi->biHeight;		// 對于Windows 3.0 DIB，返回lpbmi->biHeight
	}
	else
	{		
		return (DWORD)lpbmc->bcHeight;	// 對于其它格式的DIB，返回lpbmc->bcHeight
	}
}

/*************************************************************************
 * 函數名稱：
 *   PaletteSize()
 * 參數:
 *   LPSTR lpbi         - 指向DIB對象的指針
 * 返回值:
 *   WORD               - DIB中調色板的大小
 * 說明:
 *   該函數返回DIB中調色板的大小。對于Windows 3.0 DIB，返回顏色數目×
 * RGBQUAD的大??；對于其它返回顏色數目×RGBTRIPLE的大小。
 ************************************************************************/
WORD CDibImage::PaletteSize(LPSTR lpbi)
{
	// 計算DIB中調色板的大小
	if (IS_WIN30_DIB (lpbi))
	{
		//返回顏色數目×RGBQUAD的大小
		return (WORD)(DIBNumColors(lpbi) * sizeof(RGBQUAD));
	}
	else
	{
		//返回顏色數目×RGBTRIPLE的大小
		return (WORD)(DIBNumColors(lpbi) * sizeof(RGBTRIPLE));
	}
}

/*************************************************************************
 * 函數名稱：
 *   DIBNumColors()
 * 參數:
 *   LPSTR lpbi         - 指向DIB對象的指針
 * 返回值:
 *   WORD               - 返回調色板中顏色的種數
 * 說明:
 *   該函數返回DIB中調色板的顏色的種數。對于單色位圖，返回2，
 * 對于16色位圖，返回16，對于256色位圖，返回256；對于真彩色
 * 位圖（24位），沒有調色板，返回0。
 ************************************************************************/
WORD CDibImage::DIBNumColors(LPSTR lpbi)
{
	WORD wBitCount;

	// 對于Windows的DIB, 實際顏色的數目可以比象素的位數要少。
	// 對于這種情況，則返回一個近似的數值。
	
	// 判斷是否是WIN3.0 DIB
	if (IS_WIN30_DIB(lpbi))
	{
		DWORD dwClrUsed;
		dwClrUsed = ((LPBITMAPINFOHEADER)lpbi)->biClrUsed;	// 讀取dwClrUsed值
		
		if (dwClrUsed != 0)
		{
			// 如果dwClrUsed（實際用到的顏色數）不為0，直接返回該值
			return (WORD)dwClrUsed;
		}
	}

	// 讀取象素的位數
	if (IS_WIN30_DIB(lpbi))
	{		
		wBitCount = ((LPBITMAPINFOHEADER)lpbi)->biBitCount;	// 讀取biBitCount值
	}
	else
	{		
		wBitCount = ((LPBITMAPCOREHEADER)lpbi)->bcBitCount;	// 讀取biBitCount值
	}
	
	// 按照象素的位數計算顏色數目
	switch (wBitCount)
	{
		case 1:
			return 2;
			break;
		case 4:
			return 16;
			break;
		case 8:
			return 256;
			break;
		default:
			return 0;
			break;
	}
}

/*************************************************************************
 * 函數名稱：
 *   CopyHandle()
 * 參數:
 *   HGLOBAL h          - 要復制的內存區域
 * 返回值:
 *   HGLOBAL            - 復制后的新內存區域
 * 說明:
 *   該函數復制指定的內存區域。返回復制后的新內存區域，出錯時返回0。
 ************************************************************************/
HGLOBAL CDibImage::CopyHandle (HGLOBAL h)
{
	if (h == NULL)
	{
		return NULL;
	}
	
	DWORD dwLen = ::GlobalSize((HGLOBAL) h);	// 獲取指定內存區域大小
	HGLOBAL hCopy = ::GlobalAlloc(GHND, dwLen);	// 分配新內存空間	
	if (hCopy != NULL)							// 判斷分配是否成功
	{
		void* lpCopy = ::GlobalLock((HGLOBAL) hCopy);
		void* lp     = ::GlobalLock((HGLOBAL) h);
		
		memcpy(lpCopy, lp, dwLen);
		
		::GlobalUnlock(hCopy);
		::GlobalUnlock(h);
	}

	return hCopy;
}

/*************************************************************************
 * 函數名稱：
 *   SaveDIB()
 * 參數:
 *   HDIB hDib          - 要保存的DIB
 *   CFile& file        - 保存文件CFile
 * 返回值:
 *   BOOL               - 成功返回TRUE，否則返回FALSE或者CFileException
 * 說明:
 *   該函數將指定的DIB對象保存到指定的CFile中。該CFile由調用程序打開和關閉。
 *************************************************************************/
BOOL CDibImage::SaveDIB(HDIB hDib, CFile& file)
{	
	BITMAPFILEHEADER bmfHdr;	// Bitmap文件頭	
	LPBITMAPINFOHEADER lpBI;	// 指向BITMAPINFOHEADER的指針
	DWORD dwDIBSize;			// DIB大小

	if (hDib == NULL)
	{
		return FALSE;
	}

	// 讀取BITMAPINFO結構，并鎖定
	lpBI = (LPBITMAPINFOHEADER) ::GlobalLock((HGLOBAL) hDib);	
	if (lpBI == NULL)
	{
		return FALSE;
	}
	
	// 判斷是否是WIN3.0 DIB
	if (!IS_WIN30_DIB(lpBI))
	{
		// 不支持其它類型的DIB保存
		::GlobalUnlock((HGLOBAL) hDib);
		return FALSE;
	}

	////////////////////////////////////////////////////////////////////////
	// 填充文件頭///////////////////////////////////////////////////////////	
	bmfHdr.bfType = DIB_HEADER_MARKER;		// 文件類型"BM"

	// 計算DIB大小時，最簡單的方法是調用GlobalSize()函數。但是全局內存大小并
	// 不是DIB真正的大小，它總是多幾個字節。這樣就需要計算一下DIB的真實大小。
	
	// 文件頭大?。伾泶笮?	// （BITMAPINFOHEADER和BITMAPCOREHEADER結構的第一個DWORD都是該結構的大?。?	dwDIBSize = *(LPDWORD)lpBI + PaletteSize((LPSTR)lpBI);
	
	// 計算圖像大小
	if ((lpBI->biCompression == BI_RLE8) || (lpBI->biCompression == BI_RLE4))
	{
		// 對于RLE位圖，沒法計算大小，只能信任biSizeImage內的值
		dwDIBSize += lpBI->biSizeImage;
	}
	else
	{		
		DWORD dwBmBitsSize;			// 象素的大小
		dwBmBitsSize = WIDTHBYTES((lpBI->biWidth)*((DWORD)lpBI->biBitCount)) 
			* lpBI->biHeight;		// 大小為Width * Height
		dwDIBSize += dwBmBitsSize;	// 計算出DIB真正的大小

		// 更新biSizeImage（很多BMP文件頭中biSizeImage的值是錯誤的）
		lpBI->biSizeImage = dwBmBitsSize;
	}

	// 計算文件大?。篋IB大小＋BITMAPFILEHEADER結構大小
	bmfHdr.bfSize = dwDIBSize + sizeof(BITMAPFILEHEADER);
	
	// 兩個保留字
	bmfHdr.bfReserved1 = 0;
	bmfHdr.bfReserved2 = 0;

	// 計算偏移量bfOffBits，它的大小為Bitmap文件頭大?。獶IB頭大?。伾泶笮?	bmfHdr.bfOffBits = (DWORD)sizeof(BITMAPFILEHEADER) + lpBI->biSize
											  + PaletteSize((LPSTR)lpBI);

	/////////////////////////////////////////////////////////////////////////
	// 嘗試寫文件////////////////////////////////////////////////////////////
	TRY
	{		
		file.Write((LPSTR)&bmfHdr, sizeof(BITMAPFILEHEADER));	// 寫文件頭
		file.WriteHuge(lpBI, dwDIBSize);					// 寫DIB頭和象素
	}
	CATCH (CFileException, e)
	{
		::GlobalUnlock((HGLOBAL) hDib);
		THROW_LAST();
	}
	END_CATCH
	
	::GlobalUnlock((HGLOBAL) hDib);
	return TRUE;
}

/*************************************************************************
 * 函數名稱：
 *   ReadDIBFile()
 * 參數:
 *   CFile& file        - 要讀取得文件文件CFile
 * 返回值:
 *   HDIB               - 成功返回DIB的句柄，否則返回NULL。
 * 說明:
 *   該函數將指定的文件中的DIB對象讀到指定的內存區域中。除BITMAPFILEHEADER
 * 外的內容都將被讀入內存。
 *************************************************************************/
HDIB CDibImage::ReadDIBFile(CFile& file)
{
	BITMAPFILEHEADER bmfHeader;
	HDIB hDIB;
	LPSTR pDIB;
	DWORD dwBitsSize;

	dwBitsSize = file.GetLength();		// 獲取DIB（文件）長度（字節）

	// 嘗試讀取DIB文件頭
	if (file.Read((LPSTR)&bmfHeader, sizeof(bmfHeader)) != sizeof(bmfHeader))
	{
		return NULL;
	}
	// 判斷是否是DIB對象，檢查頭兩個字節是否是"BM"
	if (bmfHeader.bfType != DIB_HEADER_MARKER)
	{
		return NULL;
	}
	// 為DIB分配內存
	hDIB = (HDIB) ::GlobalAlloc(GMEM_MOVEABLE | GMEM_ZEROINIT, dwBitsSize);
	if (hDIB == 0)
	{
		return NULL;
	}
	
	pDIB = (LPSTR) ::GlobalLock((HGLOBAL) hDIB);
	if (file.ReadHuge(pDIB, dwBitsSize - sizeof(BITMAPFILEHEADER)) !=
		dwBitsSize - sizeof(BITMAPFILEHEADER) )		// 讀象素
	{
		::GlobalUnlock((HGLOBAL) hDIB);
		::GlobalFree((HGLOBAL) hDIB);
		return NULL;
	}

	::GlobalUnlock((HGLOBAL) hDIB);
	return hDIB;
}