iki resim arası pixsellerdeki renk farklılığı

[attempt34]

iki resim arasında ki piksellerdeki renk farklılığını nasıl bulabiliriz herhangi bir bilgisi olan varsa yardım ederseniz çok sevinirim

[fahrettin]

iki resmi pixel pixel krsilastirma basligi altinda soyle bir kod buldum belki bir fikir verebilir...

Kod: Tümünü seç

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; 

[MicroChip]

fahrettin abinin dediğine ek olarak;
ben daha önce bunu pascal da yapmıştım ama şimdi hatırladığım kadarı ile anlatayım:

iki resmi piksel piksel karşılaştırabilmek için RGB kodlarını alman ve bunları karşılaştırman gerekiyor.
delphi de yardım kısmında RGB kodlarını nasıl alacağın yazıyor.

[Misafir]

saygıdeğer Fahrettin Abi vermiş olduğunuz kodda

for i := 0 to BytesPerPixel - 1 do // 1, to 4, dep. on pixelformat
begin
Inc(different, Integer(c1^ <> c2^));
Inc(c1);
Inc(c2);

bulunan BytesPerPixel değişkenini benim derleyici(delphi7) tanımıyor. bu nedir acaba. bende resim üzerinde tarama yapacağım da kodda ki bu şeyi çözemedim. yadım ederseniz sevinirim.