Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

31st
Окт

Декодирование BMP

Posted by maloy under Delphi, Архив

Rezet

Необходимо BMP представить в виде числовой матрицы по RGB, где каждому цвету одного пикселя соответствует число от 0 до 255.

BOBAH13

Код:

...
type
  PARGBTriple = ^TARGBTriple;
  TARGBTriple = array[0..0] of TRGBTriple;
var
  y, x: Integer;
  p: PARGBTriple;
begin
  for y:= 0 to TBitmap.Height - 1 do
  begin 
    p := TBitmap.ScanLine[y];
    for x:= 0 to TBitmap.Width - 1 do
    begin
      p^[x]..... тут уже думаю не составит труда большого понять поля записи TRGBTriple
    end;
  end;
end;

тема на форуме от 2009 года