Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Преобразовать JPEG в BMP

Delphi , Графика и Игры , JPEG

Преобразовать JPEG в BMP


uses 
  JPEG; 

procedure JPEGtoBMP(const FileName: TFileName); 
var 
  jpeg: TJPEGImage; 
  bmp:  TBitmap; 
begin 
  jpeg := TJPEGImage.Create; 
  try 
    jpeg.CompressionQuality := 100; {Default Value} 
    jpeg.LoadFromFile(FileName); 
    bmp := TBitmap.Create; 
    try 
      bmp.Assign(jpeg); 
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp')); 
    finally 
      bmp.Free 
    end; 
  finally 
    jpeg.Free 
  end; 
end; 


{ 
  CompressionQuality (default 100): 
  Set a value between 1..100, depending on your need of quality and 
  image file size. 1 = Smallest file size, 100 = Best quality. 
}

Статья Преобразовать JPEG в BMP раздела Графика и Игры JPEG может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


:: 2009-08-12 08:56:43 :: re:Преобразовать JPEG в BMP

пользователь: Мухтар.

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

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


:: 2009-08-12 22:56:24 :: re:Преобразовать JPEG в BMP

пользователь: kan.

В базе данных возможно сохранить любой файл, в не зависимости от формата, главное чтобы поле БД было способно его принять. Обычно алгоритм такой:
1. Загрузка файла в поток (Stream)
2. Подготовка строки в таблице базы данных
3. Подготовка запроса с параметром из потока


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: JPEG ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
21.09.2020 12:52:29/0.0026099681854248/2