Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Bitmap » Преобразовать из 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;

Готовые оффшоры

Сопровождение бизнеса. FCP Financial Management - финансовый консультант.

corpagent.com
Пушкино санаторий

Заказ он-лайн. Заказ путевки.

vashkurort.ru

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

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

(12.08.2009)

1. Мухтар

Чесно говоря я новичек и не совсем понил как работает эта процедура, попробывал у меня почемута не работает, я немогу сохранить фото в фармате JPEG в бд акцес, может подскажете???

Заранее благодарен!!!

Ответ: Есть 2 типа TJPEGImage и TBitMap. Функция преобразует из TJPEGImage в TBitMap. Функция не сохраняет в базу данных, она только производит преобразование в другой тип.