Category: Graphic
Title: Convert JPEG to BMP
Date added: 15.03.2006
Hits: 4003

uses
  JPEG;


procedure JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

1. How to get the pixel color in a canvas on the mouse position? (2846 Hits)

2. How to get the current screen resolution? (1989 Hits)

3. How to move a cross in canvas to show X/Y values? (2533 Hits)

4. How to get a pixel color of the desktop? (2741 Hits)

5. How to convert a Bitmap to an Icon? (2332 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.