Разбор каждого пикселя с файлов Jpeg, bmp, gif, png

@vadim23409 · Регистрация: 24.09.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте, вот такая задача: есть структура и массив:

Delphi
1
2
3
4
5
6
7
  Dpixel= packed record
     R:byte;
     G:byte;
     B:byte;
     A:byte;
   end;
var picture: array of array of Dpixel;

(изображение = 2-мерный массив Dpixel-ов, каждый Dpixel - это 256 разных значений красного, зелёного, синего цветов и 256 значений прозрачности (alpha) для PNG формата. Файлы Jpeg, bmp и gif можно просто открыть в image (да и не только, просто создать Tbitmap и загрузить в него картинку с файла) и каждый пиксель перенести в мой массив. Но как быть с PNG с альфа-каналом? В Timage оно открывает, но вместо фона чёрный цвет пускает и значения прозрачности пропадает(
(Тема была в разделе delphi и firemonkey, но там на нее не очень активно отвечали, +реализация задачи не очень то и привязана к firemonkey)

@vadim23409 · 31.08.2014, 01:24 **[ТС]**

Даже если залить png в TPNGImage, то альфа канал можно достать через alphascanline, но я и с обычным scanline не разобрался(

@northener · 31.08.2014, 02:19

Сообщение от vadim23409

Здравствуйте, вот такая задача: есть структура и массив:

Структуру и массив вижу. Задачу не вижу/не понимаю как не стараюсь. Очевидно мой телепатор сломался.

@Arcor · 31.08.2014, 16:35

вот таким макаром можно получить RGB и А в придачу, в ваш массив о информации пикселей занесете сами все.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button1Click(Sender: TObject);
var Color: TColor;
    r, g, b, a: Byte;
    PNG: TPngImage;
    ByteAr: pByteArray;
    x, y: Integer;
begin
 
  PNG := TPngImage.Create;
  PNG.LoadFromFile('D:\Bilder\Icons\10\24\add.png');
 
  x := 8;
  y := 0;
 
  Color := PNG.Pixels[x, y];
  ByteAr := PNG.AlphaScanline[y];
 
  r := Color shr 0;
  g := Color shr 8;
  b := Color shr 16;
 
  a := ByteAr[x];
 
  Button1.Caption := 'Пиксель [' + IntToStr(x) + ' : ' + IntToStr(y) + '] -> r = ' + IntToStr(r) +
                     ', g = ' + IntToStr(g) + ', b = ' + IntToStr(b) + ', a = ' + IntToStr(a);
 
  PNG.Free;
end;

на скрине видно как моя программа определила все по заданному пикселю и как это являлось на самом деле в графическом редакторе

если конечно это имелось ввиду

@vadim23409 · 31.08.2014, 23:31 **[ТС]**

спасибо большое

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	31.08.2014, 01:24 [ТС]
	Даже если залить png в TPNGImage, то альфа канал можно достать через alphascanline, но я и с обычным scanline не разобрался( 0

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	31.08.2014, 23:31 [ТС]
	спасибо большое 0

Разбор каждого пикселя с файлов Jpeg, bmp, gif, png

Решение