• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 308
  • Last Modified:

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 ? =)
0
k6__
Asked:
k6__
  • 2
1 Solution
 
EpsylonCommented:
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

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now