Подписаться на RSS рассылку
Главная » Статьи по Delphi » Преобразования » Преобразовать из BitMap в JPG

Преобразовать из BitMap в JPG

Автор: Борисов Сергей

Uses JPEG;
...
Function
BMP_To_JPG(BMP:TBitMap):TJPEGImage;
begin
  Result := TJPEGImage.Create;
  Result.Assign(BMP);
end;


Пример использования:

Procedure TForm1.Button1Click(Sender: TObject);
var jpg:TJPEGImage;
   bmp:TBitMap;
begin
 jpg := TJPEGImage.Create;
 bmp := TBitMap.Create;

 bmp.LoadFromFile('d:\1.bmp');

 jpg := BMP_To_JPG(bmp);
end;

Просмотров: 5474

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта