Função tetada 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 PngToBmp(Png : TPngImage) : TBitmap; begin Result := TBitmap.Create; Result.Assign(Png); 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 vPng := TPngImage.Create; vPng.LoadFromFile('D:\teste.png'); vBmp := PngToBmp(vPng); vBmp.SaveToFile('D:\novo_teste.bmp'); vBmp.Free; vPng.Free; end; |
