Comparar imagen en pantalla con otra imagen

[gorgori]

Ahí lo hice, es una cosa de niños al final...

procedure TForm1.Button1Click(Sender: TObject);
var
  e,I: Integer;
begin
igual := 0;
distinto := 0;
for I := 0 to Image1.Width-1 do
begin
  for E := 0 to Image1.Height - 1 do
  begin
  if Image1.Picture.Bitmap.Canvas.Pixels[e,i] = Image2.Picture.Bitmap.Canvas.Pixels[e,i] then
  igual := igual +1
  else
  distinto := distinto+1;
  end;
end;
labelededit1.Text := IntToStr(igual);
labelededit2.Text := IntToStr(distinto);
end;

De ahí sale cuantos son iguales y cuantos no. Gracias!

[manuc]

Hola,

También le puedes calcular el hash a las imágenes originales y a las imágenes con las que quieres compararlas. Si son iguales, es la misma imagen.

Un saludo.