BMP JPG Graphic interconvert

最新推荐文章于 2009-12-29 10:32:00 发布

原创最新推荐文章于 2009-12-29 10:32:00 发布 · 518 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string

Delphi 专栏收录该内容

21 篇文章

订阅专栏

本文提供了一段Delphi代码示例，演示了如何将BMP格式图像转换为JPG格式，以及如何将JPG格式图像转换回BMP格式。通过使用TBitmap和TJpegImage组件，实现了两种格式之间的相互转换。

uses Graphics, Jpeg; procedure BMP2JPG(const BMPFile: string); var BMP: TBitmap; JPG: TJpegImage; FileName: string; begin FileName := BMPFile; BMP := TBitmap.Create; JPG := TJpegImage.Create; try BMP.LoadFromFile(FileName); JPG.Assign(BMP); FileName := ChangeFileExt(FileName, '.jpg'); JPG.SaveToFile(FileName); finally BMP.Free; JPG.Free; end; end; procedure JPG2BMP(const JPGFile: string); var BMP: TBitmap; JPG: TJpegImage; FileName: string; begin FileName := JPGFile; BMP := TBitmap.Create; JPG := TJpegImage.Create; try JPG.LoadFromFile(FileName); BMP.Assign(JPG); FileName := ChangeFileExt(FileName, '.bmp'); BMP.SaveToFile(FileName); finally BMP.Free; JPG.Free; end; end;