我用sacnline的方式 把灰階直方圖畫出來  

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Graphics::TBitmap *Bmp = new Graphics::TBitmap();
Byte *ptr;
int i,j;
int b[256]={0};
Bmp->Assign(Image2->Picture->Bitmap) ;
Bmp->PixelFormat=pf24bit;    Form1->Series1->Clear();    for(j=0;jHeight;j  )
{
  ptr = (Byte *)Bmp->ScanLine[j];
  for(i=0;iWidth;i  )
    {
    b[ptr[i*3]]  ;
    }
    }
 for (int B= 0; B < 256; B  )
 Series1->Add(b[B],B,TColor(clBlack));
}
 

之後要怎樣對我原本灰階圖 做直方圖等化呢? 我是新手 多多指教 ^^

參考看看吧    Graphics::TBitmap *BMP = new Graphics::TBitmap();  Byte *ptr=NULL;  BMP->Assign(Image1->Picture->Bitmap); for(int i=0;i<256;i ) {gray_level[i]=gray_level[i]/((Image1->Picture->Width)*(Image1->Picture->Height)); } for(int i=1;i<256;i ) { gray_level[i]=gray_level[i] gray_level[i-1]; } for(int i=0;i<256;i ) { gray_level[i]=gray_level[i]*255; } for (int y=0;yHeight;y ) { ptr=(Byte *)BMP->ScanLine[y]; for (int x=0 ; xWidth; x ) { int gray=0.3*ptr[x*3] 0.3*ptr[x*3 1] 0.4*ptr[x*3 2]; ptr[x*3]=ptr[x*3 1]=ptr[x*3 2]=gray_level[gray]; } } Image2->Picture->Assign(BMP); delete BMP;

我執行您的程式碼 似乎出現錯誤 我自己偵錯 也不知道哪邊出問題 可以請您看一下嗎? gray_level[i] <--這邊沒有定義 但是要怎樣宣告?? 發表人 - 1666362 於 2005/01/13 17:05:16

gray_level[i] <--這邊沒有定義    跟你的b[B]是相同的意思

此處我在之前已接解決了 但是真的去執行 真正問題在這邊 ptr[x*3]=ptr[x*3 1]=ptr[x*3 2]=gray_level[gray]; complier會過 但是ㄧ執行就會終止 出現錯誤 看不出哪邊有問題 =.= 我是新手 多多指教 ^^

抱歉= =" 我把比較完整的CODE貼上好了--    Image1->Picture->Bitmap->PixelFormat=pf24bit; float gray_level[256]; //宣告要排放gray等級個數的陣列 Graphics::TBitmap *BMP = new Graphics::TBitmap();  Byte *ptr=NULL;  BMP->Assign(Image1->Picture->Bitmap); for(int j=0;j<256;j ) gray_level[j]=0; for(int y=0;yHeight;y ) //把值放入gray_level[]內 { ptr = (Byte *)BMP->ScanLine[y]; for(int x=0;xWidth;x ) { int gray=0.3*ptr[x*3] 0.3*ptr[x*3 1] 0.4*ptr[x*3 2]; gray_level[gray]=gray_level[gray] 1; } } for(int i=0;i<256;i ) {gray_level[i]=gray_level[i]/((Image1->Picture->Width)*(Image1->Picture->Height)); } for(int i=1;i<256;i ) { gray_level[i]=gray_level[i] gray_level[i-1]; } for(int i=0;i<256;i ) { gray_level[i]=gray_level[i]*255; } for(int y=0;yHeight;y ) { ptr=(Byte *)BMP->ScanLine[y]; for (int x=0 ; xWidth; x ) { int gray=0.3*ptr[x*3] 0.3*ptr[x*3 1] 0.4*ptr[x*3 2]; ptr[x*3]=ptr[x*3 1]=ptr[x*3 2]=gray_level[gray]; } } Image2->Picture->Assign(BMP); delete BMP; 在試試看吧!!我自己試沒有錯誤

poaivy你好:    發表程式請按下列方式發表,以方便其他人閱讀    [code] // BCB, Delphi 的程式碼 [/code] 除非你的程式真的全部靠左對齊, 謝謝合作。

謝謝您 無私的分享 請教您的程式碼的問題 int gray=0.3*ptr[x*3] 0.3*ptr[x*3 1] 0.4*ptr[x*3 2]; <---這是什麼意思 可以麻煩您解釋一下嗎? 我是新手 多多指教 ^^