Подписаться на RSS рассылку
Главная » Статьи по 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;

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

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

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-2016 Программирование на Delphi для начинающих и не только

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

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

Хостинг от uCoz

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

e-mail: save-x@yandex.ru

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