Einzelnen Beitrag anzeigen

Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.479 Beiträge
 
Delphi 11 Alexandria
 
#27

AW: Zwei übereinander liegende Bilddateien trennen !!!

  Alt 26. Feb 2016, 22:12
Hatte jetzt nochmal beide Fotos in eine RAR-Datei gepackt.
Jetzt sind die Bilder zwar gleich groß und das Bild ist von der Positionierung der Pixel auch gleich, allerdings weichen die Werte für die einzelnen Pixel auch da voneinander ab, wo kein QR-Code hinterlegt ist. Das kann z.B. durch eine JPG-Komprimierung entstanden sein.

Zum Beispiel hat das erste Pixel einmal 224,225,193 und im anderen Bild 231,231,180.

Selbst wenn man jetzt eine Toleranz-Option einbaut

Delphi-Quellcode:
  w1 := (Byte (LineOrg[x][0]) + Byte (LineOrg[x][1]) + Byte (LineOrg[x][2])) Div 3;
  w2 := (Byte (LineNew[x][0]) + Byte (LineNew[x][1]) + Byte (LineNew[x][2])) Div 3;
  dif := Abs (w2-w1);

  if (dif > Tolerance) then begin
kommt man leider nur zu unbefriedigenden Ergebnissen, siehe Screenshot (hier mit Wert "5").
Miniaturansicht angehängter Grafiken
result2.jpg  
  Mit Zitat antworten Zitat