Определить желтый,красный или зеленый цвет находится в bmp

[rekrow]

уважаемые программисты,возник маленький вопросик,искал в интернете,но чего-то не разобрался сам.Есть изображение с черным фоном,на нем могут находиться цвета либо красный(RGB 255 0 0),либо зеленый(RGB 0 255 0),либо желтый(RGB 255 255 0),так вот нужно быстро просканировать изображение на ниличе этих цветов,и указать какой именно цвет находится на изображении.
Спасибо большое!!!

[Alex Cones]

В цикле проходишся по каждому пикселю имея с собой три флага и смотришь Image1.Picture.BitMap.Canvas.Pixels[X,Y]

[rekrow]

насколько я начитался,canvas достаточно медленная функция,а как насчет реализации scanline'а?

[Alex Cones]

Вот недавно была моя тема с проблемой замены цвета: 55 582 пикселя за 2 секунды. Суди сам.

[rekrow]

а ссылочку на топик дай пожалуйста...

[Alex Cones]

Вот скан: http://www.programmersforum.ru/showt...light=ScanLine
Вот моя тема: http://www.programmersforum.ru/showthread.php?t=71497

[rekrow]

Огромное спасибо,очень полезные ссылочки.

[rekrow]

В чем ошибка?

procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
X,Y:SmallInt;
begin
bmp:=TBitmap.Create;
bmp.Height:=9;
bmp.Width:=57;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, 57, 9,DC, 854, 116, SRCCOPY);
bmp.SaveToFile('Screen.bmp');
ReleaseDC(0, DC);

For Y:=0 to bmp.Height - 1 do
For X:=0 to bmp.Width - 1 do
Begin
If bmp.Canvas.Pixels[X,Y] = $FF0000 Then
ShowMessage('Red!');
End;
end;

Копирует изображение экрана,успешно обрезает по нужным координатам,но не находит красный цвет в этом изображении,хотя точно есть там...помогите,пожалуйста.Спасибо!

[BOBAH13]

Точно есть 0xff0000 ? Или вы на "глаз" решили что там есть красный ?

p.s. уже привык к C++ и не вспоминаю такие проблемы, а у вас случаем утечки нет ? TBitmap создали, поработали а где .Free ?

[beemoto]

if image1.picture.bitmap.canvas.pixels[1,1]=RGB(000000) then ...
непроверял но должно работать