Преобразовать из 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;

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

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

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

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

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