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 日
点赞的人是最酷的