Print Page - change quolity for jpeg?

Title: change quolity for jpeg?
Post by: bunak on 5 April 2011, 20:35:02

HI

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

Code (pascal) Select

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.

Title: Re: change quolity for jpeg?
Post by: Galfar on 6 April 2011, 01:03:54

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

Title: Re: change quolity for jpeg?
Post by: bunak on 7 April 2011, 11:06:48

Thank you very much

Vampyre Imaging Library Forum

Imaging Category => Help & Questions => Topic started by: bunak on 5 April 2011, 20:35:02