Как определить цвет пикселя на jpg картинке?

@ixter · Регистрация: 20.10.2009

Студворк — интернет-сервис помощи студентам

может кто знает как определить цвет пикселя
form2.image1.picture.loadfromfile('c:\WebBrowserImage.jpg');
собственно уже неделю рыскаю по поиску и нигде не могу наити ответ...
мне надо сделать так чтобы программа выдала мне цвет текстом в едит или мемо без разницы

я пытаюсь написать программу которая тыкает мышю по указаным местам и немогу зделать проверку на пиксель если цвет тот что надо то тыкнуть если цвет пикселя нетот то перейти в другую точку...
может кто поможет?

@Turbosega · 20.10.2009, 14:07

вот так попробуйте - Image1.Canvas.Pixels[i,j]

@ixter · 21.10.2009, 21:24 **[ТС]**

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
var
  DC: HDC;
  Cur: TPoint;
  ColorValue: Cardinal;
 s , r, g, b: integer;
 
  begin
   DC := GetDC( 0 );
   // Получаю координаты курсора
  GetCursorPos( Cur );
   // Узнаю цвет пикселя в полученных координатах
  ColorValue := GetPixel( DC, Cur.X, Cur.Y );
   // Показываю полученный цвет
  edit1.Color := ColorValue;
  label1.Caption:= inttohex(colorvalue,2);
   // Показываю красную составляющую цвета
  r := GetRValue( ColorValue );
   // Показываю зеленую составляющую цвета
  g := GetGValue( ColorValue );
   // Показываю синюю составляющую цвета
   b := GetBValue( ColorValue );
   ReleaseDC( 0, DC );
end;

вот что получилось...

02.02.2010, 13:06

Как понимаю, данный код будет работать со всем экраном. А как сделать, чтобы цвет брался только с пикселя активного окна?

@ixter 0 / 0 / 0 Регистрация: 20.10.2009 Сообщений: 25
		1
	Как определить цвет пикселя на jpg картинке? 20.10.2009, 14:06. Показов 7192. Ответов 3 Метки нет (Все метки) может кто знает как определить цвет пикселя form2.image1.picture.loadfromfile('c:\WebBrowserImage.jpg'); собственно уже неделю рыскаю по поиску и нигде не могу наити ответ... мне надо сделать так чтобы программа выдала мне цвет текстом в едит или мемо без разницы я пытаюсь написать программу которая тыкает мышю по указаным местам и немогу зделать проверку на пиксель если цвет тот что надо то тыкнуть если цвет пикселя нетот то перейти в другую точку... может кто поможет? 0

@Turbosega 40 / 40 / 10 Регистрация: 27.06.2008 Сообщений: 118
	20.10.2009, 14:07	2
	вот так попробуйте - Image1.Canvas.Pixels[i,j] 0

Geotherm
	02.02.2010, 13:06	4
	Как понимаю, данный код будет работать со всем экраном. А как сделать, чтобы цвет брался только с пикселя активного окна?

Опции темы