Конвертируем JPEG в BMP

Напишем процедуру, конвертирующию изображение из формата JPEG в формат BMP.

Для этого подключим к проекту файл jpeg, дописав его в раздел uses.



Объявляем процедуру и пишем её код:

 
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;

В этом коде мы загружаем в объект типа TJPEGImage изображение, а затем это изображение связываем с TBitmap и сохраняем.
Обращаться к данной процедуре можно так:

procedure JPEGtoBMP('primer.jpg');

Также можно создать OpenDialog  и обращаться уже так:

  procedure JPEGtoBMP(OpenDialog1.Filename); 

Удачи! SourceExpert.Blogspot.com