Замена некоторых пикселей в изображении

[acid_bmstu]

Просидел всю ночь так и не смог разобраться, может кто может подсказать
Суть проблемы в следующем:
1. есть 2 изображения 1000*1000*24b jpeg надо определенные пиксели одного изображения заменить на соответствующие пиксели другого изображения
т е изначально на экран выводится первое изображение а при нажатии кнопки определенные пиксели меняются и на экране мы должны видеть новое изображение которое мы в дальнейшем сможем сохранить при нажатии другой кнопки
это надо реализовывать при помощи TImage или TPaintBox?
2. как проверить что пиксель определенного изображения является черным?

p.s. в делфи я не силен поэтому был бы очень признателен если кто нибудь дал бы развернутый ответ как это реализовать

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
 for i:=0 to Image1.Width-1 do
  for j:=0 to Image1.Height-1 do
  if Image1.Canvas.Pixels[i,j]=$FFFFFF then Image1.Canvas.Pixels[i,j]:=clred;
end;

меняем чёрный на красный
пользуйтесь поиском такой вопрос уже был недавно.
Ну а как сохранить вы наверно знаете

[acid_bmstu]

Я пробовал так делать но у меня выдает ошибку
Смог добить нужного результата только так
Но тут у меня возникло сразу несколько проблем
1. картинки приходится брать 500 на 500 пикселей иначе при выводе изображение выходит за пределы экрана (т е я хотел чтоб программа работала с изображениями побольше)
2. проходит какое то время пока он выводит новое изображение, это он так долго читает картинки или это время уходит на выполнение цикла?
3. может можно это как то по другому реализовать?
4. я пробовал просто сохранять изображение через BT.SaveToFile(); чтоб потом просто открыть в TImage но программа выдает ошибку

var
  Form1: TForm1;
  BT,BT1,BT2:TBitMap;
  Color:TColor;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
     JP,JP1,JP2: TJPEGImage;
     c:TColor;
begin
 Form1.windowState:= wsMaximized;
 form1.FormStyle :=fsstayOnTop;
 JP:=TJPEGImage.Create;
 JP.LoadFromFile('D:\PK-701.jpg');
 BT:=TBitMap.Create;
 BT.Assign(JP);
 // вывод первоначального изображения
 Canvas.Draw(0, 0, BT);

 JP1:=TJPEGImage.Create;
 JP1.LoadFromFile('D:\PK-701 копия.jpg');
 BT1:=TBitMap.Create;
 BT1.Assign(JP1);

 JP2:=TJPEGImage.Create;
 JP2.LoadFromFile('D:\Rosa_Tea_Normal.jpg');
 BT2:=TBitMap.Create;
 BT2.Assign(JP2);
  for i:=0 to BT.Width do
  for j:=0 to BT.Height do
  if BT1.Canvas.Pixels[i,j]<>$ffffff then BT.Canvas.Pixels[i,j]:=BT2.canvas.Pixels[i,j];
  // вывод измененного изображения
  Canvas.Draw(0, 0, BT);
end;

[mihali4]

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

...
  if Image1.Canvas.Pixels[i,j]=$FFFFFF then Image1.Canvas.Pixels[i,j]:=clred;
...

меняем чёрный на красный

Не-е-ет... Это вы белый на красный меняете
Код черного - одни нолики...

[SERG1980]

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

Не-е-ет... Это вы белый на красный меняете
Код черного - одни нолики...

Да ступил

[mutabor]

1. картинки приходится брать 500 на 500 пикселей иначе при выводе изображение выходит за пределы экрана (т е я хотел чтоб программа работала с изображениями побольше)

PaintBox в ScrollBox. На канву PaintBox'a выводишь изображение.

2. проходит какое то время пока он выводит новое изображение, это он так долго читает картинки или это время уходит на выполнение цикла?

Нет, картинки грузятся быстро. А вот доступ к отдельным пикселям происходит довольно медленно. Ускорить можно читая битмап строками, с помощью ScanLine.

3. может можно это как то по другому реализовать?

Можно, ScanLine.

4. я пробовал просто сохранять изображение через BT.SaveToFile(); чтоб потом просто открыть в TImage но программа выдает ошибку

Ошибки быть не должно, если объект BT на данный момент существует. В скобках нужно имя файла указать, с расширением bmp. Когда и какую ошибку выдает программа?

[3D Hunter]

ошибка возможна, если изображение BT2 имеет меньшие размеры, чем BT1. Тогда получается выход за пределы диапазона массива в цикле. А чтобы картинка на всю форму влезала, можно ее сжать по размерам (Canvas.StretchDraw)

[BattleNick]

Господа, всем доброго времени суток! У меня проблема немного похожа, но в моем случае мне нужно узнать количество черных пикселей и количество белых, причем желательно с использованием scanline. Если кто может - очень прошу помоч!

[acid_bmstu]

Сообщение от 3D Hunter

ошибка возможна, если изображение BT2 имеет меньшие размеры, чем BT1. Тогда получается выход за пределы диапазона массива в цикле. А чтобы картинка на всю форму влезала, можно ее сжать по размерам (Canvas.StretchDraw)

Нет размеры картинок идентичные
Ошибка возникала когда я сохранял файл с расширением .jpg а потом пытался тут же его открыть в TImage, чтобы изображение не выходило за пределы рабочей зоны, потом просто задал сохранение с разрешением .bmp и ошибка исчезла