Помогите исправить алгоритм поиска пикселя в TImage

Speech · #1 26.08.2013, 18:05

Доброго времени суток. Скажу сразу - уже мало что соображаю, ибо долго сидел с этим кодом

. Вроде и пустяк, но никак не могу развязать этот узел.
Мне надо найти определенный пиксель в компоненте TImage. Для этого я написал 2 функции.
Эта функция собственно ищет любой пиксель с заданным цветом и возвращает его координаты:

Код:

{тип на координаты курсора, будет использоваться в функции по поиску пикселя}
type
  CursorXY = record
  X   : Integer;
  Y   : Integer;
  Res : Boolean;
  end;
 
{функция поиска пикселя
FindColor    - цвет который будем искать
X, Y         - координаты с которых будем начинать поиск
StopX, StopY - по каким координатам будем прекращать поиск}
function FindPixel(FindColor, X, Y, StopX, StopY: Integer): CursorXY;
var
  X1    : Integer;
  Flag  : Boolean;
begin
  Result.Res:= False;
  Flag      := False;
  while Y <= StopY-1 do
    begin
      for X1:= X to StopX-1 do
        begin
          SetCursorPos(X1, Y);
          if Form1.Image1.Picture.Bitmap.Canvas.Pixels[X1, Y] = FindColor then
            begin
              Result.X    := X1;    {возвращаем координаты найденного пикселя}
              Result.Y    := Y;
              Result.Res  := True;  {а также информацию о том что пиксель найден}
              Flag        := True;  {мы нашли наш пиксель}
              Break;                {значит выходим из цикла}
            end;
        end;
      if Flag then                  {если завершили внутренний цикл - завершаем и внешний}
        Break;
 
      Inc(Y);
    end;
end;

Эта функция сверяет относительно найденного пикселя последующий пиксели (типа по маске), чтобы найти именно тот пиксель который мне нужен, ибо с одинаковыми цветами таких пикселей много.

Код:

const
  {массив цветов пикселей на начало фона картинки, на данной картинке это координаты 369, 226}
  ArrayAreaPhoto : array[0..30] of Integer = (13224393, 13027014, 13290186,
  12698049, 13224393, 12500670, 13158600, 12829635, 12895428, 12566463,
  12961221, 13158600, 13487565, 12829635, 13224393, 12961221, 13224393,
  13224393, 13355979, 13158600, 13290186, 13224393, 13290186, 12763842,
  13487565, 13027014, 13619151, 12895428, 13224393, 13092807, 13290186);
 
{функция проверки по маске}
function FindAreaPhotoEX(X, Y: integer): Boolean;
var
  i: Integer;
begin
  for i:= 0 to 30 do
    begin
      if Form1.Image1.Picture.Bitmap.Canvas.Pixels[X, Y] <> ArrayAreaPhoto[i] then
        begin
          Result:= False;
          Exit;
        end;
      Inc(X);
    end;
  Result:= True;
end;

Эти 2 функции по отдельности работают как надо. Может там конечно еще какие то нюансы алгоритма всплывут и можно будет улучшить - то дело такое. Проблема в том что не получается найти искомый пиксель, который я пытаюсь найти следующим образом:

Код:

{функция поиска начала фона под картинкой
X, Y - координаты начала поиска, обычно 0, 0
StopX, StopY - по каким координатам будем прекращать поиск}
function FindAreaPhoto(X, Y, StopX, StopY: Integer): CursorXY;
var
  CursorPosition  : CursorXY;
begin
  Result.Res      := False;
  CursorPosition.X:= X;
  CursorPosition.Y:= Y;
  while True do                   {крутим пока что вечный цикл, пока не найдем маску}
    begin
      {я думаю что ошибка в этой строке, но ума не приложу что еще не так}
      CursorPosition:= FindPixel(ArrayAreaPhoto[0], CursorPosition.X, CursorPosition.Y, StopX, StopY);
 
      {если первый пиксель найден - проверяем маску}
      if CursorPosition.Res and (CursorPosition.X < StopX-30) then
        begin
                                  {Если нашли маску - завершаем работу функции}
          if FindAreaPhotoEX(CursorPosition.X, CursorPosition.Y) then
            begin                 {но сюда мы почему то никогда не попадаем!}
              Result.X    := CursorPosition.X;
              Result.Y    := CursorPosition.Y;
              Result.Res  := True;
              Exit;
            end;
          Inc(CursorPosition.X);  {нам же в другой раз нужен следующий пиксель по координате X}
        end;
    end;
end;

Одним словом - я запутался. Прилагаю готовый проект, который можно скачать ниже. Перед тем как запускать, закоментируйте строку 70 SetCursorPos(X1, Y);, ибо будет по экрану самопроизвольно бегать мышка. Сделал для наглядности. Либо тогда останавливать проект горячими клавишами.

angvelem · #2 26.08.2013, 22:01

Код:

    Flag        := True;  {мы нашли наш пиксель}
    Break;                {значит выходим из цикла}
  end;
end;
if Flag then                  {если завершили внутренний цикл - завершаем и внешний}
  Break;

Первое на что обратил внимание. Достаточно:

Код:

    Flag        := True;  {мы нашли наш пиксель}
    Exit;                {значит выходим из функции}
  end;
end;

Speech · #3 26.08.2013, 22:57

