1.show a diloague box to choice a BMP files. 2. load the choiced BMP files (baybe colorful) to a image. 3. convert the pixels in image to grey level according to the foregoing formula and save to a dynamic array. 4. convert the colorful image to a gray one. 發表人 - taishyang 於 2005/03/15 22:28:38

    

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// 動態產生一個影像
if(OpenPictureDialog1->Execute())
  {
  if(FileExists(OpenPictureDialog1->FileName))
    {
    if (Image1) delete Image1;
    Image1 = new TImage(Form1);
    Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
    Image1->Align = alClient;
    Image1->Stretch = false;
    Image1->Visible = true;
    Image1->Parent = Form1;
    }
  }
}    void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i,j,Row,Col;
Graphics::TBitmap *pic = Image1->Picture->Bitmap;
if(!pic->Empty)
  {
  // 動態宣告一個Buffer, 用來存計算出來的灰階值結果
  unsigned char **Buffer = new unsigned char*[pic->Height];
  for (i=0; i< pic->Height; i  )
     Buffer[i] = new unsigned char[pic->Width];      // 將原影像的R,G,B 按照公式..轉成灰階值..放到Buffer中
  pic->PixelFormat = pf32bit;
  RGBQUAD *Pixel;      for (Row=0; Row < pic->Height ; Row  )
    {
    Pixel = (RGBQUAD *) pic->ScanLine[Row];
    for (Col=0; Col < pic->Width; Col  , Pixel  )
      Buffer[Row][Col] = (BYTE) ((float)Pixel->rgbRed*0.299
                                 (float)Pixel->rgbGreen*0.587
                                 (float)Pixel->rgbBlue*0.114);
    }      // 將結果蓋過原來的影像
  for (Row=0; Row < pic->Height ; Row  )
    {
    Pixel = (RGBQUAD *) pic->ScanLine[Row];
    for (Col=0; Col < pic->Width; Col  , Pixel  )
       {
       Pixel->rgbRed = (BYTE) Buffer[Row][Col];
       Pixel->rgbGreen = (BYTE) Buffer[Row][Col];
       Pixel->rgbBlue = (BYTE) Buffer[Row][Col];
       }
    }
  Image1->Invalidate();      // 刪除動態宣告的Buffer
  for (i=0; iHeight; i  )
    delete[] Buffer[i];
  delete [] Buffer;
  }
}    

=========== 有興趣,就能進步 ===========