Советы по 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); // Назначание изображения объекту MyJpegMyJpeg.SaveToFile('MyJPEGImage.JPG'); // Сохранение на диске изображения в формате JPEGend;
[000007]


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