Используя Delphi, как мне сохранить BMP-изображение в JPEG-файле?
Допустим, Image1 - компонент TImage, содержащий растровое изображение.
Используйте следующий фрагмент кода для конвертации вашего изображения
в JPEG-файл:
var
MyJpeg: TJpegImage; Image1: TImage; begin
Image1:= TImage.Create; MyJpeg:= TJpegImage.Create; Image1.LoadFile('TestImage.BMP'); // Чтение изображения из файла MyJpeg.Assign(Image1.Picture.Bitmap); // Назначание изображения объекту MyJpeg MyJpeg.SaveToFile('MyJPEGImage.JPG'); // Сохранение на диске изображения в формате JPEG end;
