Delphi - сравнение изображений

[battlefrogg]

Задание: сравнить изображение с эталоном и вывести степень сходства.
Есть идеи, но не могу их реализовать - с Дельфи плохо знаком.
Понимаю, что сначала нужно определить границы объекта - не знаю как сделать. Потом нужно поместить этот объект в прямоугольник 100х100 - как сжать рисунок знаю - Canvas.StretchDraw( Bounds(0,0,100,100), bmp) - но теперь не знаю как начать сравнивать. Немного почитал статьи на эту тему, говорят, что надо делить изображение на 10 частей и смотреть сколько пикселей черных в данной части, а затем сравнивать с эталоном.

[fbus]

просто берешь i и j

for i:=1 to canvas1.width do
for j:=1 to canvas1.height do
if canvas1.pixels[i,j] = canvas2.pixels[i,j] then inc(n);

showmessage ('количество сходных пикселей = '+inttostr(n));

как-то так. потом переведи сходство в % (от общего кол-ва пикселей)

[ChEaTeR-abc]

По поводу сжатия изображений:
Canvas.StretchDraw( Bounds(0,0,100,100), bmp) - что здесь означает bmp?Выдает ошибку Undeclared identifier: 'bmp'

[Виталий Желтяков]

Используйте стандартный алгоритм распознания:
- Отсекаете однородные части (слева, справа, сверху, снизу), остается сравниваемый объект;
- Делите объект на квадраты (3х3, 4х4,...) по достаточной необходимости;
- Считаете сумму точек цвета рисунка в каждом полученном квадрате;
- Сравниваете полученные результаты.
Алгоритм достаточно надёжен.

[artemavd]

что здесь означает bmp?

Рискну предположить, что это

var
 bmp: TBitmap;

[battlefrogg]

Накалякал, пока только так.

procedure TForm1.Button1Click(Sender: TObject);
var
  FName: string;
  i, j: integer;
  n: longint;
begin
  if OpenPictureDialog1.Execute then FName:= OpenPictureDialog1.FileName;
  bmp:= TBitmap.Create;
  bmp.LoadFromFile(FName);
  Canvas.StretchDraw(Bounds(0,0,100,100), bmp);
  for i:=0 to 100 do
  for j:=0 to 100 do
  if Form1.Canvas.pixels[i,j] = Form1.Canvas.pixels[i+100,j] then inc(n);
  showmessage ('количество сходных пикселей = '+inttostr(n));
end;

procedure TForm1.Button2Click(Sender: TObject);
var  FName: string;
begin
  if OpenPictureDialog1.Execute then FName:= OpenPictureDialog1.FileName;
  bmp2:= TBitmap.Create;
  bmp2.LoadFromFile(FName);
  Canvas.StretchDraw(Bounds(100,0,100,100), bmp2);
end;

[battlefrogg]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtDlgs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bmp: TBitmap;
  x, y: byte;
  ar: array [1..5, 1..5] of byte;

implementation

{$R *.dfm}

function Rect(x, y: byte): longint;
var
  i, j: integer;
begin
  for i := x*20 to x*20 + 20 do
  for j := y*20 to y*20 + 20 do
  if Form1.Canvas.pixels[i,j] <> clWhite then Inc(Result);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenPictureDialog1.Execute;
  bmp := TBitmap.Create;
  bmp.LoadFromFile(form1.OpenPictureDialog1.FileName);
  Canvas.StretchDraw(Bounds(1,1,100,100), bmp);
  for x := 0 to 4 do
  for y := 0 to 4 do
  begin
    ar[x, y] := Rect(x, y);
    Memo1.lines.add(inttostr(ar[x, y]));
  end;
end;
end.

Почему зацикливается?

[Korben5E]

уменьшай каждое изображение до 1 пикселя и сравнивай...

(шутка )