Auch wenn das etwas her ist, aber folgendermaßen funktioniert es leider nicht:
Delphi-Quellcode:
function SaveBitmap32ToPNGFile(AFileName: string; srcbmp32: TBitmap32): bool;
var
PNG: TPNGObject;
begin
Result := FALSE;
PNG := TPNGObject.Create;
try
PNG.Assign(srcbmp32);
PNG.SaveToFile(AFileName);
finally
PNG.Free;
end;
end;
Ergebnis:
Zitat:
---------------------------
Timetaptop
---------------------------
TBitmap32 kann nicht zu TPNGObject zugewiesen werden.
---------------------------
OK
---------------------------
MfG
xZise