Comparar imagen en pantalla con otra imagen

[Ñuño Martínez]

Creo que no te va a funcionar. Es decir, sí se pueden comparar imágenes, pero si lo que quieres hacer es conectarte automáticamente al Messenger de Microsoft no es esta la mejor forma. Lo mejor es que busques si es posible entablar una conversación con el cliente (MSN Live), o incluso podría interesarte usar la biblioteca de conexión de Pidgin.

[gorgori]

Lo dije como ejemplo lo del MSN, no es lo que quiero hacer.

Quería saber si es posible hacer algo asi como una matriz de pixeles de un rectangulo "imaginario" en pantalla. Asi, compraria los pixeles con otra imagen y podria calcular si es igual o no.

Gracias por la respuesta

[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.