Работа с TBitMap.

[Herly]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

pf24bit- это изображение использует 3 байта на пиксель

То есть в одном пикселе содержится 3 цвета?

[Alex Cones]

Если для Вас это - новость, то да. Любой цвет получается смешением в определенных пропорциях 3-х основных цветов - R[ed]+G[reen]+B[lue]. Цвет занимает по байту, следовательно - 24 бита.

[Herly]

1)

_B_out.PixelFormat:=pf24bit; //убрать, если изначально этот формат

А как определить какой у меня формат?
2)

for y:=0 to _B_out.Height-1 do begin
RowOut:= _B_out.ScanLine[y];
for x:=0 to _B_out.Width-1 do begin _s:=trunc((RowOut[x].rgbtRed+RowOut[x].rgbtGreen+RowOut[x].rgbtBlue)/3);
if _s>255 then _s:=255; if _s<0 then _s:=0;
RowOut[x].rgbtRed:=_s;
RowOut[x].rgbtGreen:=_s;
RowOut[x].rgbtBlue:=_s;
end;

Помогите понять что происходит в этом коде.
Т.к. эта процедура превращает картинку в чёрно белую здесь идёт смена цветного пикселя на аналогичный по оттенку серый пиксель.
А как зависит цвет от цифры?
Например переменная _s имеет тип integer, значит RowOut[x].rgbTRed это номер оттенка красного и так далее? Сколько всего оттенков и какова их тональность?

[ОДИНОЧЕСТВО В СЕТИ]

Сколько всего оттенков

16777216
подробнее
Может пора уже самому как-нибудь у Google поспрашивать

[Alex Cones]

Что есть серый пиксель? Серый пиксель, это когда все 3 составляющие равны между собой. Цветной пиксель - когда НЕ равны.
Пример:
R=255 G=0 B=0 - Красный пиксель
R=34 G=34 B=34 - Серый пиксель

В данном коде серый пиксель получают так: складывают все три составляющие:

(RowOut[x].rgbtRed+RowOut[x].rgbtGreen+RowOut[x].rgbtBlue

И делят на 3:

/3

Далее проверка на вылет за пределы цветовой гаммы:

if _s>255 then _s:=255; if _s<0 then _s:=0;

И присваиваем цветовые каналы обратно:

RowOut[x].rgbtRed:=_s;
RowOut[x].rgbtGreen:=_s;
RowOut[x].rgbtBlue:=_s;

Теперь это серое изображение.

А как определить какой у меня формат?

Если грузите изображение из TImage, то у вас pf32bit, потому, что TImage использует 4 байта на цвет. Если грузите с битмапа, у которого 24-битный формат, то у вас pf24bit.

А вообще читать ЗДЕСЬ.

[Herly]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

16777216
Может пора уже самому как-нибудь у Google поспрашивать

Я вчера у него поспрашивал, на что он выдавал однообразные сайты в которых инфы для тех кто пытается понять что-то с азов совсем немного было
Последние 2 вопроса, потому что вижу что уже надоел и потому что это последнее что мне не хватает для самостоятельного продвижения.
1) В главной проге вызывается процедура где _B_:TBitmap присваевается Image3.Picture.Bitmap
дальше выполняется процедура в которой я с вашей помощью немного разобрался, а после завершения сразу идёт image3.Repaint;
Так вот где идёт обратное добавление изменённого RowOut в _B_???

var x, y: Integer; RowOut: PRGBArray;
_s:integer;
begin
_B_out.PixelFormat:=pf24bit; //убрать, если изначально этот формат
for y:=0 to _B_out.Height-1 do begin
RowOut:= _B_out.ScanLine[y];
for x:=0 to _B_out.Width-1 do begin
_s:=trunc((RowOut[x].rgbtRed+RowOut[x].rgbtGreen+RowOut[x].rgbtBlue)/3);
if _s>255 then _s:=255; if _s<0 then _s:=0;
RowOut[x].rgbtRed:=_s;
RowOut[x].rgbtGreen:=_s;
RowOut[x].rgbtBlue:=_s;
end;
end
end;

2) Какие значения R,G,B должны быть чтобы пиксель был совершенно чёрным?(все 255 ?)

[ОДИНОЧЕСТВО В СЕТИ]

Какие значения R,G,B должны быть чтобы пиксель был совершенно чёрным?

все 0 10символов

