como comparar se duas imagens s�o iguais

Question

:?: Como comparar se duas imagens (as quais s�o desenhadas em tempo de execu��o usando componente TImage) s�o iguais? Eu tentei v�rias formas como por exemplo:
if ImageCopiaImage1.Picture.Graphic <> ImageCopiaAntImage1.Picture.Graphic then .....

mas n�o deu certo.
Algu�m pode me ajudar?

Balceiro · Answer

Bom o correto seria salvar as imagens para depois fazer a checagem.Ai o delphi leria o conte�do do arquivo e analizaria se os dois conte�dos s�o iguais....

Angelluiza · Answer

certo, mas como o delphi vai ler o conte�do do arquivo e analizar se os dois conte�dos s�o iguais?...

Akelle Kara · Answer

Use este c�digo para comparar as duas imagens, basta passar seus dois [b:f00fee1b87]TImages[/b:f00fee1b87] como par�metros (a fun��o retorna True, se as imagens forem identicas e False se forem diferentes):

function CompararImgs(Image1, Image2: TImage): Boolean;
var
  b1, b2: TBitmap;
  c1, c2: PByte;
  x, y, i,
  different, BytesPerPixel: Integer;
begin
  b1 := Image1.Picture.Bitmap;
  b2 := Image2.Picture.Bitmap;
  Assert(b1.PixelFormat = b2.PixelFormat);
  different := 0;
  case b1.PixelFormat of
    pf1bit, pf4bit, pf8bit: BytesPerPixel := 1;
    pf15bit, pf16bit: BytesPerPixel := 2;
    pf24bit: BytesPerPixel := 3;
    pf32bit: BytesPerPixel := 4;
  end;
  for y := 0 to b1.Height - 1 do
  begin
    c1 := b1.Scanline[y];
    c2 := b2.Scanline[y];
    for x := 0 to b1.Width - 1 do
      for i := 0 to BytesPerPixel - 1 do
      begin
        Inc(different, Integer(c1^ <> c2^));
        Inc(c1);
        Inc(c2);
      end;
  end;
  Result := (different <> 0);
end;

Qualquer d�vida, pode deixar uma msg como resposta a este t�pico.

F�rum como comparar se duas imagens s�o iguais #225497