angvelem, спасибо конечно за поправку. Но если бы кто подсказал как найти тот пиксель с координатами 369, 226 - было бы здорово

angvelem · #4 26.08.2013, 23:09

Пока архив не смотрел.

Разберись с

Код:

function FindAreaPhotoEX(X, Y : Integer) : Boolean;
var
  I : Integer;
begin
  Result := False;
 
  for I := 0 to 30 do
  begin
    if Form1.Image1.Picture.Bitmap.Canvas.Pixels[X, Y] <> ArrayAreaPhoto[i] then
      Exit;
    Inc(X);
  end;
 
  Result := True;
end;

X наращивается локально или нужно отдавать наружу увеличенным.

angvelem · #5 27.08.2013, 00:01

Код:

function FindAreaPhoto(X, Y, StopX, StopY : Integer) : CursorXY;
begin
...
    // Возвращает найденную позицию, к примеру 1310 по X
    CursorPosition := FindPixel(ArrayAreaPhoto[0], CursorPosition.X, CursorPosition.Y, StopX, StopY);
...
      // наращивает, но в следующем цикле, FindPixel опять вернёт 1310
      // и так до бесконечности
      Inc(CursorPosition.X);  {нам же в другой раз нужен следующий пиксель по координате X}
...
end;

Speech · #6 27.08.2013, 00:44

Цитата:

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

Пока архив не смотрел.

Разберись с

Код:

function FindAreaPhotoEX(X, Y : Integer) : Boolean;
var
  I : Integer;
begin
  Result := False;
 
  for I := 0 to 30 do
  begin
    if Form1.Image1.Picture.Bitmap.Canvas.Pixels[X, Y] <> ArrayAreaPhoto[i] then
      Exit;
    Inc(X);
  end;
 
  Result := True;
end;

X наращивается локально или нужно отдавать наружу увеличенным.

Локально, там же в функцию передается не в виде var. Массив ArrayAreaPhoto глобальный. Наружу отдается True если прошли все совпадения по пикселям.

Speech · #7 27.08.2013, 00:51

Цитата:

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

Код:

function FindAreaPhoto(X, Y, StopX, StopY : Integer) : CursorXY;
begin
...
    // Возвращает найденную позицию, к примеру 1310 по X
    CursorPosition := FindPixel(ArrayAreaPhoto[0], CursorPosition.X, CursorPosition.Y, StopX, StopY);
...
      // наращивает, но в следующем цикле, FindPixel опять вернёт 1310
      // и так до бесконечности
      Inc(CursorPosition.X);  {нам же в другой раз нужен следующий пиксель по координате X}
...
end;

Вот - знаю же что именно тут ошибка. Но никак ее не могу увидеть. Да, действительно цикл получается до бесконечности, но! Я же увеличиваю переменную CursorPosition.X на 1, специально чтобы избежать бесконечного цикла и оставить проверенный пиксель далеко позади. И в дебаггере смотрел - там действительно становится 1311. Но в тоже время никак не соображу - как правильно записать? Может поможете конкретным примером? А то я просто не вижу этой ошибки ))

angvelem · #8 27.08.2013, 01:18

Так нужно найти отдельный пиксел или всю группу?

Speech · #9 27.08.2013, 01:23

На той картинке что в архиве нужно найти пиксель с координатами 369, 226.
Дело в том что пикселей с таким цветом много, и я взял последовательность группы пикселей (30 штук, что в массиве). Но эта последовательность мне нужна лишь чтобы подтвердить что первый пиксель этой группы - именно тот что мне нужен.

angvelem · #10 27.08.2013, 01:24

Если так, то по этой координате другой цвет, а именно $CBCBCB (13355979).

А нет, всё верно. Забыл что отсчёт идёт снизу.

Speech · #11 27.08.2013, 01:34

А у меня показывает 13224393. Закомментируйте строку

Код:

1	`CursorPosition:= FindAreaPhoto(0,` `0, Image1.Width, Image1.Height);`

Потом аккуратно наведите мышкой на координаты 369, 226 и в Edit1 будет цвет, который под курсором мышки. Я ориентировался по этому, а как вы определили по тех координатах цвет 13355979?

angvelem · #12 27.08.2013, 01:37

Я смотрел координаты в графическом редакторе. Если считать снизу картинки, то тогда нужный цвет существует по указанным координатам.

Speech · #13 27.08.2013, 01:51

Странно получается - ведь все координаты на компьютере идут с левого верхнего угла монитора!
Ладно, цвет цветом. Можете более детально объяснить насчет этого участка кода?

Цитата:

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

Код:

function FindAreaPhoto(X, Y, StopX, StopY : Integer) : CursorXY;
begin
...
    // Возвращает найденную позицию, к примеру 1310 по X
    CursorPosition := FindPixel(ArrayAreaPhoto[0], CursorPosition.X, CursorPosition.Y, StopX, StopY);
...
      // наращивает, но в следующем цикле, FindPixel опять вернёт 1310
      // и так до бесконечности
      Inc(CursorPosition.X);  {нам же в другой раз нужен следующий пиксель по координате X}
...
end;

Как правильно записать?

angvelem · #14 27.08.2013, 01:55

У битмапов с нижнего левого.
Сейчас уже поздно (или рано), днём посмотрю.

angvelem · #15 27.08.2013, 02:37

Поиск подправил, но искомая комбинация не найдена.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
Speech (26.08.2013)

Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
Speech (27.08.2013)