24位真彩色轉換為８位灰度圖片（完整程式碼）

  影象的灰度化與二值化是影象處理中最常見的處理方法，也是很多影象處理方法的基礎，如影象灰度統計、影象識別等。

    影象的灰度化與二值化方法較多，處理過程也比較簡單。但切不可因其簡單而忽視效率。如常用的影象灰度計算公式：gray = red * 0.299 + green * 0.587 + blue * 0.114，如果在程式程式碼中直接套用了這個公式，因浮點數的緣故導致程式碼執行效率較低，如改為定點整數運算，可使執行效率大大提高。

    下面是影象的灰度與二值化程式碼：

// 定義ARGB畫素結構
typedef union
{
    ARGB Color;
    struct
    {
        BYTE Blue;
        BYTE Green;
        BYTE Red;
        BYTE Alpha;
    };
}ARGBQuad, *PARGBQuad;
//---------------------------------------------------------------------------

// 影象資料data灰度化
VOID Gray(BitmapData *data)
{
    PARGBQuad p = (PARGBQuad)data->Scan0;
    INT offset = data->Stride - data->Width * sizeof(ARGBQuad);

    for (UINT y = 0; y < data->Height; y ++, (BYTE*)p += offset)
    {
        for (UINT x = 0; x < data->Width; x ++, p ++)
            p->Blue = p->Green = p->Red =
                (UINT)(p->Blue * 29 + p->Green * 150 + p->Red * 77 + 128) >> 8;

    }
}
//---------------------------------------------------------------------------

// 影象資料data灰度同時二值化，threshold閥值
VOID GrayAnd2Values(BitmapData *data, BYTE threshold)
{
    PARGBQuad p = (PARGBQuad)data->Scan0;
    INT offset = data->Stride - data->Width * sizeof(ARGBQuad);

    for (UINT y = 0; y < data->Height; y ++, (BYTE*)p += offset)
    {
        for (UINT x = 0; x < data->Width; x ++, p ++)
        {
            if (((p->Blue * 29 + p->Green * 150 + p->Red * 77 + 128) >> 8) < threshold)
                p->Color &= 0xff000000;
            else
                p->Color |= 0x00ffffff;

        }
    }
}
//---------------------------------------------------------------------------

    因本文使用的是32點陣圖像資料，所以影象的二值化沒有采用通常的賦值操作p->Blue = p->Green = p->Red = 0(或者255)，而是採用了位運算。

    下面是使用BCB2007和GDI+影象資料實現影象灰度和二值化的例子程式碼：

// 鎖定GDI+位點陣圖掃描線到data
FORCEINLINE
VOID LockBitmap(Gdiplus::Bitmap *bmp, BitmapData *data)
{
    Gdiplus::Rect r(0, 0, bmp->GetWidth(), bmp->GetHeight());
    bmp->LockBits(&r, ImageLockModeRead | ImageLockModeWrite,
        PixelFormat32bppARGB, data);
}
//---------------------------------------------------------------------------

// GDI+點陣圖掃描線解鎖
FORCEINLINE
VOID UnlockBitmap(Gdiplus::Bitmap *bmp, BitmapData *data)
{
    bmp->UnlockBits(data);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Gdiplus::Bitmap *bmp =  new Gdiplus::Bitmap(L"d:\\source1.jpg");
    Gdiplus::Graphics *g = new Gdiplus::Graphics(Canvas->Handle);
    g->DrawImage(bmp, 0, 0);
    BitmapData data;
    LockBitmap(bmp, &data);
//    Gray(&data);
    GrayAnd2Values(&data, 128);

    UnlockBitmap(bmp, &data);
    g->DrawImage(bmp, data.Width, 0);
    delete g;
    delete bmp;
}
//---------------------------------------------------------------------------