|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как черно-белый битмап преобразовать в 2мерный массив интенсивности цветов?
Есть черно-белая картинка. Мне нужно ее обработать. Для этого необходим массив, отражающий интенсивность цвета каждого пикселя. Как мне это сделать???
|
#2
|
|||
|
|||
Вот такой кусочек у меня работает (загрузил картинку в Image1 и щёлкаю по ней мышкой).
Код:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var P: PByteArray; begin try case Image1.Picture.Bitmap.PixelFormat of pf8bit: begin P:= Image1.Picture.Bitmap.ScanLine[Y]; Caption:= Format('X=%u, Y=%u, Цвет=%x', [X, Y, P^[X]]); end; end; except end; end; |