Советы по Delphi

         

Используя 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]


Содержание раздела







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий