Bit-Tiefe in PNG ermitteln

[Harry Stahl]

Hey, danke für den Source.

Ich habe bs.Menory durch bs.bytes ersetzt, dann läuft es.

Allerdings erhalte ich als Wert für FarbTiefe^ immer "8" zurück, egal ob es ein PNG mit 24 Bit-Tiefe oder 8 Bit-Tiefe ist (laut Windows Eigenschaftsanzeige).

Was stimmt da noch nicht?

Sieht so aus, als ob das in dem Fall des 8-Bit PNG ein eine Angabe für den Palleten-Index ist.
Wie finde ich das raus? Abhängig vom Colortype?

Unter Linux scheitert das Einlesen in TImage.Picture, weil die Funktion CreateHalftonePalette nicht unterstützt wird, daher meine Vermutung, dass es ein Wert für die Palette sein könnte (mit Bezug auf die Erklärung oben : "Bit depth is a single-byte integer giving the number of bits per sample or per palette index (not per pixel). Valid values are 1, 2, 4, 8, and 16, although not all values are allowed for all color types.")

[Delphi.Narium]

Vermutlich liest Du ein Byte zuwenig.

Habe mal 'ne Reihe von PNGs im Hexeditor angeschaut.

Bei allen steht der Colortype im 26. Byte. Dort finde ich entweder den Wert 2 oder den Wert 3. Bei allen PNGs enthält das 25. Byte eine 8.

Wenn ich es richtig sehe, müsste es Farbtyp := @m[i+8+8+1]; sein.

[Harry Stahl]

Ja, genau, das habe ich gerade auch rausgefunden. Dann erhält man den Wert für Colortype. Ist er 3, dann sind es Paletteneinträge, also auf jedenfall etwas, was da gerade unter Linux nicht gelesen werden kann.

Prima, danke, damit ist der WorkAround erst mal erledigt...

[Delphi.Narium]

Jain,

Farbtiefe ist bei i+8+8 schon korrekt. Aber Farbtiefe ist ja nicht Colortype. Der steht im Byte dahinter.

Also könnte sowas dadraus werden (nur hingedaddelt):

Delphi-Quellcode:

type
  TChunkname = array[0..3] of AnsiChar;
  
function SwapEndianness(i: Integer): Integer;
begin
  Result := ((i and $FF000000) shr 24) or
            ((i and $00FF0000) shr 8) or
            ((i and $0000FF00) shl 8) or
            ((i and $000000FF) shl 24);
end;

var
  i: Integer;
  Nutzdaten: Pinteger;
  bs: TBytesStream;
  m: TBytes;
  Chunkname: ^TChunkname;
  Farbtiefe: PByte;
  Farbtyp: PByte;

begin
  bs := TBytesStream.Create();
  try
    bs.LoadFromFile('bla.png');
    m := bs.Memory;
    i := 8; // skip header
    while i < bs.Size - 8 do
    begin
      Nutzdaten := @m[i];
      Chunkname := @m[i+4];
      
      if Chunkname^ = 'IHDR' then
      begin
        Farbtiefe := @m[i+8+8];
        Farbtyp   := @m[i+8+8+1];
        Break;
      end;
      
      inc(i, SwapEndianness(Nutzdaten^)+12);
    end;
  finally
    m := 0;
    bs.Free();
  end;
  // Tu was mit Farbtyp^, in deinem Fall mit 3 vergleichen
end;