[Sibedir]

Так вот где идёт обратное добавление изменённого RowOut в _B_???

Везде.
Дело в том что

property ScanLine[Row: Integer]: Pointer read GetScanLine;

ScanLine возвращяет указатель, следовательно после

RowOut:= _B_out.ScanLine[y];

любое обращение к элементам массива RowOut^ будет эквивалентно обращению к пикселам строки самого _B_out, до тех пор пока сам указатель RowOut не будет переопределен.

[Herly]

Теперь почти всё ясно, всем спасибо за помощь!
А прокоментируйтe ещё пожалуйста вот это

const
Pixels = MaxInt div SizeOf(TRGBTriple);
type
PRGBArray = ^TRGBArray;//зачем вот эта втрочка?
TRGBArray = array[0..Pixels-1] of TRGBTriple;

Как получается занчение Pixels? И что такое Triple?

[DomiNick]

Так... Много тут без меня написали уже.....
Попробую объяснить всё попонятнее...

Хотя Alex Cones уже практически всё объяснил... Вот только можно и не создавать класс, а обойтись присваиванием к уже существующему объекту (как и есть в первом посте), но это надо понимать что в таком случае получается...

Вот этим кодом можно загрузить картинку в Bitmap(как я понял это массив пикселей и их цветов).

Нет... TBitmap - это класс (грубо говоря много переменных, процедур и функций в одном флаконе)... Обёртка VCL, сделанная для удобства... ^__^
Но вы не "загружаете" картинку, а как бы делаете двойника... То есть у вас получалось, что Mbm и Image1.Picture.Bitmap - это одно и то же, а не копия (думаю так понятнее будет)...

Знаю что у TBitmap есть свойство ScanLine, которое возвращает линию пикселей из Bitmap.

Лучше рассматривать ScanLine как функцию, возвращающую указатель на начало заданной строки массива пикселей в памяти... %)

И можно ли присваивать картинку в битмап вот так?

Mbm:=Pimg1.Picture.Bitmap;

Вообще возможно (иначе бы Делфи ошибки выдавала), но тогда получается двойник... Если нужно копировать изображение - то именно как сказал Alex Cones:

Mbm.Assign(Pimg1.Picture.Bitmap);

А вот тут:

А вот пишу как вы сказали и выдаёт ошибочку(
...

у вас довольно распространённая опечатка... Бывает...

В процедуре задаётся вот такой формат, объясните что даёт такой формат.

Это как бы специальные константы для TBitmap, показывающие качество изображения (количество цветов)...
Основные:
pf32bit - True Color + Alpha Channel (изображение с полупрозрачностью)
pf24bit - True Color
pf8bit - 256 Colors
pf4bit - 16 Colors
pf1bit - 2 Colors

А как определить какой у меня формат?

Ну вот как-то так можно:

var Mbm: TBitmap;

...

Mbm:=TBitmap.Create;

...

Case Mbm.PixelFormat Of
      pf1bit:
            ShowMessage('PixelFormat is <pf1bit>');
      pf4bit:
            ShowMessage('PixelFormat is <pf4bit>');
      pf8bit:
            ShowMessage('PixelFormat is <pf8bit>');
      pf24bit:
            ShowMessage('PixelFormat is <pf24bit>');
      pf32bit:
            ShowMessage('PixelFormat is <pf32bit>');
      End;

...

Mbm.Free;

То есть в одном пикселе содержится 3 цвета?

Эм... В одном пикселе почти всегда 3 цвета - RGB, но там имеется ввиду другое: столько памяти занимает каждый пиксель (в битах)...

Если грузите изображение из TImage, то у вас pf32bit, потому, что TImage использует 4 байта на цвет. Если грузите с битмапа, у которого 24-битный формат, то у вас pf24bit.

Хм... TImage вроде подстраивается под загруженный файл...

любое обращение к элементам массива RowOut^ будет эквивалентно обращению к пикселам строки самого _B_out

Проще говоря - это получается прямой доступ к пикселю в памяти через указатель...

Теперь почти всё ясно, всем спасибо за помощь!
А прокоментируйтe ещё пожалуйста вот это

А фиг знает, что они там выдумали... У каждого свой способ, как что делать...
TRGBTriple вроде тип данных из модуля Windows.pas...

Я по-своему делал... Вот тут мой пример: > Ссыль < (правда там показано только с pf24bit)