sammenligne to billeder?

http://www.swissdelphicenter.ch/torry/showcode.php?id=1635

cool læser lige lidt på det og vender tilbage :O)

procedure TForm1.Button1Click(Sender: TObject);
var
  b1, b2: TBitmap;
  c1, c2: PByte;
  x, y, i,
  different: Integer; // Counter for different pixels
begin
  b1 := Image1.Picture.Bitmap;
  b2 := Image2.Picture.Bitmap;
  Assert(b1.PixelFormat = b2.PixelFormat); // they have to be equal
  different := 0;
  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 // 1, to 4, dep. on pixelformat
      begin
        Inc(different, Integer(c1^ <> c2^));
        Inc(c1);
        Inc(c2);
      end;
  end;
end;


Den skriver at der ikke er noget der hedder BytesPerPixel, hvordan skal det løses? Kan man bare plotte et tilfældigt tal ind?

Prøv at indsætte 4 i stedet for BytesPerPixel.

Ellers virker det her måske :o):

procedure TForm1.Button1Click(Sender: TObject);
var
  b1, b2: TBitmap;
  c1, c2: PByte;
  x, y,
  different: Integer; // Counter for different pixels
begin
  b1 := Image1.Picture.Bitmap;
  b2 := Image2.Picture.Bitmap;
  Assert(b1.PixelFormat = b2.PixelFormat); // they have to be equal
  different := 0;
  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
      if RGB(c1[x].rgbtRed,c1[x].rgbtGreen,c1[x].rgbtBlue) <> RGB(c2[x].rgbtRed,c2[x].rgbtGreen,c2[x].rgbtBlue) then
        Inc(different);
  end;
 
  if different = 0 then
    ShowMessage('Billederne er ens');
end;
(ikke testet)

den skriver: array type required
ved
if RGB(c1[x].rgbtRed,c1[x].rgbtGreen,c1[x].rgbtBlue) <> RGB(c2[x].rgbtRed,c2[x].rgbtGreen,c2[x].rgbtBlue) then

Synes denne er noget lettere :

FUNCTION AreEqual(CONST Image1, Image2:  TBitmap):  BOOLEAN;
    VAR
      m1:  TMemoryStream;
      m2:  TMemoryStream;
  BEGIN
    RESULT := FALSE;

    m1 := TMemoryStream.Create;
    TRY
      Image1.SaveToStream(m1);

      m2 := TMemoryStream.Create;
      TRY
        Image2.SaveToStream(m2);

        IF  m1.Size = m2.Size
        THEN RESULT := CompareMem(m1.Memory, m2.Memory, m1.Size)
      FINALLY
        m2.Free
      END
    FINALLY
      m1.Free
    END
  END;

har lige fået denne kode til at virke

procedure TForm1.Button1Click(Sender: TObject);
var
  b1, b2: TBitmap;
  c1, c2: PByte;
  x, y, i,
  different: Integer; // Counter for different pixels
begin
  b1 := Image1.Picture.Bitmap;
  b2 := Image2.Picture.Bitmap;
  Assert(b1.PixelFormat = b2.PixelFormat); // they have to be equal
  different := 0;
  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 4 - 1 do // 1, to 4, dep. on pixelformat
      begin
        Inc(different, Integer(c1^ <> c2^));
        Inc(c1);
        Inc(c2);
      end;
  end;
  if different = 0 then
      begin
      showmessage('billederne er ens...');
      end
      else
      begin
      showmessage('billederne er forskellige...')
      end;
end;

jo men størrelse på et billed kan jeg ikke bruge.. da billederne er lige store.. både i højde osv og i kb

det er ikke størrelsen på billede, men data'en i billede. Du kan jo prøve den, og så om du kan lide det. Det virker smukt...

ok tester det lige.. det lød bare som størrelsen :O)

kanont det virker også som om det kræver mindre og da jeg skal bruge dét i en timer gør det ikke noget det ikke æder hele brugerens cpu :O)

Ja den bruger ikke meget, har selv haft brugt det i et program af samme stand som du skriver du skal lave. Og der virker det uden problemer...