Solved

Compressing Progressive JPEG ?

Posted on 2000-04-20
3
296 Views
Last Modified: 2010-04-04
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
Comment
Question by:k6__
  • 2
3 Comments
 
LVL 13

Accepted Solution

by:
Epsylon earned 50 total points
ID: 2736420
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
 
LVL 2

Author Comment

by:k6__
ID: 2736864
Thank you! btw.. can i squeeze it more
without changing compression quality ?
0
 
LVL 13

Expert Comment

by:Epsylon
ID: 2737820
I'm afraid not...
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…

680 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question