É necessário estar declarado Graphics, jpeg na seção uses,
em versões unicode declare Vcl.Graphics, Vcl.Imaging.jpeg;
1 2 3 4 5 6 7 8 9 | function JpgToBmp(Jpeg : TJPEGImage) : TBitmap; var vBmp: TBitmap; begin vBmp := TBitmap.Create; vBmp.Assign(Jpeg); Result := vBmp; end; |
Exemplo de uso:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1.Button1Click(Sender: TObject); var vJpg : TJPEGImage; vBmp: TBitmap; begin vJpg := TJPEGImage.Create; vJpg.LoadFromFile('D:\teste.jpg'); vBmp := JpgToBmp(vJpg); vBmp.SaveToFile('D:\teste.bmp'); vBmp.Free; vJpg.Free; end; |
