تبدیل فرمت bmp به jpg

[Babak-Aghili]

سلام ...

کدی جهت تبدیل bmp به سایر فرمتها مورد نیاز است :لبخند:

بله ... دوست عزیز ... قبل از پست کردن ، سرچ کنید ...

http://www.barnamenevis.org/forum/viewtopic.php?t=19

وقتی لینکش مرحوم شده چطور ؟ :لبخند:

[vcldeveloper]

uses JPEG;

procedure BmpToJpg(const BmpFile, JpgFile : string; Quality : integer = 85);
var
Bmp : TBitmap;
Jpg : TJPEGImage;
begin
if not FileExists(BmpFile) then
raise Exception.CreateFmt('File %s not found.',[BmpFile]);
Bmp := TBitmap.Create;
Jpg := TJPEGImage.Create;
try
Bmp.LoadFromFile(BmpFile);
Jpg.Assign(Bmp);
Jpg.CompressionQuality := Quality;
Jpg.SaveToFile(JpgFile);
finally
Bmp.Free;
Jpg.Free;
end;
end;