Как сравнить две картинки??

[GSerg]

Нуууу, ты ещё FPU вспомни

Попробуй поюзать их напрямую (раз), да ещё чтобы твой код не зависел от их наличия в текущем процессоре (два) Потом позырь, сколько тактов занимает операция загрузки чего-нибудь длинного, и сравни с 1 тактом команды mov...
Так что данный вариант в данном примере не рассматривался

[tyomitch]

1. В .net-е же ничего напрямую нельзя сделать? Можно только надеяться, что JIT умный и их заюзает.
2. Они, безусловно, быстрее mov, иначе зачем бы их добавляли?


А RtlCompareMemory я уже в третий раз упоминаю...

[Nick Bober]

Уточняю... Нужно посто сравнить две картинки одинакового размера или найти одну картинку в другой тоже?
Накидал простой "bruteforce" поиск и сравнение... Какая силища! 2,5 тыс. пикселей в секунду! Ща наковыряю на плюсах... Может кто на АСМе параллельно сбацает ДЛЛку?

[ssslash]

Вот интересный примерчик для поиска абсолютно одинаковых картинок, нашел, кажется, на http://www.planet-source-code.com/. В него только сравнение еще по CRC добавить нада...

[_Мика_]

А что если опять таки сравнивать по точкам, но не все точки, а по rnd() срванивать, скажем точек 30, если хотя бы одна точка не совпадет, то все, кратинки разные!

[ssslash]

Так-то да, они разные...
а вот если совпадет, это еще не значит, что они одинаковые, скажем фотка с разницей в 5 секунд, где только выражение лица чуть-чуть поменялось или комар на нос сел

[_Мика_]

Ну......

[DTech]

Если это фотографии - то 30 точек сравнить - более чем достаточно, даже если сравнивать соседние кадры видеопотока, то они будут различаться. Какого характера пиктограммы?

[ssslash]

Так мы одинаковые ищем или похожие? Если одинаковые - то сравнивать размер файла, размер картинки в пикселях и потом по CRC, так, по-моему, и быстрее будет и надежнее, чем каждые 30 точек считать. Может я не прав, не спорю, поправьте
Кстати, примерчик, который я выкладывал, никто не смотрел? он по-моему, неоправданно медленно работает, когда с поиском по sub-директориям. Кто по-опытнее, подскажите, плиз, чего там не так...

[Nick Bober]

Вот ДЛЛка с функцией PicCompare
Если картинки одинаковые возвращает 0 (зеро), если разные - все остальное. Никаких проверок в ней нет, так что исключения надо ловить самостоятельно.

Код: Выделить всё

    <DllImport("cdll.DLL", EntryPoint:="PicCompare", _
    CharSet:=CharSet.Auto, ExactSpelling:=True, _
    CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function _
    PicCompare(ByVal SrcHbitmap As IntPtr, _
               ByVal DstHbitmap As IntPtr) As Integer
    End Function


Вызывать примерно так:

Код: Выделить всё

    Private Sub cmdFindASM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFindASM.Click
        Dim Dst As New Bitmap(pBoxDst.Image)
        Dim Src As New Bitmap(pBoxSrc.Image)
        Dim ret As Integer

        ret = PicCompare(Src.GetHbitmap, Dst.GetHbitmap)
        If ret = 0 Then
            MsgBox("Ok")
        Else
            MsgBox("Failed")
        End If
    End Sub


[Nick Bober]

Естественно, сообщайте о багах... Что смогу поправлю.

[Nick Bober]

Куда-то пропал прикрепленный файл... Или я чего-то не понимаю?

[ssslash]

"Куда-то пропал прикрепленный файл..."
А это его кто-то выкачал, а назад забыл вернуть ...
Будем тестить.

[Fedorfx]

Верните файл взад или вышлете на мыло
P/S а вообще, вначале речь шла о ТОЧНОМ сравнении картинок а не о нахождении похожести.

[Nick Bober]

Реализовано именно точное сравнение. И довольно быстро работает.
Насчет прикрепленного файла я конечно проглючил, кто бы мог подумать что незалогинившись его не видно...

[Nick Bober]

А вот так

Код: Выделить всё

Dim Dst As New Bitmap(pBoxDst.Image)
Dim Src As New Bitmap(pBoxSrc.Image)
Dim bmDst As New System.Drawing.Imaging.BitmapData
Dim bmSrc As New System.Drawing.Imaging.BitmapData
Dim i As Integer
Dim tmp As Integer

bmSrc = Src.LockBits(New Rectangle(0, 0, Src.Width - 1, Src.Height - 1), Imaging.ImageLockMode.ReadOnly, Src.PixelFormat)
bmDst = Dst.LockBits(New Rectangle(0, 0, Dst.Width - 1, Dst.Height - 1), Imaging.ImageLockMode.ReadOnly, Dst.PixelFormat)
'если картинки отличаются по размеру значит они разные
If bmSrc.Width <> bmDst.Width Or bmSrc.Height <> bmDst.Height Then
    MsgBox("Failed")
    Src.UnlockBits(bmSrc)
    Dst.UnlockBits(bmDst)
    Exit Sub
End If
'если у картинок разная "битность" значит они разные
If Src.GetPixelFormatSize(bmSrc.PixelFormat) <> Dst.GetPixelFormatSize(bmDst.PixelFormat) Then
    MsgBox("Failed")
    Src.UnlockBits(bmSrc)
    Dst.UnlockBits(bmDst)
    Exit Sub
End If
'длинна массива данных картинки в байтах
tmp = bmDst.Width * bmDst.Height * Dst.GetPixelFormatSize(bmDst.PixelFormat) / 8
'сравниваем
For i = 0 To tmp - 1
    'как только найдем различие - завершаем
    If Not Marshal.ReadByte(bmDst.Scan0, i) = Marshal.ReadByte(bmSrc.Scan0, i) Then
        MsgBox("Failed")
        Src.UnlockBits(bmSrc)
        Dst.UnlockBits(bmDst)
        Exit Sub
    End If
Next
'различий не обнаружено. вывод: картинки одинаковые
MsgBox("Ok")

Src.UnlockBits(bmSrc)
Dst.UnlockBits(bmDst)


это можно сделать на бейсике.

[tyomitch]

Ой, и тут биты лочат... Кашшмар

[Nick Bober]

Не вижу супротив энтого противопоказатиев!
Кстати, если кто не в курсе, о GDI+ неплохо пишут здесь:
http://www.rsdn.ru/article/gdi/gdiplus2mag.xml