Советы по Delphi


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


Используя Delphi 3, как мне сохранить 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;
[000007]




Начало  Назад  Вперед



Книжный магазин