VB.Net 中的图像比较

Question

在阅读了本网站上有关图像比较主题的许多相关帖子后，我想我会尝试在每个图像上实现 PCA，以查看图像是否“相似”，但我不确定如何从我的图像中获取数据 - 是否有一个 VB 函数可以用来将图像转换为字节数组或其他内容以便比较图像？或者比较两个图像的更简单的方法（应该是黑白的，但它们会被扫描，v.小图像）

非常感谢， 贝基

Answer 1

另外，这是一篇有用的文章：这个人拍摄了两张图像，比较了它们，然后创建了第三张图像，以图形方式表示两者之间的差异。这似乎是描述相似性的一种很好的视觉方式。

Answer 2

使用 roygbiv 的答案来查看它们是否相同非常容易。要了解它们的相似程度相当复杂。如果这些是扫描文档，它们实际上永远不会完全相同。投资第三方选项可能是值得的。我们在扫描过程中使用 Accusoft 和 TiS。

也就是说，有一些潜在的重复 问题。

Answer 3

你可以使用一些东西：

Public Class MyClass
    Shared  Sub Main(ByVal args() As String)
       Byte() mydata = File.ReadAllBytes("C:\MyFile.jpg")
    End Sub
End Class

Answer 4

所以，这就是我想出的办法。我没有单独比较像素，而是使用了根据文件内容提供的哈希算法。然后它比较返回的散列的各个字节。在我的测试中，它的返回速度是比较 1152 X 720 和 101KB 大的灰度位图图像的各个像素的速度的两倍。

这是代码：（

编辑是因为我第一次发布代码时一切看起来都很奇怪。删除了注释。）

Public Shared Function CompareTwoImageHashes(ByVal pathToFirstImage As String, ByVal pathToSecondImage As String) As Boolean

    Dim firstImage As FileInfo = New FileInfo(pathToFirstImage)
    Dim secondImage As FileInfo = New FileInfo(pathToSecondImage)

    If Not firstImage.Exists Then
        Throw New ArgumentNullException("pathToFirstImage", "The file referenced by the path does not exist!")
    End If

    If Not secondImage.Exists Then
        Throw New ArgumentNullException("pathToSecondImage", "The file referenced by the path does not exist!")
    End If

    Dim hashingTool As SHA256Managed
    Dim imagesMatch As Boolean = True

    Try

        Using firstImageStream As New FileStream(firstImage.FullName, FileMode.Open)
            Using secondImageStream As New FileStream(secondImage.FullName, FileMode.Open)

                hashingTool = SHA256Managed.Create()

                Dim imageOneHash As Byte() = hashingTool.ComputeHash(firstImageStream)
                Dim imageTwoHash As Byte() = hashingTool.ComputeHash(secondImageStream)

                hashingTool.Clear()

                If (imageOneHash.Length = imageTwoHash.Length) Then

                    For length As Integer = 0 To (imageOneHash.Length - 1)

                        If imageOneHash(length) <> imageTwoHash(length) Then
                            imagesMatch = False

                            Exit For
                        End If

                    Next

                    CompareTwoImageHashes = imagesMatch
                Else
                    CompareTwoImageHashes = False
                End If

            End Using
        End Using

    Catch ex As Exception

        Console.WriteLine("Error during compare: {0}", ex.Message)

    End Try

End Function

Answer 5

用于检索图像的像素数据；您可以使用 Bitmap.GetPixel 或Bitmap.LockBits，这将为您提供 BitmapData（链接有示例代码） 类作为回报。