// ************************************************************************//  文件名：dibapi.cpp////  DIB(Independent Bitmap) API函數庫：////  PaintDIB()          - 繪制DIB對象//  CreateDIBPalette()  - 創建DIB對象調色板//  FindDIBBits()       - 返回DIB圖像象素起始位置//  DIBWidth()          - 返回DIB寬度//  DIBHeight()         - 返回DIB高度//  PaletteSize()       - 返回DIB調色板大小//  DIBNumColors()      - 計算DIB調色板顏色數目//  CopyHandle()        - 拷貝內存塊////  SaveDIB()           - 將DIB保存到指定文件中//  ReadDIBFile()       - 重指定文件中讀取DIB對象////  DIBToPCX256()		- 將指定的256色DIB對象保存為256色PCX文件//  ReadPCX256()		- 讀取256色PCX文件//// ************************************************************************#include "stdafx.h"#include "dibapi.h"#include <io.h>#include <errno.h>#include <math.h>#include <direct.h>/* * Dib文件頭標志（字符串"BM"，寫DIB時用到該常數） */#define DIB_HEADER_MARKER   ((WORD) ('M' << 8) | 'B')/************************************************************************* * * 函數名稱： *   PaintDIB() * * 參數: *   HDC hDC            - 輸出設備DC *   LPRECT lpDCRect    - 繪制矩形區域 *   HDIB hDIB          - 指向DIB對象的指針 *   LPRECT lpDIBRect   - 要輸出的DIB區域 *   CPalette* pPal     - 指向DIB對象調色板的指針 * * 返回值: *   BOOL               - 繪制成功返回TRUE，否則返回FALSE。 * * 說明: *   該函數主要用來繪制DIB對象。其中調用了StretchDIBits()或者 * SetDIBitsToDevice()來繪制DIB對象。輸出的設備由由參數hDC指 * 定；繪制的矩形區域由參數lpDCRect指定；輸出DIB的區域由參數 * lpDIBRect指定。 * ************************************************************************/BOOL WINAPI PaintDIB(HDC     hDC,					LPRECT  lpDCRect,					HDIB    hDIB,					LPRECT  lpDIBRect,					CPalette* pPal){	LPSTR    lpDIBHdr;            // BITMAPINFOHEADER指針	LPSTR    lpDIBBits;           // DIB象素指針	BOOL     bSuccess=FALSE;      // 成功標志	HPALETTE hPal=NULL;           // DIB調色板	HPALETTE hOldPal=NULL;        // 以前的調色板	// 判斷DIB對象是否為空	if (hDIB == NULL)	{		// 返回		return FALSE;	}	// 鎖定DIB	lpDIBHdr  = (LPSTR) ::GlobalLock((HGLOBAL) hDIB);	// 找到DIB圖像象素起始位置	lpDIBBits = ::FindDIBBits(lpDIBHdr);	// 獲取DIB調色板，并選中它	if (pPal != NULL)	{		hPal = (HPALETTE) pPal->m_hObject;		// 選中調色板		hOldPal = ::SelectPalette(hDC, hPal, TRUE);	}	// 設置顯示模式	::SetStretchBltMode(hDC, COLORONCOLOR);	// 判斷是調用StretchDIBits()還是SetDIBitsToDevice()來繪制DIB對象	if ((RECTWIDTH(lpDCRect)  == RECTWIDTH(lpDIBRect)) &&	   (RECTHEIGHT(lpDCRect) == RECTHEIGHT(lpDIBRect)))	{		// 原始大小，不用拉伸。		bSuccess = ::SetDIBitsToDevice(hDC,                    // hDC								   lpDCRect->left,             // DestX								   lpDCRect->top,              // DestY								   RECTWIDTH(lpDCRect),        // nDestWidth								   RECTHEIGHT(lpDCRect),       // nDestHeight								   lpDIBRect->left,            // SrcX								   (int)DIBHeight(lpDIBHdr) -									  lpDIBRect->top -									  RECTHEIGHT(lpDIBRect),   // SrcY								   0,                          // nStartScan								   (WORD)DIBHeight(lpDIBHdr),  // nNumScans								   lpDIBBits,                  // lpBits								   (LPBITMAPINFO)lpDIBHdr,     // lpBitsInfo								   DIB_RGB_COLORS);            // wUsage	}    else	{		// 非原始大小，拉伸。		bSuccess = ::StretchDIBits(hDC,                          // hDC							   lpDCRect->left,                 // DestX							   lpDCRect->top,                  // DestY							   RECTWIDTH(lpDCRect),            // nDestWidth							   RECTHEIGHT(lpDCRect),           // nDestHeight							   lpDIBRect->left,                // SrcX							   lpDIBRect->top,                 // SrcY							   RECTWIDTH(lpDIBRect),           // wSrcWidth							   RECTHEIGHT(lpDIBRect),          // wSrcHeight							   lpDIBBits,                      // lpBits							   (LPBITMAPINFO)lpDIBHdr,         // lpBitsInfo							   DIB_RGB_COLORS,                 // wUsage							   SRCCOPY);                       // dwROP	}	    // 解除鎖定	::GlobalUnlock((HGLOBAL) hDIB);		// 恢復以前的調色板	if (hOldPal != NULL)	{		::SelectPalette(hDC, hOldPal, TRUE);	}		// 返回	return bSuccess;}/************************************************************************* * * 函數名稱： *   CreateDIBPalette() * * 參數: *   HDIB hDIB          - 指向DIB對象的指針 *   CPalette* pPal     - 指向DIB對象調色板的指針 * * 返回值: *   BOOL               - 創建成功返回TRUE，否則返回FALSE。 * * 說明: *   該函數按照DIB創建一個邏輯調色板，從DIB中讀取顏色表并存到調色板中， * 最后按照該邏輯調色板創建一個新的調色板，并返回該調色板的句柄。這樣 * 可以用最好的顏色來顯示DIB圖像。 * ************************************************************************/BOOL WINAPI CreateDIBPalette(HDIB hDIB, CPalette* pPal){	// 指向邏輯調色板的指針	LPLOGPALETTE lpPal;		// 邏輯調色板的句柄	HANDLE hLogPal;		// 調色板的句柄	HPALETTE hPal = NULL;		// 循環變量	int i;		// 顏色表中的顏色數目	WORD wNumColors;		// 指向DIB的指針	LPSTR lpbi;		// 指向BITMAPINFO結構的指針（Win3.0）	LPBITMAPINFO lpbmi;		// 指向BITMAPCOREINFO結構的指針	LPBITMAPCOREINFO lpbmc;		// 表明是否是Win3.0 DIB的標記	BOOL bWinStyleDIB;		// 創建結果	BOOL bResult = FALSE;		// 判斷DIB是否為空	if (hDIB == NULL)	{		// 返回FALSE		return FALSE;	}		// 鎖定DIB	lpbi = (LPSTR) ::GlobalLock((HGLOBAL) hDIB);		// 獲取指向BITMAPINFO結構的指針（Win3.0）	lpbmi = (LPBITMAPINFO)lpbi;		// 獲取指向BITMAPCOREINFO結構的指針	lpbmc = (LPBITMAPCOREINFO)lpbi;		// 獲取DIB中顏色表中的顏色數目	wNumColors = ::DIBNumColors(lpbi);		if (wNumColors != 0)	{		// 分配為邏輯調色板內存		hLogPal = ::GlobalAlloc(GHND, sizeof(LOGPALETTE)									+ sizeof(PALETTEENTRY)									* wNumColors);				// 如果內存不足，退出		if (hLogPal == 0)		{			// 解除鎖定			::GlobalUnlock((HGLOBAL) hDIB);						// 返回FALSE			return FALSE;		}				lpPal = (LPLOGPALETTE) ::GlobalLock((HGLOBAL) hLogPal);				// 設置版本號		lpPal->palVersion = PALVERSION;				// 設置顏色數目		lpPal->palNumEntries = (WORD)wNumColors;				// 判斷是否是WIN3.0的DIB		bWinStyleDIB = IS_WIN30_DIB(lpbi);		// 讀取調色板		for (i = 0; i < (int)wNumColors; i++)		{			if (bWinStyleDIB)			{				// 讀取紅色分量				lpPal->palPalEntry[i].peRed = lpbmi->bmiColors[i].rgbRed;								// 讀取綠色分量				lpPal->palPalEntry[i].peGreen = lpbmi->bmiColors[i].rgbGreen;								// 讀取藍色分量				lpPal->palPalEntry[i].peBlue = lpbmi->bmiColors[i].rgbBlue;								// 保留位				lpPal->palPalEntry[i].peFlags = 0;			}			else			{				// 讀取紅色分量				lpPal->palPalEntry[i].peRed = lpbmc->bmciColors[i].rgbtRed;								// 讀取綠色分量				lpPal->palPalEntry[i].peGreen = lpbmc->bmciColors[i].rgbtGreen;								// 讀取紅色分量				lpPal->palPalEntry[i].peBlue = lpbmc->bmciColors[i].rgbtBlue;								// 保留位				lpPal->palPalEntry[i].peFlags = 0;			}		}				// 按照邏輯調色板創建調色板，并返回指針		bResult = pPal->CreatePalette(lpPal);				// 解除鎖定		::GlobalUnlock((HGLOBAL) hLogPal);				// 釋放邏輯調色板		::GlobalFree((HGLOBAL) hLogPal);	}		// 解除鎖定	::GlobalUnlock((HGLOBAL) hDIB);		// 返回結果	return bResult;}/************************************************************************* * * 函數名稱： *   FindDIBBits() * * 參數: *   LPSTR lpbi         - 指向DIB對象的指針 * * 返回值: *   LPSTR              - 指向DIB圖像象素起始位置 * * 說明: *   該函數計算DIB中圖像象素的起始位置，并返回指向它的指針。 * ************************************************************************/LPSTR WINAPI FindDIBBits(LPSTR lpbi){	return (lpbi + *(LPDWORD)lpbi + ::PaletteSize(lpbi));}/************************************************************************* * * 函數名稱： *   DIBWidth() * * 參數: *   LPSTR lpbi         - 指向DIB對象的指針 * * 返回值: *   DWORD              - DIB中圖像的寬度 * * 說明: *   該函數返回DIB中圖像的寬度。對于Windows 3.0 DIB，返回BITMAPINFOHEADER * 中的biWidth值；對于其它返回BITMAPCOREHEADER中的bcWidth值。 * ************************************************************************/DWORD WINAPI DIBWidth(LPSTR lpDIB){	// 指向BITMAPINFO結構的指針（Win3.0）	LPBITMAPINFOHEADER lpbmi;		// 指向BITMAPCOREINFO結構的指針	LPBITMAPCOREHEADER lpbmc;	// 獲取指針	lpbmi = (LPBITMAPINFOHEADER)lpDIB;	lpbmc = (LPBITMAPCOREHEADER)lpDIB;	// 返回DIB中圖像的寬度	if (IS_WIN30_DIB(lpDIB))	{		// 對于Windows 3.0 DIB，返回lpbmi->biWidth		return lpbmi->biWidth;	}	else	{		// 對于其它格式的DIB，返回lpbmc->bcWidth		return (DWORD)lpbmc->bcWidth;	}}/************************************************************************* * * 函數名稱： *   DIBHeight() * * 參數: *   LPSTR lpDIB        - 指向DIB對象的指針 * * 返回值: *   DWORD              - DIB中圖像的高度 * * 說明: *   該函數返回DIB中圖像的高度。對于Windows 3.0 DIB，返回BITMAPINFOHEADER * 中的biHeight值；對于其它返回BITMAPCOREHEADER中的bcHeight值。 * ************************************************************************/DWORD WINAPI DIBHeight(LPSTR lpDIB){	// 指向BITMAPINFO結構的指針（Win3.0）	LPBITMAPINFOHEADER lpbmi;		// 指向BITMAPCOREINFO結構的指針	LPBITMAPCOREHEADER lpbmc;	// 獲取指針	lpbmi = (LPBITMAPINFOHEADER)lpDIB;	lpbmc = (LPBITMAPCOREHEADER)lpDIB;	// 返回DIB中圖像的寬度	if (IS_WIN30_DIB(lpDIB))	{		// 對于Windows 3.0 DIB，返回lpbmi->biHeight		return lpbmi->biHeight;	}	else	{		// 對于其它格式的DIB，返回lpbmc->bcHeight		return (DWORD)lpbmc->bcHeight;	}}/************************************************************************* * * 函數名稱： *   PaletteSize() * * 參數: *   LPSTR lpbi         - 指向DIB對象的指針 * * 返回值: *   WORD               - DIB中調色板的大小 * * 說明: *   該函數返回DIB中調色板的大小。對于Windows 3.0 DIB，返回顏色數目× * RGBQUAD的大小；對于其它返回顏色數目×RGBTRIPLE的大小。 * ************************************************************************/WORD WINAPI 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 WINAPI DIBNumColors(LPSTR lpbi){	WORD wBitCount;	// 對于Windows的DIB, 實際顏色的數目可以比象素的位數要少。	// 對于這種情況，則返回一個近似的數值。		// 判斷是否是WIN3.0 DIB	if (IS_WIN30_DIB(lpbi))	{		DWORD dwClrUsed;				// 讀取dwClrUsed值		dwClrUsed = ((LPBITMAPINFOHEADER)lpbi)->biClrUsed;				if (dwClrUsed != 0)		{			// 如果dwClrUsed（實際用到的顏色數）不為0，直接返回該值			return (WORD)dwClrUsed;		}	}	// 讀取象素的位數	if (IS_WIN30_DIB(lpbi))	{		// 讀取biBitCount值		wBitCount = ((LPBITMAPINFOHEADER)lpbi)->biBitCount;	}	else	{		// 讀取biBitCount值		wBitCount = ((LPBITMAPCOREHEADER)lpbi)->bcBitCount;	}		// 按照象素的位數計算顏色數目	switch (wBitCount)	{		case 1:			return 2;		case 4:			return 16;		case 8:			return 256;		default:			return 0;	}}/************************************************************************* * * 函數名稱： *   DIBBitCount() * * 參數: *   LPSTR lpbi         - 指向DIB對象的指針 * * 返回值: *   WORD               - 返回調色板中顏色的種數 * * 說明: *   該函數返回DIBBitCount。 * ************************************************************************/WORD WINAPI DIBBitCount(LPSTR lpbi){	WORD wBitCount;	// 讀取象素的位數	if (IS_WIN30_DIB(lpbi))	{		// 讀取biBitCount值		wBitCount = ((LPBITMAPINFOHEADER)lpbi)->biBitCount;	}	else	{		// 讀取biBitCount值		wBitCount = ((LPBITMAPCOREHEADER)lpbi)->bcBitCount;	}		// 返回wBitCount	return wBitCount;}/************************************************************************* * * 函數名稱： *   CopyHandle() * * 參數: *   HGLOBAL h          - 要復制的內存區域 * * 返回值: *   HGLOBAL            - 復制后的新內存區域 * * 說明: *   該函數復制指定的內存區域。返回復制后的新內存區域，出錯時返回0。 * ************************************************************************/HGLOBAL WINAPI 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 WINAPI SaveDIB(HDIB hDib, CFile& file){	// Bitmap文件頭	BITMAPFILEHEADER bmfHdr;		// 指向BITMAPINFOHEADER的指針	LPBITMAPINFOHEADER lpBI;		// DIB大小	DWORD dwDIBSize;	if (hDib == NULL)	{		// 如果DIB為空，返回FALSE		return FALSE;	}	// 讀取BITMAPINFO結構，并鎖定	lpBI = (LPBITMAPINFOHEADER) ::GlobalLock((HGLOBAL) hDib);		if (lpBI == NULL)	{		// 為空，返回FALSE		return FALSE;	}		// 判斷是否是WIN3.0 DIB	if (!IS_WIN30_DIB(lpBI))	{		// 不支持其它類型的DIB保存				// 解除鎖定		::GlobalUnlock((HGLOBAL) hDib);				// 返回FALSE		return FALSE;	}	// 填充文件頭	// 文件類型"BM"	bmfHdr.bfType = DIB_HEADER_MARKER;	// 計算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;