Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2015, 12:01   #1
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию Сжатие JPEG

Здравствуйте.
Пытаюсь сжать картингу JPEG следующим кодом:
Код:
procedure CompressJPEG (JPEGFileName: string);
var
  jpg : TJPEGImage;
begin
  jpg := TJPEGImage.Create;
  jpg.LoadFromFile(JPEGFileName);
  jpg.CompressionQuality := 90;
  jpg.Compress;
  jpg.SaveToFile(JPEGFileName);
  jpg.Free;
end;
Но на выходе всегда получается файл в 0 байт. Что за беда?
CompressionQuality высталял в разные значения, итог всё равно 1 в 0 байт.
Пробовал и на D7 и на D17
FaTaL вне форума Ответить с цитированием
Старый 23.12.2015, 12:42   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Я в свое время делал примерно так: http://www.tek-tips.com/viewthread.cfm?qid=416175
т.е. переливал из одного jpg в другой с установленным сжатием.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 23.12.2015, 13:45   #3
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

Stilet, спасибо. Так прекрасно работает.
FaTaL вне форума Ответить с цитированием
Старый 25.12.2015, 13:42   #4
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Компрессия падает на строке
Код:
if (FBitmap = nil) or (FBitmap.Width = 0) or (FBitmap.Height = 0) then Exit;
Создать FBitmap можно методом DIBNeeded

В общем, перед компрессией просто нужно
Код:
jpg.DIBNeeded;
eoln вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сжатие изображение алгоритмом Jpeg на C# adidd Помощь студентам 1 20.05.2013 19:06
Сжатие jpeg. Стандартные таблицы Хаффмана. stragger Общие вопросы C/C++ 4 13.05.2013 16:17
Сжатие изображений brain22 Мультимедиа в Delphi 1 06.06.2012 20:25
JPEG сжатие на C++ racushka_n Помощь студентам 4 24.04.2012 23:04
сжатие фотографий AnKor94 Общие вопросы Delphi 1 15.03.2010 00:18