TBitmap32 als PNG speichern (PNGDelphi)

**And1.G**

Ist es möglich, ein TBitmap32 mitsamt Transparenz mit

PNGDelphi als PNG zu speichern?

Hab mir schon probiert, eine Funktion zu basteln, die das erledigen soll, haut aber nicht hin...

zusammenfalten · markieren

Delphi-Quellcode:

			procedure SaveBitmap32toPNGFile(SrcBitmap32: TBitmap32; Filename: String);

var

  PNGObject: TPNGObject;

begin

  PNGObject := nil;

  try

    PNGObject := TPNGObject.Create;

    PNGObject.Canvas.Handle := SrcBitmap32.Canvas.Handle;

    PNGObject.SaveToFile(Filename);

  finally

    if Assigned(PNGObject) then PNGObject.Free;

  end;

end;

Aufgerufen wird das ganze mit dem Bitmap eines TImage32, was auf der Form liegt und auch ein Bild beinhaltet.
Es wird auch eine PNG Datei erstellt, allerdings 8Byte groß und nur mit Header...
Und ich hab das dumpfe Gefühl, da würde die Transparenz auch nicht mitkopiert werden, fals es denn funktionieren würde...

Hat jemand eine Idee wie man das lösen könnte?

TBitmap32 als PNG speichern (PNGDelphi)

TBitmap32 als PNG speichern (PNGDelphi)

Forumregeln