AI摘要

这段代码是一个将BMP格式图片转换为JPG格式的Delphi程序。程序定义了一个名为BMPToJPG的函数，它接受一个BMP文件路径作为参数。首先，创建一个TBitmap对象来加载BMP文件，然后创建一个TJPEGImage对象，将BMP对象的内容复制到JPEG对象中，并压缩JPEG图像。最后，将压缩后的JPEG图像保存到指定路径。
这段代码是一个将BMP格

//BMP格式图片转JPG格式
procedure BMPToJPG(BmpFileName:string);
var
  Jpeg : TJPEGImage;
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile(BmpFileName);
    Jpeg := TJPEGImage.Create;
    try
      Jpeg.Assign(Bmp);
      Jpeg.Compress;
      //保存图片
      Jpeg.SaveToFile(Form4.SavePictureDialog1.FileName);
    finally
      Jpeg.Free;
    end;
  finally
     Bmp.Free;
  end;
end;

※相关文章推荐※


※热评文章推荐※


※最新文章推荐※

最后修改：2009 年 08 月 16 日
© 允许规范转载
点赞的人是最酷的