Отлов цвета в определенной области экрана

[Arigato]

Просто уточнение, что во внутреннем представлении цвет хранится в формате BGR, а не RGB. Это надо бы уже знать.

[adkomissarov]

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

procedure TForm1.Button1Click(Sender: TObject);
begin
tmr2.interval:=5*1000;
tmr2.Enabled:= True;
end;


procedure TForm1.tmr2Timer(Sender: TObject);
var
DC: HDC;
Color: Cardinal;
begin
DC :=GetDC(0);
Color := GetPixel(DC, 484, 395);
ReleaseDC(0,DC);

if Color=343806 then begin
SetCursorPos(480, 450);
mouse_event(MOUSEEVENTF_LEFTDOWN,48 0,450,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,480, 450,0,0);
Sleep(2000);
SetCursorPos(770, 450);
mouse_event(MOUSEEVENTF_LEFTDOWN,77 0,450,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,770, 450,0,0);
end;

if Color=381259 then begin
SetCursorPos(580, 450);
mouse_event(MOUSEEVENTF_LEFTDOWN,58 0,450,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,580, 450,0,0);
Sleep(2000);
SetCursorPos(870, 450);
mouse_event(MOUSEEVENTF_LEFTDOWN,87 0,450,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,870, 450,0,0);
end;


if Color=9830400 then begin
SetCursorPos(380, 450);
mouse_event(MOUSEEVENTF_LEFTDOWN,38 0,450,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,380, 450,0,0);
Sleep(2000);
SetCursorPos(670, 450);
mouse_event(MOUSEEVENTF_LEFTDOWN,67 0,450,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,670, 450,0,0);
end;

[Аватар]

Поймал цвет - запомни, в таймере проверяй - совпадает или нет, изменился - новые действия и опять запомнил

[adkomissarov]

Сообщение от Аватар

Поймал цвет - запомни, в таймере проверяй - совпадает или нет, изменился - новые действия и опять запомнил

Если не трудно, то можно код, как запомнить? А то я совсем новичок.

[min@y™]

Если не трудно, то можно код, как запомнить?

Tmr1.Tag:= Color;  // например

[adkomissarov]

Сообщение от min@y™

Tmr1.Tag:= Color;  // например

А как сравнивать? Точнее как заставить ожидать пока не смениться память таймера.

[min@y™]

после ReleaseDC(0,DC);

if Tmr1.Tag = Color
  then Exit; // например

при запуске таймера:

procedure TForm1.Button1Click(Sender: TObject);
begin
tmr2.interval:=5*1000;
tmr2.Enabled:= True;
tmr.Tag:= -1; // так надо!
end;

[adkomissarov]

Сообщение от min@y™

после ReleaseDC(0,DC);

if Tmr1.Tag = Color
  then Exit; // например

при запуске таймера:

procedure TForm1.Button1Click(Sender: TObject);
begin
tmr2.interval:=5*1000;
tmr2.Enabled:= True;
tmr.Tag:= -1; // так надо!
end;

Спасибо огромное! Еще бы что значит -1 понять и вообще супер)

[northener]

Сообщение от adkomissarov

Еще бы что значит -1 понять и вообще супер)

Такого цвета не бывает

[min@y™]

Еще бы что значит -1 понять и вообще супер)

У тебя там компайлер не выдаёт warning типа "combined signed and unsigned widened both operands..."?