VPF::Быстро сравнение изображений - Форум программистов

Sh User

Дата 6.12.2004, 00:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Сабж...
Помогите с написание функции для очень быстрого сравнения изображений.
Экран делится на опр. кол-во частей. Далее требуется со скоростью примерно 10 раз в секунду проверить были ли изменения изображения в кажой части экрана.

Illusion Dolphin

Дата 7.12.2004, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

А хотя бы так, хотя на асме можно быстрее проверить, это p0s0l тебе может написать:

Код


Type
  TRGB=record
  b,g,r : byte;
  end;

    ARGB=array [0..1] of TRGB;
    PARGB=^ARGB;
    PRGB = ^TRGB;

function CompareImages(A,B : TBitmap) : Boolean;
var
  i,j : integer;
  p1,p2 : PARGB;
begin
 Result:=false;
 if A.Width<>B.Width then exit;
 if A.Height<>B.Height then exit;
 for i:=0 to A.Height-1 do
 begin
  p1:=A.ScanLine[i];
  p2:=B.ScanLine[i];
  for j:=0 to A.Width-1 do
  begin
   if not ((p1[j].r=p2[j].r) and (p1[j].g=p2[j].g) and (p1[j].b=p2[j].b)) then exit;
  end;
 end;
 Result:=true;
end;

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Sh User

Дата 7.12.2004, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Огромное спасибо! smile

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