Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Сравнение двух картинок

Автор: fridrih777 24.12.2007, 11:13

Здрасте. Вопросик появился.Как можно сравнить две картинки на цветовую гамму. Т.е. к примеру smile

как сделать чтобы программа поняла что это разные картинки. У меня пока никаких идей. Помогите кто чем сможет. Заранее спасибо!

Автор: Alexeis 24.12.2007, 11:23

Цитата(fridrih777 @ 24.12.2007, 11:13

)

как сделать чтобы программа поняла что это разные картинки.

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

Автор: fridrih777 24.12.2007, 11:27

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

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

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

А по пиксельно это т.е. к примеру у меня 2 изображения 320*240 то программа должна сравнить каждый пиксель? тяжко!!! Хорошо а как прмерно это можно реализовать?Спасибо!

Автор: THandle 24.12.2007, 12:00

fridrih777, через Canvas.Pixels.

Автор: fridrih777 24.12.2007, 12:48

Автор: Alexeis 24.12.2007, 12:51

Цитата(THandle @ 24.12.2007, 12:00

)

через Canvas.Pixels.

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

Автор: THandle 24.12.2007, 12:53

Alexeis, согласен. Но это, имхо, сложнее.

Автор: Alexeis 24.12.2007, 13:03

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

Код


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

Автор: casinosoftguru 29.12.2008, 05:25

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;

Автор: Alexeis 29.12.2008, 10:47

Цитата(casinosoftguru @ 29.12.2008, 04:25

)

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

Автор: Predator_2004 6.1.2009, 01:26

Есть еще вариант: если файлы имеют равный объем, тогда открыть оба файла в байтовом режиме и сложить байты обоих файлов по модулю два. Если на выходе ноль-файлы равны.

Автор: restor999 6.1.2009, 18:41

Код


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

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

Автор: Alexeis 6.1.2009, 19:02

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

Код


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

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

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

Автор: restor999 6.1.2009, 19:19

Alexeis, а можешь подсказать код на 2 компонента Image (обработчик события нажатие кнопки(onclick)( Что бы он картинки в двух этих компанентах сравнивал)??? подскажи код пожалуйста!

Автор: Proxin 7.3.2010, 10:33

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

Автор: x128 8.3.2010, 12:50

В прикрепленном файле пример, я его писал для поиска одного изображения на другом, но суть не сильно меняется. В примере есть возможность задавать ошибку соответствия.