JPG в BMP
Материал из DRKB
jpeg.CompressionQuality - качество сжатия (по умолчанию 100)
Установите значение 1..100, в зависимости от желаемого качества и размера файла картинки. 1 = минимальный размер, 100 = лучшее качество.
uses
JPEG;
procedure JPEGtoBMP(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; { Default Value }
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;
Source: http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 04279