Feedback

VB - Bitmap Differenz Analyse

Veröffentlicht von am 15.11.2006
(1 Bewertungen)
Dieser Algorithmus führt eine Bitmap-Differenz-Analyse aus.
Das heißt es werden 2 Bilder miteinerander verglichen und die Unterschiede
zwischen diesen beiden Bildern werden in ein drittes Bild gezeichnet.
''' <summary>
''' Dieser Algorithmus führt eine Bitmap-Differenz-Analyse aus.
''' Das heißt es werden 2 Bilder miteinerander verglichen und die Unterschiede
''' zwischen diesen beiden Bildern werden in ein drittes Bild gezeichnet.
''' </summary>
''' <param name="Image1">Das Originalbild</param>
''' <param name="Image2">Das Bild was sich vom Original unterscheidet</param>
Public Function BmpDiff(ByRef Image1 As Bitmap, ByRef Image2 As Bitmap) As Bitmap
    Dim Pixel1, Pixel2 As Color
    Dim NewBitmap As New Bitmap(Image1.Width, Image1.Height)

    For y As Integer = 0 To Image1.Height - 1
        For x As Integer = 0 To Image1.Width - 1
            Pixel1 = Image1.GetPixel(x, y)
            Pixel2 = Image2.GetPixel(x, y)

            If Pixel1.ToArgb <> Pixel2.ToArgb Then
                NewBitmap.SetPixel(x, y, Pixel2)
            End If
        Next
    Next

    Return NewBitmap
End Function
Abgelegt unter Bitmap, Differenz, Analyse, Unterschied, Bild.

1 Kommentare zum Snippet

Tim Hartwig schrieb am 12.12.2006:
Hier habe ich auch sofort ein Beispiel bereitgestellt damit man sehen kann wie das ganze dann in der Praxis aussieht

1. Das Originalbild: <b><a href="http://home.arcor.de/khartak/dev/bda/A.JPG">A</a></b>
2. Das Bild mit Unterschiede: <b><a href="http://home.arcor.de/khartak/dev/bda/B.JPG">B</a></b>
3. Das Ergebnis: <b><a href="http://home.arcor.de/khartak/dev/bda/C.png">C</a></b>
 

Logge dich ein, um hier zu kommentieren!