Übereinstimmung von Bildern

[robinWie]

Ich glaube ich habe die Lösung gefunden. Ich habe den Code neu geschrieben und die Sache mal ander angepackt

Delphi-Quellcode:

var
  hi,wi,p,n,a:integer;
  cc_1,cc_2: string;
begin
  p:=0; n:=0;
  for hi:=1 to IMG_1.Height do
    for wi:=1 to IMG_1.Width do
     begin
        try
         cc_1:=IntToStr(ColorToRGB(IMG_1.Canvas.Pixels[wi,hi]));
         cc_2:=IntToStr(ColorToRGB(IMG_2.Canvas.Pixels[wi,hi]));
         if cc_1=cc_2 then p:=p+1;
        except
          n:=n+1;
        end;
     end;
  a:=IMG_1.Height*IMG_1.Width;
  MainForm.Caption:=FloatToStrF(100/a*p,ffNumber,100,4)+'% Übereinstimmung';
end;

Ihr könnt ja mal einige Testdurchläufe machen, und gucken ob die ergebnisse stimmen könnten

[edit] Auf dieser art dauert das bei großen Bildern aber ganzschön lange [/edit]