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


См. также[править | править код]