#pragma once
 
#include <windows.h>
#include <string>
using namespace std;
 
class ImageHelper
{
public:
    static bool SaveBitmapToFile(HBITMAP bitmap, const string& filename); //保存位圖到文件
 
private:
    static WORD GetBitmapBitCount(); //計算位圖文件每個像素所占字節(jié)數(shù)
    static void ProcessPalette(HBITMAP hBitmap, const BITMAP& bitmap,
        DWORD paletteSize, LPBITMAPINFOHEADER lpBmpInfoHeader); //處理調(diào)色板
};

#include "ImageHelper.h"
#include <shlwapi.h>
 
 
bool ImageHelper::SaveBitmapToFile(HBITMAP hBitmap, const string& filename)
{
    //1. 創(chuàng)建位圖文件
    const auto file = CreateFileA(filename.c_str(), GENERIC_WRITE,
        0, nullptr, CREATE_ALWAYS,
        FILE_ATTRIBUTE_NORMAL | FILE_FLAG_SEQUENTIAL_SCAN,
        nullptr);
    if (file == INVALID_HANDLE_VALUE)
    {
        return false;
    }
 
    //2. 計算位圖文件每個像素所占字節(jié)數(shù)
    const auto bitCount = GetBitmapBitCount();
 
    //3. 獲取位圖結(jié)構(gòu)
    BITMAP bitmap;
    ::GetObject(hBitmap, sizeof(bitmap), reinterpret_cast<LPSTR>(&bitmap));
 
    //位圖中像素字節(jié)大小(32字節(jié)對齊)
    const DWORD bmBitsSize = ((bitmap.bmWidth * bitCount + 31) / 32) * 4 * bitmap.bmHeight;
 
    //調(diào)色板大小
    const DWORD paletteSize = 0;
 
    //4. 構(gòu)造位圖信息頭
    BITMAPINFOHEADER  bmpInfoHeader; //位圖信息頭結(jié)構(gòu)
    bmpInfoHeader.biSize = sizeof(BITMAPINFOHEADER);
    bmpInfoHeader.biWidth = bitmap.bmWidth;
    bmpInfoHeader.biHeight = bitmap.bmHeight;
    bmpInfoHeader.biPlanes = 1;
    bmpInfoHeader.biBitCount = bitCount;
    bmpInfoHeader.biCompression = BI_RGB;
    bmpInfoHeader.biSizeImage = 0;
    bmpInfoHeader.biXPelsPerMeter = 0;
    bmpInfoHeader.biYPelsPerMeter = 0;
    bmpInfoHeader.biClrImportant = 0;
    bmpInfoHeader.biClrUsed = 0;
 
    //5. 構(gòu)造位圖文件頭
    BITMAPFILEHEADER bmpFileHeader;
    bmpFileHeader.bfType = 0x4D42; //"BM"
    //位圖文件大小
    const DWORD dibSize = sizeof(BITMAPFILEHEADER) + sizeof(BITMAPINFOHEADER) + paletteSize + bmBitsSize;
    bmpFileHeader.bfSize = dibSize;
    bmpFileHeader.bfReserved1 = 0;
    bmpFileHeader.bfReserved2 = 0;
    bmpFileHeader.bfOffBits = static_cast<DWORD>(sizeof(BITMAPFILEHEADER))
        + static_cast<DWORD>(sizeof(BITMAPINFOHEADER)) + paletteSize;
 
    //6. 為位圖內(nèi)容分配內(nèi)存 
    const auto dib = GlobalAlloc(GHND, bmBitsSize + paletteSize + sizeof(BITMAPINFOHEADER)); //內(nèi)存句柄
    const auto lpBmpInfoHeader = static_cast<LPBITMAPINFOHEADER>(GlobalLock(dib)); //指向位圖信息頭結(jié)構(gòu)
    *lpBmpInfoHeader = bmpInfoHeader;
 
    //7. 處理調(diào)色板
    ProcessPalette(hBitmap, bitmap, paletteSize, lpBmpInfoHeader);
 
    //8. 寫入文件
    DWORD written = 0; //寫入文件字節(jié)數(shù)   
    WriteFile(file, reinterpret_cast<LPSTR>(&bmpFileHeader), sizeof(BITMAPFILEHEADER),
        &written, nullptr); //寫入位圖文件頭
    WriteFile(file, reinterpret_cast<LPSTR>(lpBmpInfoHeader), dibSize,
        &written, nullptr); //寫入位圖文件其余內(nèi)容
 
    //9. 清理資源
    GlobalUnlock(dib);
    GlobalFree(dib);
    CloseHandle(file);
 
    return true;
}
 
//計算位圖文件每個像素所占字節(jié)數(shù)
WORD ImageHelper::GetBitmapBitCount()
{
    const auto dc = ::CreateDCA("DISPLAY", nullptr, nullptr, nullptr);
    //當(dāng)前分辨率下每像素所占字節(jié)數(shù)
    const auto bits = ::GetDeviceCaps(dc, BITSPIXEL) * GetDeviceCaps(dc, PLANES);
    ::DeleteDC(dc);
 
    //位圖中每像素所占字節(jié)數(shù)
    WORD bitCount;
    if (bits <= 1)
        bitCount = 1;
    else if (bits <= 4)
        bitCount = 4;
    else if (bits <= 8)
        bitCount = 8;
    else
        bitCount = 24;
 
    return bitCount;
}
 
//處理調(diào)色板
void ImageHelper::ProcessPalette(HBITMAP hBitmap, const BITMAP& bitmap,
    DWORD paletteSize, LPBITMAPINFOHEADER lpBmpInfoHeader)
{
    HANDLE oldPalette = nullptr;
    HDC dc = nullptr;
    const auto palette = GetStockObject(DEFAULT_PALETTE);
    if (palette != nullptr)
    {
        dc = ::GetDC(nullptr);
        oldPalette = ::SelectPalette(dc, static_cast<HPALETTE>(palette), FALSE);
        ::RealizePalette(dc); //實(shí)現(xiàn)設(shè)備調(diào)色板
    }
 
    //獲取該調(diào)色板下新的像素值
    GetDIBits(dc, hBitmap, 0, static_cast<UINT>(bitmap.bmHeight),
        reinterpret_cast<LPSTR>(lpBmpInfoHeader) + sizeof(BITMAPINFOHEADER) + paletteSize,
        reinterpret_cast<BITMAPINFO*>(lpBmpInfoHeader), DIB_RGB_COLORS);
 
    //恢復(fù)調(diào)色板
    if (oldPalette != nullptr)
    {
        ::SelectPalette(dc, static_cast<HPALETTE>(oldPalette), TRUE);
        ::RealizePalette(dc);
        ::ReleaseDC(nullptr, dc);
    }
}