Мир программирования

 


 Найти: на:


Меню
Партнеры
Счетчики
Реклама

Преобразование BMP в JPEG в Delphi

Используя Delphi, как мне сохранить BMP-изображение в JPEG-файле?

Допустим, Image1 - компонент TImage, содержащий растровое изображение. Используйте следующий фрагмент кода для конвертации вашего изображения в JPEG-файл:

 

 

var

MyJpeg: TJpegImage;

Image1: TImage;

begin

Image1:= TImage.Create;

MyJpeg:= TJpegImage.Create;

Image1.LoadFromFile( 'TestImage.BMP' );  // Чтение изображения из файла

MyJpeg.Assign(Image1.Picture.Bitmap);  // Назначание изображения объекту MyJpeg

MyJpeg.SaveToFile( 'MyJPEGImage.JPG' );  // Сохранение на диске изображения в формате JPEG

end ;

 

[Оглавление]

Опрос

Конкурсы
Реклама

 

Web дизайн: Бурлаков Михаил    

Web программирование: Бурлаков Михаил

Используются технологии uCoz