32 Bit Bitmap in PNG umwandeln

[Martin K]

Hallo,

wie kann ich ein 32 Bit Bitmap in eine PNG umwandeln?
Für PNGs verwende ich normalerweise TPNGGraphic aus der Unit GraphicEx, doch PNGs zu speichern scheint damit wohl nicht so ganz zu gehen, es kommt immer ein Bitmap dabei raus?!?

P.S.: Ich hab's selber nicht geglaubt, aber über die Forums-Suche habe ich nichts zum Unwandeln BMP -> PNG gefunden oder ich habe irgendwas übersehen...

[Dani]

TPNGGraphic aus GraphicEx kann PNGs nur laden, nicht speichern. Es gibt auch eine Unit "PngImage" [Klasse TPNGObject], die PNGs speichern kann: http://pngdelphi.sourceforge.net

[Martin K]

OK, danke.
Funktioniert soweit.

Den Alpha-Kanal kann ich aber nur mit AlphaScanline bearbeiten, nicht mit dem höchstwertigen Byte von Scanline?
Irgendwie ist das mit Scanline etwas umständlich, weil man hier immer nur die 3 Bytes hat, wenn man ein PIntegerArray nimmt hat man da als höchstwertiges Byte schon das vom nächsten Pixel, irgendwie etwas umständlich...
Also bei TBitmap.Scanline war das irgendwie anders und einfacher, da ging das einfach mit einem PIntegerArray.
Liege ich da richtig?

Edit: Was für ein Array kann man sonst für Scanline dann nehmen, es gibt ja keinen 3 Byte großen Zahlen-Datentyp?!?

[Namenloser]

Probier's mal mit nem record:

Delphi-Quellcode:

tRGBTriple = packed record
  r,g,b: byte;
end;
pRGBTriple = ^TRGBTriple;

[Martin K]

Danke, habe in der Unit pngimage noch den Typ pRGBLine gefunden, der macht genau das

Edit:

Delphi-Quellcode:

  TRGBLine = array[word] of TRGBTriple;
  pRGBLine = ^TRGBLine;

TRGBTriple ist übrigens schon in der Windows-Unit deklariert.