Compressing Progressive JPEG ?

I have a TBitmap and i want to save
it to JPeg format as small as possible
with Progressive & Quality at 75% without
smoothing... any ideas ? =)
LVL 2
k6__Asked:
Who is Participating?
 
EpsylonConnect With a Mentor Commented:
Smoothing only applies when decoding so I think this should be it:

uses JPEG;

procedure BMP2JPG(bmp: TBitmap; filename: String);
var jpg: TJPEGImage;
begin
  bmp := ........
  jpg := TJPEGImage.Create;
  jpg.Assign(bmp);
  jpg.ProgressiveEncoding := true;
  jpg.CompressionQuality := 75;
  jpg.SaveToFile(filename);
  jpg.Free;
end;


Regards,

Epsylon.
0
 
k6__Author Commented:
Thank you! btw.. can i squeeze it more
without changing compression quality ?
0
 
EpsylonCommented:
I'm afraid not...
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.