Создание png из двух массивов ?

[z768]

Есть два массива.
1 - массив индексированных цветов array [0..255] of cardinal
2 - сами индексы

Нужно создать файл *.png в формате 256 - color.
Сорри, поиск по форуму и в инете толкового ничего не дал.
С форматом png практически не сталкивался.

[IvaniuS]

Создаешь битмап, задаешь ему размеры, заполняешь пискели нужным цветом тебе,
певедиш его в восьмибитное изображение, скармливаешь его ПНГ компоненту, профит.

Var
  bmp:TBitmap;
begin
  bmp:=Tbitmap.create;
  bmp.pixelformat:=pf24bit;
  bmp.height:=16;
  bmp.width:=16;  
  for i:=0 to 16 do
  for j:=0 to 16 do
  begin
    bitmap.pixels[i,j]:=ColorArray[j+i*16];
  end;
  ...
  bmp.free;
end;

Писал быстро на коленке, чтобы показать суть.

[z768]

Хотелось бы обойти битмап....
И просто напрямую "скормить" массивы в png.
Тем более, что индексированные цвета известны, и тело файла, размеры и сам массив байт тоже известен.

[IvaniuS]

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

[z768]

Зачем искать компонент, если у меня d2010, он уже реализован.
Просто не могу понять как заполнить индексированную палитру, ну и еще пару моментов не понятны.

Chunk := TChunkPLTE(png.Chunks.ItemFromClass(TChunkPLTE));
                  for i := 0 to 255 do
                    begin
                      Chunk.Item[i].rgbBlue := ???
                      Chunk.Item[i].rgbGreen := ???
                      Chunk.Item[i].rgbRed := ???
                      Chunk.Item[i].rgbReserved := ???
                    end;

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

[IvaniuS]

аа тю, так есть функция GetRValue, GetGValue, getBValue все они принимают Cardinal а выдают уже твое значение

[z768]

[DCC Error] uBitmap.pas(821): E2064 Left side cannot be assigned to
Подставляю просто значения вместо вопросов $00 и т.п.

[IvaniuS]

Какой тип у пропети rgbBlue, в теории это должен быть Byte, а то что я предоставил возвращает именно его..

[z768]

при наведении курсора пишет System.Byte

[x128]

procedure TForm1.Button1Click(Sender: TObject);
var
  png: TPNGImage;
  pal: TMaxLogPalette;
  scan: pByteArray;
  x,y: integer;
const
  xmax=256;
  ymax=256;
begin
  png:=TPNGImage.CreateBlank(COLOR_PALETTE, 8, xmax, ymax);
  with pal do begin
    palVersion:=$300;
    palNumEntries:=256;
    for x:=0 to palNumEntries-1 do begin
      palPalEntry[x].peRed:=x;
      palPalEntry[x].peGreen:=x;
      palPalEntry[x].peBlue:=x;
      palPalEntry[x].peFlags:=0;
    end;
  end;
  png.Palette:=CreatePalette(PLogPalette(@pal)^);
  for y:=0 to ymax-1 do begin
    scan:=png.Scanline[y];
    for x:=0 to xmax-1 do begin
      scan[x]:=x;
    end;
  end;
  png.SaveToFile('test.png');
  png.Free;
end;