| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Считать попиксельно яркость градиента серого и записать в массив [D6, Win95/98, NT4, Win2k]

FreeSky ©   (2003-09-18 12:25:00) 

Народ подскажите пожалуйста функцию, которая считывает яркость пикселя. Если есть пример буду благодарен.

---

simmoril   (2003-09-18 16:46:00) [1]

Если нужна яркость пикселей то,собственно, вот:

function BLimit(A: Integer): Byte;
begin
if A < 0 then Result := 0
else if A > 255 then Result := 255
else Result := A;
end;

...

var
Bitmap: TBitmap;
Matrix: array of array of Byte;
x, y: Integer;
p: pByteArray;

begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile("file.bmp");
Bitmap.PixelFormat := pf24Bit;
SetLength(Matrix, Bitmap.Height);
for y := 0 to Bitmap.Height - 1 do
begin
p := Bitmap.ScanLine[y];
SetLength(Matrix[y], Bitmap.Width);
for x := 0 to Bitmap.Width-1 do
Matrix[y,x]:=BLimit(Round((p[x*3]*0.11 + p[x*3+1]*0.59 +
p[x*3+2]*0.3)));
end;
finally
Bitmap.Free;
end;
end;

Все это работает правильно.
matrix - это и есть массив яркостей пикселей.

---

ZEE   (2003-09-18 13:07:00) [2]

Сначала считываешь цвет (rgb), а потом:
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625431&n=21

---

pasha_676   (2003-09-18 13:07:00) [3]

Как то непонятно что надо. Цвета считать из bmp в заданной точке? Ну и что там не понятного. TBitmap+F1.

---

Наверх