Святой молей! Это не одна строка кода, как я думал :) Дэвид, ты самый лучший!
ользую классы Delphi XE и TWICImage для обработки изображений. Я хотел бы знать, если какой-либо способ установить качество сжатия JPEG с TWICImage?
procedure TfrmMain.Button2Click(Sender: TObject);
var
wic: TWICImage;
begin
wic := TWICImage.Create;
try
wic.LoadFromFile('sample-BMP.bmp');
wic.ImageFormat := wifJpeg;
// ... before saving I want to set low compression quality
wic.SaveToFile('sample-JPG.jpg');
finally
wic.Free;
end;
end;