這是我在板上找的程式,他只會搜尋白色的面積,那如果今天我要找別的顏色面積那要如何做
[code cpp]
int count=0;
int Connect(Graphics::TBitmap * BMP, int x, int y)
{
count ;
BMP->Canvas->Pixels[x][y] = clBlack;
// 判斷 (x 1,y)
if(BMP->Canvas->Pixels[x 1][y] == clWhite)
{
Connect(BMP, x 1, y);
}
// 判斷(x 1, y - 1)
if(BMP->Canvas->Pixels[x 1][y - 1] == clWhite)
{
Connect(BMP, x 1, y - 1);
}
// 判斷 (x 1,y 1)
if(BMP->Canvas->Pixels[x][y - 1] == clWhite)
{
Connect(BMP, x , y - 1);
}
// 判斷 (x,y-1)
if(BMP->Canvas->Pixels[x-1][y - 1] == clWhite)
{
Connect(BMP, x-1, y - 1);
}
// 判斷 (x,y-1)
if(BMP->Canvas->Pixels[x-1][y] == clWhite)
{
Connect(BMP, x-1, y);
}
// 判斷 (x-1,y)
if(BMP->Canvas->Pixels[x - 1][y 1] == clWhite)
{
Connect(BMP, x - 1, y 1);
}
// 判斷 (x-1,y-1)
if(BMP->Canvas->Pixels[x][y 1] == clWhite)
{
Connect(BMP, x, y 1);
}
// 判斷 (x 1,y)
if(BMP->Canvas->Pixels[x 1][y 1] == clWhite)
{
Connect(BMP, x 1, y 1);
}
// 判斷 (x-1,y 1)
if(BMP->Canvas->Pixels[x 1][y] == clWhite)
{
Connect(BMP, x 1, y);
}
return (count);
}
void __fastcall TForm1::Button10Click(TObject *Sender)
{
int j ;
int c = 0;
Graphics::TBitmap *BMP = new Graphics::TBitmap();
Byte *ptr=NULL;
BMP->Assign(Image1->Picture->Bitmap);;
for(int y = 0; y < BMP->Height; y )
{
ptr = (Byte *) BMP->ScanLine[y];
for(int x = 0; x < BMP->Width; x )
{
if(ptr[x*3]==255)
{
int cx= Connect(BMP, x, y);
Memo1->Lines->Add(cx);// 顯示每次計算的結果(物件所佔的像素數)
count=0; //歸0用
if (cx>=150 && cx<=500)
c =1; //計算物件各數 (可用像素數cx來限制是否累計)
//break;
}
}
}
ShowMessage(c);
delete BMP;
}
[/code]

clWhite <= 就是蒐尋的顏色

可是我打CLRed
他不會找紅色的點= =

先確定clWhite是 變數還是常數值
如果是變數請設定成想要的顏色

clWhite = 想要的色馬

這樣編譯可以過嗎?
應該是clRed


===================引 用 god12dog 文 章===================
可是我打CLRed
他不會找紅色的點= =