обработка изображения (BitBlt)

[XMalon]

Задача:
Есть два изображения одинаковой размерности - B1: TBitmap, B2: TBitmap. Необходимо получить изображение B3: TBitmap в котором:

I = 1..B1.Height
J = 1..B1.Width
if B1.Canvas.Pixels[I, J].Color = B2.Canvas.Pixels[I, J].Color
  then B3.Canvas.Pixels[I, J].Color := clBlack
  else B3.Canvas.Pixels[I, J].Color := B2.Canvas.Pixels[I, J].Color

(в котором на черном фоне отображаются только те пиксели изображения B2, которые на по цвету не равны соответствующим пикселям изображения B1)

Через доступ к пикселям (Canvas.Pixels[I, J].Color) я эту задачу решил. А вот с помощью функции BitBlt не получается. Хотя я думаю это возможно. Ведь если вызвать:

BitBlt(B3.Canvas.Handle, 0, 0, B2.Width, B2.Height, B2.Canvas.Handle, 0, 0, SRCCOPY)
BitBlt(B3.Canvas.Handle, 0, 0, B1.Width, B1.Height, B1.Canvas.Handle, 0, 0, SRCERASE)

то в B2 получится практически маска, по которой нужно обрезать B2. Но не пойму как...

[Stilet]

Но не пойму как...

А так как ты написал не катит? О_о

[phomm]

I и J перепутаны местами (параметры Pixels - ширина, потом высота), ошибка не проявилась скорее всего из-за квадратных картинок.
Я бы не стал возиться с битблитом, хотя немаловероятно, что через него (манипулируя режимами) можно решить задачу, я бы сделал через TBitmap.ScanLine - скорость высокая, поищите по форуму темы с его использованием.
Сканлайн по идее должен выиграть просто потому, что блитов надо будет 2 и/или более, и это несколько раз прогонять все пиксели (пусть и оптимизировано в кишках винды), а тут Вы точно знаете, что прогон один.

[Rin]

phomm посоветовал Вам правильный и быстрый вариант решения - scanline. C помощью тернарных растровых операций можно сделать так, как Вы хотите, но вам как ни крути понадобится маска. А для создания маски есть два пути : а) Paint, Paint.NET, Corel Draw, PhotoShop, etc ; б) опять же либо pixels[i,j] , либо scanline. То есть либо Вы будете постоянно для новой картинки, чтобы создать маску, открывать растровый редактор, либо ваша программа сама будет делать это за вас.