Сравнение изображений

Posted by obzor under Delphi

Есть две картинки, практически одинаковых. Задача:
Вычесть одну картинку из другой. То есть:
Берем код цвета пикселя 1й картинки. Вычитаем из него аналогичный пиксель 2й картинки. Полученное значение рисуем в третьем TImmage.
И так полностью их сравнить.

После этого нужно на 3й (полученной) картинке найти области размером 20*20 с отличаем больше 200 точек и получить координаты этих областей.

Как это реализовать?

stlcrash

Работает ОЧЕНЬ медленно

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
bmp:TBitMap;
begin

    bmp := TBitmap.Create;
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
    BMP1.Width := Screen.Width;
    BMP1.Height := Screen.Height;
    BMP1.Picture.Assign(bmp);
    bmp.Free;

    application.ProcessMessages;
    sleep(1000);

    bmp := TBitmap.Create;
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
    BMP2.Width := Screen.Width;
    BMP2.Height := Screen.Height;
    BMP2.Picture.Assign(bmp);
    bmp.Free;

    BMP3.Width := Screen.Width;
    BMP3.Height := Screen.Height;

for x:=0 to bmp1.Width do
 for y:=0 to bmp1.Height do
    begin
      application.ProcessMessages;
      if bmp1.Canvas.Pixels[x,y]<>bmp2.Canvas.Pixels[x,y] then
      bmp3.Canvas.Pixels[x,y]:=bmp1.Canvas.Pixels[x,y]
      else bmp3.Canvas.Pixels[x,y]:=0;
    end;
end;

vlad1389

ScanLine используй. Будет быстрее.

тема на форуме

Похожие статьи

• Генерация и синтез звуковых волн
• Взять кадр из видео без остановки видео потока (BASSVIDEO)
• Работа с графическим планшетом wacom stu-300 средствами Делфи
• Авто переключение с трека на трек при воспроизведении (TMediaPlayer)
• Быстрое отражение изображения в Делфи
• как обрезать изоображение в формате jpeg
• Ластик для имиджа image1
• Громкость определенного момента времени
• Проигрывание видео, как сделать на весь экран?
• Как сделать плей лист для медиа плеера?