change quolity for jpeg?

[bunak]

HI

I load jpeg200 from TBlob to TSingleImage and convert jpeg2000 to jpeg format.

Code (pascal) Select Expand

str_file_path := "c:\file.";

TBlobField(qr_graphic.FieldByName('GRAPHIC')).SaveToStream(mem_st);
Img := TSingleImage.Create;
try
  try
     mem_st := TMemoryStream.Create;
     mem_st.Position := 0;
     Img.LoadFromStream(mem_st);
     Img.SaveToFile(str_file_path + 'jpg');
  except
  end;
finally
  mem_st.Free;
  Img.Free;
end;

But how I can change quality of jpeg to 75% or recomperss it? Help please.

[Galfar]

Just call SetOption(ImagingJpegQuality, 75)
between Img.LoadFromStream(mem_st) and Img.SaveToFile(str_file_path + 'jpg')

[bunak]

Thank you very much