Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> BMP => JPG, без потерь 
:(
    Опции темы
МНУ
  Дата 18.11.2005, 02:41 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
мну хочет сконвертить bmp в jpg!
у мну не получается сделать без потерь!
мну хочет качественно как в photoshop!

мну просит помощь у бодрых дядя с виноград!
поможите плиз!

smile smile smile
  Вверх
Satana
Дата 18.11.2005, 08:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
У ТБУ без потерь не получится по определению, ибо формат JPG подразумевает потери таки.
А чтоб конвертнуть из БМП в ЖПГ нуна делать примерно так:
Код

procedure convertToJpeg(FileName: string);
var
  bitmap: TBitmap;
  Jpeg: TJpegImage;
begin
  bitmap := TBitmap.Create;
  Jpeg := TjpegImage.Create;
  bitmap.LoadFromFile(FileName + '.bmp');
  Jpeg.Assign(Bitmap);
  jpeg.SaveToFile(FileName + '.jpg');
  bitmap.Free;
  jpeg.Free;
  DeleteFile(FileName + '.bmp'); //Тут удаляется исходный БМП файл если тебе этого не нада то закоментируй эту строку!!!!!
end;


Это сообщение отредактировал(а) Satana - 18.11.2005, 08:10


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Alexeis
Дата 18.11.2005, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Если так изменить код
то будет без потерь

Код

procedure convertToJpeg(FileName: string);
var
  bitmap: TBitmap;
  Jpeg: TJpegImage;
begin
  bitmap := TBitmap.Create;
  Jpeg := TjpegImage.Create;
  bitmap.LoadFromFile(FileName + '.bmp');
  Jpeg.Assign(Bitmap);

  jpeg.CompressionQuality := 100; 
  jpeg.Compress;

  jpeg.SaveToFile(FileName + '.jpg');
  bitmap.Free;
  jpeg.Free;
  DeleteFile(FileName + '.bmp');  //Тут удаляется исходный БМП файл если тебе этого не нада то закоментируй эту строку!!!!!

end;



Это сообщение отредактировал(а) alexeis1 - 18.11.2005, 10:57


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Guest
Дата 18.11.2005, 13:11 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Цитата(alexeis1 @ 18.11.2005, 10:54)
jpeg.CompressionQuality := 100;

мну так и делал
мну видел что jpg получился плохой сильно отличен от оригинала

мну сделал jpg в photoshop с максимальным качеством
мну загрузил его в bmp и сравнил по точкам с оригиналом
мну получил совпадение 100%!

итого мну считает satana не прав и метод alexeis1 плох
  Вверх
Alexeis
Дата 18.11.2005, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Может проблема с битностью цвета, тогда так

Код

procedure convertToJpeg(FileName: string);
var
  bitmap: TBitmap;
  Jpeg: TJpegImage;
begin
  bitmap := TBitmap.Create;
  Jpeg := TjpegImage.Create;
  bitmap.LoadFromFile(FileName + '.bmp');
  Jpeg.Assign(Bitmap);

  jpeg.CompressionQuality := 100; 
  Jpeg.PixelFormat := jf24Bit;
  jpeg.Compress;

  jpeg.SaveToFile(FileName + '.jpg');
  bitmap.Free;
  jpeg.Free;
  DeleteFile(FileName + '.bmp');  //Тут удаляется исходный БМП файл если тебе этого не нада то закоментируй эту строку!!!!!

end;



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Ch0bits
Дата 18.11.2005, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Python Dev.
****


Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62
По моему Jpeg.PixelFormat ставится такой-же как и bitmap.PixelFormat, а он такой как у файла.
Вообще есть такой косяк с Борландовской JPEG, хоть какие параметры не ставь, все равно смазывает красный цвет, поэтому для качественного преобразования не годиться.


--------------------
Quizful - новый портал с классными IT тестами!
PM WWW   Вверх
sergejzr
Дата 18.11.2005, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: нет
Всего: 360
Модератор: Пожалуйста не пишите посты, состоящие из исключительно заглавных букв. Также следует общаться на русском языке! Уважайте собеседников!

Это первое и последнее предупреждение.


--------------------
Me.
FB.
LinkedIn.
ORCID.
YT.
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
Гость_zogman
Дата 22.11.2005, 13:34 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Это может немножко не в тему,
но я встречался с такой проблемой - что Борланд (Builder 6) открывает жпг не совсем так как фотошоп,
скорее всего у Борлнда какая-то мелкая ошибочка в реализации жпг - может это проявляется еще где.
  Вверх
s-mike
Дата 24.11.2005, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 5
Всего: 16
JPG даже в качестве 100% дает потери в качестве. Для безпотерьного сжатия нужно использовать PNG.


--------------------
Преферанс для Android на базе исходников Марьяжа
PM MAIL WWW   Вверх
Ch0bits
Дата 24.11.2005, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Python Dev.
****


Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

Репутация: нет
Всего: 62
s-mike
Круто! Этот PNG даже 7z не жмётся.
+1 smile


--------------------
Quizful - новый портал с классными IT тестами!
PM WWW   Вверх
sergejzr
Дата 25.11.2005, 01:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: нет
Всего: 360
К сожалению png теряет качество при большом количестве цветов...


--------------------
Me.
FB.
LinkedIn.
ORCID.
YT.
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
Alexeis
Дата 30.11.2005, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Цитата
JPG даже в качестве 100% дает потери в качестве

Действительно !!! сжатие рэндомизированной картинки в 100% качестве показывает значительные искажения. Причем различные
программы (при качестве 100%) дают различные (в смысле цветов) картинки.
Цитата
но я встречался с такой проблемой - что Борланд (Builder 6) открывает жпг не совсем так как фотошоп

Потеря точности передачи цвета delphi 7 (delphi 2005) по сравнению с ACDSee (на рэндомизированной картинке) всего 0.5% что для глаза совсем не заметно.

Цитата
Круто! Этот PNG даже 7z не жмётся.

жмется 10.4 кб(7z) против 10.9 для png




Это сообщение отредактировал(а) alexeis1 - 30.11.2005, 10:11


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0858 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.