delphi 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;
 
阅读更多
文章标签: delphi string
个人分类: DELPHI
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

delphi bmp转jpg

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