• Welcome to Vampyre Imaging Library Forum. Please login or sign up.
 

Post reply

Other options

Shortcuts: ALT+S save/post or ALT+P preview

Topic summary

Posted by bunak
 -  7 April 2011, 11:06:48
Thank you very much
Posted by Galfar
 -  6 April 2011, 01:03:54
Just call SetOption(ImagingJpegQuality, 75)
between Img.LoadFromStream(mem_st) and Img.SaveToFile(str_file_path + 'jpg')
Posted by bunak
 -  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.
SMF spam blocked by CleanTalk