iki resmin pixellerini karşılaştırmak ?

[Trial_Cooder]

Elinizde bu konuyla ilgili çalışan bi kod varmı ? Varsa paylaşalırsanız sevinirim

[conari]

http://www.experts-exchange.com/Program ... 39155.html

[Trial_Cooder]

çalıştıramadım, kod hatalı sanırım...

[Trial_Cooder]

procedure TForm1.Button6Click(Sender: TObject);
var
x,y:integer;
fark:word;
oran:word;
begin
//ayarla;
for x:=1 to form1.b1.Width do
for y:=1 to form1.b1.Height do
begin
if form1.b1.Canvas.Pixels[x,y]=form1.b2.Canvas.Pixels[x,y] then
image1.Canvas.Pixels[x,y]:=form1.b1.Canvas.Pixels[x,y]
else
fark:=fark+1;
end;
oran:=100-round((100*fark)/(form1.b1.Width * form1.b1.Height));
label1.Caption :='Benzerlik Oranı %:' + inttostr(oran);
end;


bu kod ile sorunu çözdüm...