Scalabium Software |
|
Knowledge for your independence'. | |
Home Delphi and C++Builder tips |
#42: Convert the bitmap to Jpeg and vice versa |
|
You can use the next code for conversion of bitmap into jpeg
or jpeg into bitmap: uses Jpeg; procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string); var Bmp: TBitmap; Jpg: TJPEGImage; begin Bmp := TBitmap.Create; Jpg := TJPEGImage.Create; try Bmp.LoadFromFile(BmpFileName); Jpg.Assign(Bmp); Jpg.SaveToFile(JpgFileName); finally Jpg.Free; Bmp.Free; end; end; procedure Jpeg2Bmp(const BmpFileName, JpgFileName: string); var Bmp: TBitmap; Jpg: TJPEGImage; begin Bmp := TBitmap.Create; Jpg := TJPEGImage.Create; try Jpg.LoadFromFile(JpgFileName); Bmp.Assign(Jpg); Bmp.SaveToFile(BmpFileName); finally Jpg.Free; Bmp.Free; end; end; I uses these procedures for picture format changing in own PictView
application.
|
|
Copyright© 1998-2024, Scalabium
Software. All rights reserved. |