Разделение изображения по каналам RGB

@Askarr24 · Регистрация: 02.05.2015

Author24 — интернет-сервис помощи студентам

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

@krapotkin · 10.09.2018, 22:34

собственно каждый пиксель и является 1 байт R, 1 байт G и 1 байт B + 1 байт просто так, чтобы добить до 32 бит

Delphi

procedure GetRGB(Col: TColor; var R, G, B: Byte);
var
  Color: $0..$FFFFFFFF;
begin
  Color := ColorToRGB(Col);
  R := ($000000FF and Color);
  G := ($0000FF00 and Color) Shr 8;
  B := ($00FF0000 and Color) Shr 16;
end;
 
var
  ColNumb: TColor;
  R, G, B: Byte;
begin
  ColNumb := Image.Canvas.Pixels[X, Y]; {The image can't be a JPG}
  GetRGB(ColNumb, R, G, B);

@Askarr24 · 10.09.2018, 23:51 **[ТС]**

Delphi

procedure GetRGB(Col: TColor; var R, G, B: Byte);
var
  Color: $0..$FFFFFFFF;
begin
  Color := ColorToRGB(Col);
  R := ($000000FF and Color);
  G := ($0000FF00 and Color) Shr 8;
  B := ($00FF0000 and Color) Shr 16;
end;
 
var
  ColNumb: TColor;
  R, G, B: Byte;
begin
  ColNumb := TImage.Canvas.Pixels[X, Y]; {The image can't be a JPG}
  GetRGB(ColNumb, R, G, B);

ругается на canvas/ [Error] Unit1.pas(42): Method identifier expected
че то вообще не догоняю.
и еще в место image просит TImage, и когда создаю вторую Img2 то он не становиться Timage2, а остается Timage
Еще пишет: [Error] Unit1.pas(42): Undeclared identifier: 'X'

@northener · 11.09.2018, 02:00

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

че то вообще не догоняю

Эт точно. Читать учебник не пробовали?

@krapotkin · 11.09.2018, 06:13

в примерах, а это именно ПРИМЕР
требуется разобрать, что имеется в виду, а потом уже прикручивать все, заменяя на свои переменные

тут показано, как у некоего канваса взять pixels
если ваш канвас - у image1 - то так и пишите Image1.Canvas.Pixels[x,y]
где X, Y - тоже некие интуитивно понятные переменные, которые возможно у вас должны будут существовать
а как еще вам показать? ваших переменных что-то не видно

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

Delphi

if r<>0 then
bitmapR.canvas.pixels[x,y] := clRed 
else
bitmapR.canvas.pixels[x,y] := clWhite

@Askarr24 0 / 0 / 0 Регистрация: 02.05.2015 Сообщений: 4
		1
	Delphi 6-7 Разделение изображения по каналам RGB 10.09.2018, 14:31. Показов 1304. Ответов 4 Метки нет (Все метки) Нужна помощь, надо разделить изображение по каналам RGB, чтобы получить в итоге три отдельных изображения. Потом нужно разделить из на пиксели. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	11.09.2018, 02:00	4
	Сообщение от Askarr24 че то вообще не догоняю Эт точно. Читать учебник не пробовали? 0

	11.09.2018, 06:13