[Tool] Bitmap Compare - Bitmaps vergleichen mit Scanline

[turboPASCAL]

Bitmap Compare - Bitmaps vergleichen mit Scanline

Ausgehend von diesem Thema Bilder vergleichen -> optimiertes verfahren gesucht! habe ich ein kleines Programm geschrieben um Bitmaps zu vergleichen.

Bitmap Compare vergleicht ein Original -Bitmap mit einem zweiten Bitmap und zeigt die Veränderungen an.

Das Vergleichen von zwei Bildern z.B. 5200 x 2600 auf einem AMD 2000 MHz braucht ca. 0,5 Sekunden.12

Preview

[shmia]

Nettes Spielprogramm. :thumb:

Ich habe noch ein weiteres Verfahren namens Differenz-Image hinzu genommen.

Delphi-Quellcode:

        if RadioButton3.Checked then // Vorsicht bei zu vielen Pixeln !
        begin
          with PrevImage.Picture.Bitmap.Canvas do
            Ellipse(x - 5, y - 5, x + 1 + 5, y + 1+ 5);
        end
        else if RadioButton4.Checked then  // neu
        begin
           PInteger(P3)^ := PInteger(P2)^-PInteger(P)^;
        end;

Man braucht nicht bei jedem Pixel ein Application.ProccessMessages ausführen:

Delphi-Quellcode:

       if (x and 15)=0 then
        // wegen grossen Bildern und klienen PC's :-) alle 16 Pixels
        Application.ProcessMessages;

Bei der Methode Pixel markieren 2 ergibt dies eine Geschwindigkeitssteigerung von Faktor 14 !!

Wenn man in der inneren Schleife nicht die RadioButtons prüft, sondern eine lokale Integer-Variable
gewinnt man zusätzlich an Zeit:

Delphi-Quellcode:

var
   mode : Integer;
begin
  if RadioButton1.Checked then
    mode := 0
  else if RadioButton2.Checked then
    mode := 1
  else if RadioButton3.Checked then
    mode := 2
  else if RadioButton4.Checked then
    mode := 3;

   ...
  // 
  case mode of
  0:

[turboPASCAL]

Hi, shmia das war die erste Version, eigentlich sollte sie viel einfacher sein, ich konnte es aber wieder mal nicht lassen. :wink:

Ich bin gerade dabei das Programm umzuschreiben (auch wegen der Sachen in der For- Schleife).
Die Differenz-Image Option werde ich mit aufnehmen (gute Idee), und das mit ProcessMessages ist schon geändert.

Ich habe da leider noch ein Problem an dem ich ein wenig verzweifele, beim Abfragen eines Bitmaps ob es Leer ist stützt mein Programm ohne Fehlermeldung ab. Nur manchmal, nicht immer.

Die Abfrage erfolgt durch:

Delphi-Quellcode:

MainBitmap := TBitmap.Create;
...
if MainBitmap.Empty then ...

So ist es doch aber richtig oder ? Ich denke mal dass das die Stelle ist wo es passiert. :gruebel:

[Olli]

Zitat:

Zitat von shmia

Ich habe noch ein weiteres Verfahren namens Differenz-Image hinzu genommen.

Man kann auch Gradient sagen :zwinker:

[turboPASCAL]

So, habe mal ein Update gemacht. (1. Beitrag)

Jetzt gibt es 5 + 1 Möglichkeit sich die Unterschiede von 2 Bildern anzeigen zu lassen.
Mit einem Doppelklick auf das Bild kann man es dann speichern.

Außerdem habe ich mir erlaubt, noch zwei Test Bilder zum Testen bereitzustellen.

:gruebel: Wenn jemand herausbekommt warum sich das Programm immer noch (nur manchmal) verabschiedet,
macht mich bitte schlau. :wink:

[Clane]

hey ich verweise mal hier auf diese frage von mir http://www.delphipraxis.net/internal...1ab19d012dfd5e

könntest du mir bitte erklären wie ich da 2 bilder mir deinem code vergleichen kann ?? wäre echt cool