Здравствуйте, stanislav1000, Вы писали:
S>Мне нужно сравнить BMP на содержание картинки!!! S>мне ето нужно для детектора движения S> буду очень благодарен
Это вроде разбирали в алгоритмах, там и ищи ответ.
Дельфи тут никаким боком не стала.
Здравствуйте, Dimonka, Вы писали:
D>Здравствуйте, stanislav1000, Вы писали:
S>>Народ помогите програмно сравнить две ВМP
D>Это в каком смысле? D>Можно сравнивать указатели на БМП , можно содержание картинки, можно части картинки, можно гистограммы. D>Поточнее задай вопрос.
Мне нужно сравнить BMP на содержание картинки!!!
мне ето нужно для детектора движения
буду очень благодарен
Здравствуйте, Dimonka, Вы писали:
D>Здравствуйте, stanislav1000, Вы писали:
S>>Мне нужно сравнить BMP на содержание картинки!!! S>>мне ето нужно для детектора движения S>> буду очень благодарен
D>Это вроде разбирали в алгоритмах, там и ищи ответ. D>Дельфи тут никаким боком не стала.
ето сравнение двух файлов на бейсике
помаги перевести на DEelphi
Private Sub Form_Load()
'замените пути файлов, которые вы хотите сравнить
Open "C:\1\convert1bmp.htm" For Binary As #1
Open "C:\1\convert2bmp.htm" For Binary As #2
issame% = True
If LOF(1) <> LOF(2) Then
issame% = False
Else
whole& = LOF(1) \ 10000
part& = LOF(1) Mod 10000
buffer1$ = String$(10000, 0)
buffer2$ = String$(10000, 0)
start& = 1
For X& = 1 To whole&
Get #1, start&, buffer1$
Get #2, start&, buffer2$
If buffer1$ <> buffer2$ Then
issame% = False
Exit For
End If
start& = start& + 10000
Next
buffer1$ = String$(part&, 0)
buffer2$ = String$(part&, 0)
Get #1, start&, buffer1$
Get #2, start&, buffer2$
If buffer1$ <> buffer2$ Then issame% = False
End If
Close
If issame% Then
MsgBox "Файлы идентичны", 64, "Info"
Else
MsgBox "Файлы НЕ идентичны", 16, "Info"
End If
End Sub
, можно содержание картинки, можно части картинки, можно гистограммы.
