Главная » Статьи по Delphi » Преобразования » Преобразовать из JPEG в BitMap

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

Автор:

Uses JPEG;
...
Function JPEG_to_BMP(jpg:TJPEGImage):TBitMap;
begin
  Result := TBitmap.Create;
  Result.Assign(jpg);
end;

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

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

  bmp:=JPEG_to_BMP(jpg);
end;

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

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

0   Спам (09.06.2012) 2. USER [Pascal Error] Unit1.pas(69): E2003 Undeclared identifier: 'JPEG_to_BMP' Ошибка. Как исправить?

0   Спам (12.08.2009) 1. Мухтар Чесно говоря я новичек и не совсем понил как работает эта процедура, попробывал у меня почемута не работает, я немогу сохранить фото в фармате JPEG в бд акцес, может подскажете??? Заранее благодарен!!! Ответ: Есть 2 типа TJPEGImage и TBitMap. Функция преобразует из TJPEGImage в TBitMap. Функция не сохраняет в базу данных, она только производит преобразование в другой тип.

---

Имя *:
Email:
Все смайлы
Код *:

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

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

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