С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
 
Askarr24
0 / 0 / 0
Регистрация: 02.05.2015
Сообщений: 4
1

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

10.09.2018, 14:31. Просмотров 103. Ответов 4
Метки нет (Все метки)

Нужна помощь, надо разделить изображение по каналам RGB, чтобы получить в итоге три отдельных изображения. Потом нужно разделить из на пиксели.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.09.2018, 14:31
Ответы с готовыми решениями:

Программа деления изображения по каналам RGB
Помогите пожалуйста написать программу деления изображения по каналам RGB которая позволяет: 1)...

Сложение изображений по RGB каналам
Здравствуйте! Имеется три бинарных изображения, которые были предварительно разложены по RGB...

Как задать яркость пикселя по всем каналам RGB
Имеется картинка в pictureBox мне нужно сделать ее просветление путем прибавления(вычитания)...

Восстановление изображения по RGB
Здравствуйте, у меня есть картинка загруженная в массив структуры: struct r_g_b {float r, float g,...

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

4
krapotkin
3488 / 3081 / 1062
Регистрация: 14.04.2014
Сообщений: 14,881
Записей в блоге: 15
10.09.2018, 22:34 2
собственно каждый пиксель и является 1 байт R, 1 байт G и 1 байт B + 1 байт просто так, чтобы добить до 32 бит
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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);
1
Askarr24
0 / 0 / 0
Регистрация: 02.05.2015
Сообщений: 4
10.09.2018, 23:51  [ТС] 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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'
0
northener
пофигист широкого профиля
3429 / 2328 / 631
Регистрация: 15.07.2013
Сообщений: 13,796
11.09.2018, 02:00 4
Цитата Сообщение от Askarr24 Посмотреть сообщение
че то вообще не догоняю
Эт точно. Читать учебник не пробовали?
0
krapotkin
3488 / 3081 / 1062
Регистрация: 14.04.2014
Сообщений: 14,881
Записей в блоге: 15
11.09.2018, 06:13 5
в примерах, а это именно ПРИМЕР
требуется разобрать, что имеется в виду, а потом уже прикручивать все, заменяя на свои переменные

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

более того, если вы будете делать три картинки, деля исходную по слоям, то вам нужно будет еще и заполнять все три
для начала - попиксельно. что-то типа
Delphi
1
2
3
4
if r<>0 then
bitmapR.canvas.pixels[x,y] := clRed 
else
bitmapR.canvas.pixels[x,y] := clWhite
0
11.09.2018, 06:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.09.2018, 06:13

Преобразование изображения из RGB в CMYK
При переводе изображения из RGB в CMYK не получается записать рассчитанные для CMYK значения в...

Гистограмма изображения по компонентам RGB
Здравствуйте! Пытаюсь построить гистограмму по трём цветовым компонентам из исходного изображения....

Коррекция цвета rgb изображения
Подскажите пожалуйста как в matlab можно сделать коррекцию цвета цветного изображения без перевода...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru