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;
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;