delphi bmp转jpg

转载 2007年09月12日 20:38:00
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;
 

相关文章推荐

delphi中Bmp转Jpeg JPG转BMP

;----Bmp转Jpeg----- uses Jpeg;procedure TForm1.Button1Click(Sender: TObject);VarJpg : TJpegImage;BMP ...

bmp转jpg工具

  • 2015-09-25 18:28
  • 450KB
  • 下载

使用jpeglib BMP转JPG示例

  • 2014-05-04 16:05
  • 184KB
  • 下载

使用jpeglib库实现bmp转jpg

一、vc编译jpeglib库 1、下载源代码 下载地址:http://www.ijg.org/。注意:一定要下载win32 版本 2、编译源代码.     A、...

c++Base64转jpg、bmp图片

  • 2017-07-03 16:25
  • 31KB
  • 下载

DCMTK:单张jpg、bmp图像转dcm文件

网上关于相关系列的文章非常的零散,特别不方便查找,于是查看img2dcm的源码,并将其提取出来作为项目需要,特记录于此。前提在dcm文件中,bmp格式图片和jpg格式图片保存方式完全不同,无压缩的bm...

图片格式转换:BMP转JPG

  • 2010-11-30 22:44
  • 1.27MB
  • 下载

jpg转bmp(使用libjpeg)

原文链接:http://www.cnblogs.com/tiandsp/archive/2012/11/30/2796758.html   还是关于图像格式上的东西。使用了libjpeg库将jpe...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)