Показать сообщение отдельно
  #4  
Старый 11.06.2016, 19:14
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А в чем суть упражнения?
Написать свой компрессор? Дык он будет не совместим со стандартным.
Получить компрессированный GIF? Дык бери GifImage (кстати, с какой-то версии, типа 2010 и позднее, он идет в поставке) и не мучайся.

ЗЫ. Получается больше, т.к. битмап ты испольщуешь скорее всего 24-битный, а GIF изначально 8-битный, но с палитрой. Можно создать по GIF'у соотв. битмап, скопировать палитру. Тогда размеры несжатых картинок бубут примерно одинаковыми, ну а жатый gif будет меньше.
Ответить с цитированием