Esta função foi testada no Delphi XE 7.
É necessário estar declarado Graphics, pngimage na seção uses,
em versões unicode declare Vcl.Graphics, Vcl.Imaging.pngimage;
1 2 3 4 5 | function BmpToPNG(Bmp : TBitmap) : TPngImage; begin Result := TPngImage.Create; Result.Assign(Bmp); end; |
Exemplo de uso:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1.Button1Click(Sender: TObject); var vPng: TPngImage; vBmp: TBitmap; begin vBmp := TBitmap.Create; vBmp.LoadFromFile('D:\teste.bmp'); vPng := BmpToPNG(vBmp); vPng.SaveToFile('D:\novo_teste.png'); vBmp.Free; vPng.Free; end; |
