Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сравнение двух картинок, как реализовать сравнение двух изображей 
:(
    Опции темы
fridrih777
Дата 24.12.2007, 11:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 23.12.2007

Репутация: нет
Всего: нет



Здрасте. Вопросик появился.Как можно сравнить две картинки на цветовую гамму. Т.е. к примеру  smile и   smile  как сделать чтобы программа поняла что это разные картинки. У меня пока никаких идей.  Помогите кто чем сможет. Заранее спасибо! smile 
PM MAIL   Вверх
Alexeis
Дата 24.12.2007, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



Цитата(fridrih777 @  24.12.2007,  11:13 Найти цитируемый пост)
как сделать чтобы программа поняла что это разные картинки. 

  Сравни попиксельно. А вообще у них разный размер, они хотябы по этому разные smile .


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
fridrih777
Дата 24.12.2007, 11:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 23.12.2007

Репутация: нет
Всего: нет



Цитата(Alexeis @ 24.12.2007,  11:23)

   А вообще у них разный размер, они хотябы по этому разные smile .

Ну это я просто пример привёл.

А по пиксельно это т.е. к примеру у меня 2 изображения 320*240 то программа должна сравнить каждый пиксель? тяжко!!! Хорошо а как прмерно это можно реализовать?Спасибо!
PM MAIL   Вверх
THandle
Дата 24.12.2007, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



fridrih777, через Canvas.Pixels.
PM   Вверх
fridrih777
Дата 24.12.2007, 12:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 23.12.2007

Репутация: нет
Всего: нет



 smile 
PM MAIL   Вверх
Alexeis
Дата 24.12.2007, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



Цитата(THandle @  24.12.2007,  12:00 Найти цитируемый пост)
через Canvas.Pixels. 

  Это слишком медленно. BitMap.Scanline[] - возвращает указатель на строку битмапки.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
THandle
Дата 24.12.2007, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Alexeis, согласен. Но это, имхо, сложнее.
PM   Вверх
Alexeis
Дата 24.12.2007, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



Цитата(fridrih777 @ 24.12.2007,  12:48)
smile

Код

procedure TForm1.FormCreate(Sender: TObject);
var
  b1, b2 : TBitmap;
  l : Integer;
begin
  b1 := TBitmap.Create;
  b2 := TBitmap.Create;
  b1.Width  := 370;
  b2.Width  := 370;
  b1.Height := 370;
  b2.Height := 370;
  b1.PixelFormat := pf32bit;
  b2.PixelFormat := pf32bit;
  l := b1.Width * b1.Height * 4; //размер битмапки

  //если строчку закоментировать то будут одинаковыми
  b1.Canvas.Pixels[17, 34] := clRed;
  //b1.ScanLine[b1.Height-1] - начало растра в памяти
  if CompareMem(b1.ScanLine[b1.Height-1],
                b2.ScanLine[b1.Height-1], l)
  then
    ShowMessage('одинаковые')
  else
    ShowMessage('различные');

  b1.Free;
  b2.Free;
end;


Добавлено через 2 минуты и 50 секунд
 b2.PixelFormat := pf32bit; - так мы конвертируем битмап в дибсекцию, иначе не видать нам прямого доступа к памяти картинки.
CompareMem - сравнивает побитно 2 участка памяти.

Добавлено через 6 минут и 36 секунд
THandle, Pixels - это мелкомягкий изврат поддержанный борладном, который годиться только для smile 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
casinosoftguru
Дата 29.12.2008, 05:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.12.2008

Репутация: нет
Всего: нет



1. Я археолог  smile 
2. Копаю по сабжу, сам юзаю этот метод, идеально работает для идеально точных изображений, а я ищу процентное сравнение

Код

function BitmapsAreEqual(const b1, b2: TBitmap): Boolean;
 var
   ms1: TMemoryStream;
   ms2: TMemoryStream;
 begin
   Result := False;
   ms1    := TMemoryStream.Create;
   try
     b1.SaveToStream(ms1);

     ms2 := TMemoryStream.Create;
     try
       b2.SaveToStream(ms2);
       if ms1.Size = ms2.Size then
         // Compare the streams, Streams vergleichen:
        Result := CompareMem(ms1.Memory, ms2.Memory, ms1.Size)
       finally
         ms2.Free
     end
   finally
     ms1.Free
   end
 end;




Это сообщение отредактировал(а) casinosoftguru - 29.12.2008, 05:26
PM MAIL   Вверх
Alexeis
Дата 29.12.2008, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



Цитата(casinosoftguru @  29.12.2008,  04:25 Найти цитируемый пост)
2. Копаю по сабжу, сам юзаю этот метод, идеально работает для идеально точных изображений, а я ищу процентное сравнение

  Процент подразумевает соотношение двух параметров, т.е. это относительная характеристика. Отношение чего к чему нужно получить? Есть разные методики анализа, попиксельные, можно разложить по кусочкам в фурье и сравнивать ненулевые коэффициенты, можно воспользоваться вейвлет преобразованием и сравнивать коэффициенты вейвлет преобразования, можно задействовать нейронные сети для анализа похожести фрагментов. 
  Вариантов много, они разные по сложности, эффективности, надежности. С разных сторон характеризуют похожесть.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Predator_2004
Дата 6.1.2009, 01:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 26.4.2007

Репутация: нет
Всего: нет



Есть еще вариант: если файлы имеют равный объем, тогда открыть оба файла в байтовом режиме и сложить байты обоих файлов по модулю два. Если на выходе ноль-файлы равны.
PM MAIL   Вверх
restor999
Дата 6.1.2009, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 6.1.2009

Репутация: нет
Всего: нет



Код

procedure TForm1.FormCreate(Sender: TObject);
var
  b1, b2 : TBitmap;
  l : Integer;
begin
  b1 := TBitmap.Create;
  b2 := TBitmap.Create;
  b1.Width  := 370;
  b2.Width  := 370;
  b1.Height := 370;
  b2.Height := 370;
  b1.PixelFormat := pf32bit;
  b2.PixelFormat := pf32bit;
  l := b1.Width * b1.Height * 4; //размер битмапки
  //если строчку закоментировать то будут одинаковыми
  b1.Canvas.Pixels[17, 34] := clRed;
  //b1.ScanLine[b1.Height-1] - начало растра в памяти
  if CompareMem(b1.ScanLine[b1.Height-1],
                b2.ScanLine[b1.Height-1], l)
  then
    ShowMessage('одинаковые')
  else
    ShowMessage('различные');
  b1.Free;
  b2.Free;
end;



Что то я не пойму!  smile  smile   smile  я ставлю oncreate form1 туды кидаю этот код, и шо он сравнивает??? форму?  Дайте лучше пример(если я на форму ставлю 2 компонента Image, две кнопки, (одна к одному компоненту другая к другому(с помощью кнопок загружаю картинки в эти компоненты) ставлю на форму третью кнопку(вот её свойство и должно быть(СРАВНИВАТЬ )(эти две картинки!))) ПОДСКАЖИТЕ, КАК ЭТО СДЕЛАТЬ!!! ПОЖАЛУЙСТА!

PM MAIL   Вверх
Alexeis
Дата 6.1.2009, 19:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



restor999, это же пример. Он тупо создает 2 пустых битмапа в одном рисует точку по серединке, а дальше сравнивает растры в памяти. 
Код

  if CompareMem(b1.ScanLine[b1.Height-1],
                b2.ScanLine[b1.Height-1], l)
  then
    ShowMessage('одинаковые')
  else
    ShowMessage('различные');


Если точка есть то пишет "различные", если точку не ставлю, то пишет "одинаковые".

Для реальных картинок нужно сначала загрузить, а затем точно также сравнить при помощи CompareMem



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
restor999
Дата 6.1.2009, 19:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 6.1.2009

Репутация: нет
Всего: нет



Alexeis, а можешь подсказать код на 2 компонента Image (обработчик события нажатие кнопки(onclick)( Что бы он картинки в двух этих компанентах сравнивал)??? подскажи код пожалуйста! 
PM MAIL   Вверх
Proxin
Дата 7.3.2010, 10:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3



о, спасибо. помогли.

Это сообщение отредактировал(а) Proxin - 7.3.2010, 10:34
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0725 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.