Сравнение картинок

[Crucian]

Здравствуйте, задача такая:
Нужно сравнить две каритинки как можно быстрее. Первая идея, что пришла на ум - поместить их в байтовый массив и сравниеть массивы. Прошу подсказать как помещается картинка в формате gif либо bmp в байтовый массив. Либо подсказать более эффективный метод. Спасибо

[_Engine_]

Картинка, как и любой другой файл помещается в массив байт функциями чтения из файла. Например BlockRead. Примеры по использованию есть в справке

[KORN]

можно еще проще и быстрее

var
  s, f: TmemoryStream;
begin
  s:=TmemoryStream.create;
  f:=TmemoryStream.create;
  s.LoadFromFile('FileName1');
  f.LoadFromFile('FileName2');
  if comparemem(s.memory, f.memory, s.size) then  // побайтовое сравнение всего файла
  showmessage('файлы одинаковы')
  else
  showmessage('файлы не одинаковы')
  s.free;
  f.free;
end;

[Crucian]

Разобрался. Спасибо за помощь.)

[StartMis]

Подскажите, а можно таким же легким способом сравнить mp3 файлы

[mutabor]

Сообщение от StartMis

Подскажите, а можно таким же легким способом сравнить mp3 файлы

А какая разница? Можно конечно.

[Роман Радер]

так можно сравнивать ЛЮБЫЕ файлы на идентичность
но нужно помнить, что одинаковые фотографии одна в jpeg, другая - в gif дадут ответ что они разные - там даже сигнатура другая.

[leshiy1000]

А как можно переменной f сприсвоить изображение которое толькочто нарисовано в компоненте TImage?

[artemavd]

А как можно переменной f сприсвоить изображение которое толькочто нарисовано в компоненте TImage?

var
 f: TBitmap;
begin
...
f.Picture.Bitmap:=Form1.Image1.Picture.Bitmap;
...
end;