Сравнение изображений

[Kronos913]

Какой самый оптимальный метод сравнения изображений?

Задача такая:
Есть два изображения. При этом низ одного дублирует верх другого. То есть, если небольшой "перехлест". И вот нужно найти количество строк этого перехлеста

[Arigato]

Покажите на примере, что надо сделать.

[Kronos913]

Пример... Ну допустим такой: вы сделали скриншот переписки в телеграме. Потом пролистали переписку вниз и сделали еще один скриншот. Так что получился небольшой перехлест
И теперь надо склеить эти 2 скриншота в один

[Pavia]

Сжимаем изображение в 32 раза. *) Заменяем цвета из 24 бит в 8 бит.
Затем применяем быстрый алгоритм поиска длины наибольшей подпоследовательности. См линк:
http://algolist.ru/search/lcs/simple_lcs.php

И из этой матрицы отбираем наибольшую длину с края.
Если не нашли подрезаем наше изображение на 4 линий и повторяем. И так 32/4=8 раз.
*) Для учета вращения после сжатия надо сделать перебор с небольшими отклонениями.
Далее вырезаем перекрывающиеся участки. выделяем углы и ищим матрицу перехода. Путем метода наименьших квадратов.

Либо по тому туторилу что я довел в соседней теме.
https://disk.yandex.ru/i/Xir2HjHwJAds9A
Либо как приведено в статье.
https://disk.yandex.ru/i/4G0JJRAFeiNnVQ

Но это так с ходу придумал. А вообще советую поискать алгоритм склеивания изображения и создания панорамных снимков.

[Pavia]

Для скриншотов алгоритм можно упростить.

[Pavia]

Для скриншотов просто цикл по строчка и по столбцам из второго цикла break при первом различие. Будет почти линейный алгоритм.

[Arigato]

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

Для скриншотов просто цикл по строчка и по столбцам из второго цикла break при первом различие.

Набросал пример, единственное условие, ширина изображений должна совпадать и не должно быть горизонтальных сдвигов.

const
  PixelCountMax = 32768;

type
  PRGBArray = ^TRGBArray;
  TRGBArray = array[0..PixelCountMax-1] of TRGBTriple;

function BmpCross(bmp1, bmp2: TBitmap): Integer;
var
  x, y, h, LineSize: Integer;
  Line1, Line2: PRGBArray;
  Equal: boolean;
begin
  Result := 0;
  if bmp1.Height > bmp2.Height then h := bmp2.Height else h := bmp1.Height;
  LineSize := bmp1.Width * SizeOf(TRGBTriple);
  repeat
    Inc(Result);
    Equal := True;
    for y := 0 to Result - 1 do begin
      Line1 := bmp1.ScanLine[bmp1.Height-Result+y];
      Line2 := bmp2.ScanLine[y];
      if not CompareMem(Line1, Line2, LineSize) then begin
        Equal := False;
        Break;
      end;
    end;
  until (Result >= h) or Equal;
  if not Equal then Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp1, bmp2: TBitmap;
  Cross: Integer;
begin
  bmp1 := TBitmap.Create;
  bmp1.LoadFromFile('1.bmp'); // верхнее изображение
  bmp2 := TBitmap.Create;
  bmp2.LoadFromFile('2.bmp'); // нижнее изображение
  if bmp1.Width = bmp2.Width then begin
    if (bmp1.PixelFormat = pf24bit) and (bmp2.PixelFormat = pf24bit) then begin
      Cross := BmpCross(bmp1, bmp2);
      bmp1.Height := bmp1.Height + bmp2.Height - Cross;
      bmp1.Canvas.Draw(0, bmp1.Height - bmp2.Height, bmp2);
      bmp1.SaveToFile('3.bmp');
      ShowMessage('Совпадающих строк: ' + IntToStr(Cross));
    end else ShowMessage('Неверный формат BMP');
  end else ShowMessage('Ширина изображений не совпадает');
  bmp1.Free;
  bmp2.Free;
end;