Código Delphi [-] var JPeg: TJpegImage; Bitmap: TBitmap; begin JPeg := TJPegImage.Create; JPeg.LoadFromFile('hands.jpg'); Bitmap := TBitmap.Create; Bitmap.Assign(JPeg); Bitmap.SaveToFile('hand.bmp'); JPeg.Free; Bitmap.Free;
var JPeg: TJpegImage; Bitmap: TBitmap; begin JPeg := TJPegImage.Create; JPeg.LoadFromFile('hands.jpg'); Bitmap := TBitmap.Create; Bitmap.Assign(JPeg); Bitmap.SaveToFile('hand.bmp'); JPeg.Free; Bitmap.Free;