[Alloc]

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

Я говорю о том, что сравнивать, скорее всего, придется не один пиксель для обнаружения объекта, а ловить любые изменения в небольшом ряду по направлению движения.

извините за наглость, но если это не трудно, не могли бы показать как это примерно выглядит?

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

В остальном-то смысл тот же.
Но сначала лучше прикинуть скорость. "записывать" в таймере кусочки картинки в массив несколько секунд и потом сохранять с временными метками. Хоть увидишь, что "видит" твоя программа.

это уже слишком сложно для меня, боюсь я не справлюсь с этим..

Хочу сделать небольшое пояснение.. Дело в том, что как бы по отдельности все работает, определяется все замечательно, и без разницы какой способ использую, приведенный в начале темы или через GetPixel...

Код:

procedure TForm1.tmr1Timer(Sender: TObject);
var
  r,g,b: Integer;
begin
  PixColorA:= GetPixel(DC,ax,ay);
  r:=GetRValue(PixColorA);
  g:=GetGValue(PixColorA);
  b:=GetBValue(PixColorA);

  if (r>80) and (g>80) and (b>100) then EmulateKey(h1, Ord('D'));
end;

а стоит добавить еще пару GetPixel(DC,X,Y) уже для проверки других координат то программа начинает вести себя странно.. то определяет - то нет.. это главная проблема