以下為我所寫的程式:
void __fastcall TForm1::Thresholding1Click(TObject *Sender)
{
Graphics::TBitmap *TheBitmap, *TempBitmap;
int Width,Height;
Byte *ptr1,*ptr2;
TempBitmap=new Graphics::TBitmap();
TheBitmap=Image1->Picture->Bitmap;
TempBitmap->Assign(TheBitmap);
TheBitmap->PixelFormat=pf8bit;
Width=TheBitmap->Width;
Height=TheBitmap->Height;
for(int y=0;y for(int x=0;x a[x][y]=TheBitmap->Canvas->Pixels[x][y];
}
}
}
執行後輸出:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit2->Text=a[2][2];
Edit3->Text=a[200][200];
}
我有上傳程式檔案，麻煩各位大大及高手，小弟剛學bcb沒多久，請大家幫忙，謝謝!!

感謝大大的解答，但又出現新問題囉，我發現之前的程式是正確的但輸出的pixel值超大
用滑鼠所顯示的RGB值為162，但pixel的值卻為10658466
相差太多了，不知道是哪裡出問題了

------
jason

附加檔案：492b7a035780c_應用.rar

編輯記錄

你的圖案也是灰階8bit的圖
所以基本上RGB三個值會相等
且~像素值會等同於(R B G)/3
所以我寫的程式是直接取R值來做運算

大概PO一些程式碼給你看一下~希望能幫到你

void __fastcall TForm1::Button6Click(TObject *Sender)
{
Graphics::TBitmap *TheBitmap;
Byte *ptr;
int r;
int orgimg[512][512]
PALETTEENTRY pal[1];
TheBitmap=Image1->Picture->Bitmap;
if(!Image1->Picture->Bitmap->Empty)
{
for(int y=0;yHeight;y )
{ ptr=(Byte*)TheBitmap->ScanLine[y];
for(int x=0;xWidth;x )
{
GetPaletteEntries(TheBitmap->Palette,ptr[x],1,pal);
r=pal[0].peRed;
orgimg[x][y]=r;
//StringGrid1->Cells[X 1][Y 1]=IntToStr(tempC[X][Y]);
orgimage->Cells[x 1][y 1]=IntToStr(orgimg[x][y]);
}
}
}

以上是我的程式~我也不確定可否這樣寫~
希望可以幫到你囉~因為我也是在做這方面的程式

感謝大大的解答，但又出現新問題囉，我發現之前的程式是正確的但輸出的pixel值超大
用滑鼠所顯示的RGB值為162，但pixel的值卻為10658466
相差太多了，不知道是哪裡出問題了

------
jason

仔細去看依下Canvas->Pixels 的說明吧～^^
裡面會說的很清楚
If you specify TColor as a specific 4-byte hexadecimal number instead of using the constants defined in the Graphics unit, the low three bytes represent RGB color intensities for blue, green, and red, respectively. The value 0x00FF0000 represents full-intensity, pure blue, 0x0000FF00 is pure green, and 0x000000FF is pure red. 0x00000000 is black and 0x00FFFFFF is white.
Pixels 是TColor type
32BIT的資料
包含了RGB各8BIT也就是說 你將10658466 << 16
就會等於162了


===================引 用 fly093218 文 章===================
以下為我所寫的程式:
void __fastcall TForm1::Thresholding1Click(TObject *Sender)
{
Graphics::TBitmap *TheBitmap, *TempBitmap;
int Width,Height;
Byte *ptr1,*ptr2;
TempBitmap=new Graphics::TBitmap();
TheBitmap=Image1->Picture->Bitmap;
TempBitmap->Assign(TheBitmap);
TheBitmap->PixelFormat=pf8bit;
Width=TheBitmap->Width;
Height=TheBitmap->Height;
for(int y=0;y for(int x=0;x a[x][y]=TheBitmap->Canvas->Pixels[x][y];
}
}
}
執行後輸出:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit2->Text=a[2][2];
Edit3->Text=a[200][200];
}
我有上傳程式檔案，麻煩各位大大及高手，小弟剛學bcb沒多久，請大家幫忙，謝謝!!

感謝poaivy大大的提示，我終於成功哩!!
我的方法是這樣:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int y=0;y<=511;y ){
for(int x=0;x<=511;x ){
b[x][y]=((a[x][y])>>16);
}
}
Edit2->Text=b[2][2];
Edit3->Text=b[200][200];
}
不過跟大大說的不ㄧ樣，我用的是>>16
非常感謝您喔!!

------
jason