相关疑难解决方法(0)

我使用 Delphi XE 和 TWICImage 类进行图像处理。我想知道是否有办法使用 TWICImage 设置 jpeg 压缩质量？

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;