Bilder vergleichen

[SCHNICO]

hi all,

ich suche nach einer möglichkeit zwei bilder zu vergeleichen? Kann mir da jemand helfen?

Danke im voraus!

[Luckie]

Kommt drauf an. Wann sind denn für dich Bilder gleich? Wenn sie Pixel für Pixel übereinstimmen? dann hol die Mit ScanLine jedes Pixel und vergleiche.

[dizzy]

Gibt zwei Varianten.

1) Du vergleichst die Dateien binär - d.h. sie müssen absolut gleich sein, um als gleich zu gelten.

2) Pixel-by-Pixel vergleichen, oder beser noch von jedem Pixel jeweils r-, g- und b-Anteil vergleichen. Dort kann man dann 2 Arten von Toleranz einbauen. Einmal eine per-Channel-per-Pixel Toleranz, das heisst wenn ein Pixel in einem Bild etwas dunkler ist, aber der Farbwert sonst recht gut hinkommt, werden sie als gleich angesehen. (gut bei Vergleichen von bmp's mit jpeg's). Oder man prüft auf absolute Pixelgleichheit und zählt mit viel viele Pixel gleich sind. Bei z.B. 80% Gleichheit gelten die Bilder als gleich.
Jetzt könnte man das auch kombinieren: Es wird tolerant by-Channel (by-Farbkanal = r, g, b) verglichen, und wenn die toleranz überschritten ist werden die ungleichen mitgezählt. Dann noch Verfahren 2 anwenden, und bei 90% toleranter Pixel-Channel-Gleichheit sind die Bilder dann gleich.
Mit den Schwellenwerten muss man ein wenig expeimentieren um verlässliche Ergebnisse zu erhalten.


gruss,
dizzy

[MathiasH]

harifg dürfte die Angelegenheit allerdings werden wenn dein code z.B. Ausschnitte oder verzerrungen auch zulassen soll. irgendwann hab ich ml ein bisschen sowas gebaut, das ging dann damit, dass er versucht hat formen zu erkennen (also formen >5% bildfläche). Das hab ich dann so gemacht, dass ich das bild erst sehr stark verwischt hab (besonders in Bezug auf einzelne pixel die stark heraustreten) Danach hab ich dann das bild abgetastetund versucht dreiecke reinzulegen. Haben diese dreiecke bei beiden bildern dann halbwegs übereingestimmt hat mein code gleich ausgegeben. war aber ein nettes Stück Arbeit...

[dizzy]

Das ist dann ja schon fast Vektorisierung...

Habe bei meinem Vergleicher auch zunächst getestet, od das Seitenverhältnis der zwei Probanden in etwa hinkommt, und dann hab ich das größere auf die Größe des kleines skaliert, und DANN tolerant pixelweise getestet. Bei Gleichheit hab ich auch das kleinere dann direkt in einen "zu löschen"-Ordner gepackt, damit man vorm endgültigen Löschen noch mal besser gucken kann. Auch ein Delete-Log hab ich mitgeführt, so dass man nachsehen kann, welche Dateien/Bilder als gleich gelten, und welches der Beiden quasi-gelöscht ist. Wollte noch eine direkte Vergleichsmöglichkeit in mein Programm bauen, ist aber mangels Zeit und wegen eines grundsätzlichen Problems mit TJPGImage+Threads zum Erliegen gekommen...


gruss,
dizzy

[SCHNICO]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,w,r,x : integer ;
  BitMap, BitMap2 : TBitMap;
  P,P2 : PByteArray;
begin
 BitMap := TBitMap.create;
 BitMap2 := TBitMap.create;
 BitMap.LoadFromFile('vorlage.bmp');     //Laden der ausgangsdatei
 BitMap2.LoadFromFile('screenshot.bmp'); //Laden der vergleichsdatei
 r := 0;
 w := 0;
for i := 0 to BitMap.Height - 1 do
begin
 P := BitMap.ScanLine[i];
 P2 := BitMap2.ScanLine[i];
 if p = p2 then
  r := r + 1   //anzahl gleicher Lines
  else
  w := w + 1;  //anzahl unterschiedlicher lines
end;
Label1.caption := InttoStr(r);
Label2.caption := IntToStr(w);
end;

Das war jetzt mein erster gehversuch mit ScanLine.
Aber selbst wenn ich zwei verschiedene Dateien (auflösung ist die selbe) nutze kommt immer das ergebnis bei raus das diese dateien an keiner stelle übereinstimmen. Kann mir da jemand etwas nachhelfen? Danke schon mal im voraus.

[toms]

hi,

Vielleicht hilft dir ja dies:

Delphi-Quellcode:

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;

(c) by SwissDelphiCenter

[shmia]

Zitat von SCHNICO:

P := BitMap.ScanLine[i];
P2 := BitMap2.ScanLine[i];
if p = p2 then
r := r + 1 //anzahl gleicher Lines
else
w := w + 1; //anzahl unterschiedlicher lines
end;

Das kann so nicht funktionieren.
P & P2 sind lediglich 2 Zeiger, die natürlich bei 2 Bitmaps immer
verschieden sind.

Deshalb:

Delphi-Quellcode:

   for j:= 0 to BitMap.Width - 1 do
   if P[j] = P2[j] then
      Inc(r)   //anzahl gleicher Pixel
   else
      Inc(w);  //anzahl unterschiedlicher Pixel

[himitsu]

p und p2 sind nur Zeiger auf die Array's (ScanLine's) und diese sind immer unterschiedlich, da die beiden Array's nie den selben Speicherplatz verwenden

Du muß also die Daten vergleichen - ich hoffe mal, dass es mit CompareMem geht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,w,r,x : integer ;
  BitMap, BitMap2 : TBitMap;
  P,P2 : PByteArray;
begin
 BitMap := TBitMap.create;
 BitMap2 := TBitMap.create;
 BitMap.LoadFromFile('vorlage.bmp');     //Laden der ausgangsdatei
 BitMap2.LoadFromFile('screenshot.bmp'); //Laden der vergleichsdatei
 r := 0;
 w := 0;
for i := 0 to BitMap.Height - 1 do
begin
 P := BitMap.ScanLine[i];
 P2 := BitMap2.ScanLine[i];
 if (Length(P) = Length(P2)) and CompareMem(P, P2, Length(P)) then
  r := r + 1   //anzahl gleicher Lines
  else
  w := w + 1;  //anzahl unterschiedlicher lines
end;
Label1.caption := InttoStr(r);
Label2.caption := IntToStr(w);
end;

notfalls kann man's auch Byteweise vergleichen:

Delphi-Quellcode:

for i := 0 to BitMap.Height - 1 do
begin
 P := BitMap.ScanLine[i];
 P2 := BitMap2.ScanLine[i];
 B := Length(P) = Length(P2);
 if B then 
  for i2 := 0 to Length(P) - 1 do
   if P[i2] <> P2[i2] then begin
    B := false;
    break;
   end;
 if B then
  r := r + 1   //anzahl gleicher Lines
  else
  w := w + 1;  //anzahl unterschiedlicher lines
end;

(Angaben ohne Waffen)

[add]
ich sollte mal aufhören was nebenbei zu machen http://FNSE.de/15C.gif

[Ricane]

Hi,

hab das eben gerade mal getestet..... leider funzt diese Zeile:

Length(P) Nicht....... imkompatible Typen..... ich überleg schon die ganzen Zeit, wie man das konvertieren könnte, bzw. wie man den die Länge sonst noch "bekommen" könnte.....


Weiss jemand mehr?!

Ricane