Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB) / 14 сообщений из 14, страница 1 из 1
05.07.2018, 18:57
    #39670248
san7667
san7667
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
Доброго времени суток!
Помогите пожалуйста!!!!!

Бьюсь уже долгое время. Есть программа которая открывает веб камеру, при нажатии на кнопку работает процедура фотофиксации изображения и сохранения в bmp файл (весит 900 kb), необходимо его минимально сжать без потери качества , делал через jpeg, записывал bmp в jpeg, сжимал до 137kb, но при перезаписи сжатого jpeg в bmp возрашается исходный размер bmp файла 900 kb
код:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
bmp:= Tbitmap.Create;
jpeg := TJpegImage.Create;
bmp.PixelFormat:=pf24bit;
bmp.LoadFromFile(name);
jpeg.Assign(bmp);
jpeg.CompressionQuality :=100;
jpeg.Compress;    
jpeg.SaveToFile(name);  // сжал и сохранил в размере 137 kb
jpeg.LoadFromFile(name);
bmp.Assign(jpeg); // записал файл но размер снова 900 kb
datamodule1.q_picture.fieldbyname('BITMAP').assign(bmp);



Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 19:05
    #39670250
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
san7667необходимо его минимально сжать без потери качестваsan7667делал через jpeg,Уже смешно.

Почему не хотите использовать архиватор?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 19:09
    #39670251
san7667
san7667
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
Никогда не работал с изображениями
Подскажите примерчик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 19:11
    #39670255
Мимопроходящий
Мимопроходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
у FIB+ есть функция сжатия потока BLOB.
если склероз меня не подводит.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 19:31
    #39670263
san7667
san7667
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
Мимопроходящий, Похоже в моем случае нет, на превью в поле блоб (лезу в ibexpert) показывет размер в байтах 921564, то есть примерно 900 kb
Легче было сделать конечно ссылку на изображение, а потом по ней выводить куда нибудь в timage, но эти фото в отчет идут fast report
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 21:37
    #39670307
Virtual Student
Virtual Student
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
san7667но при перезаписи сжатого jpeg в bmp возрашается исходный размер bmp файла 900 kb

А как должно быть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 22:04
    #39670314
Соколинский Борис
Соколинский Борис
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
san7667необходимо его минимально сжать без потери качества , делал через jpeg...
При сжатии в jpeg всегда происходит потеря качества, даже при качестве 100%.
В JPEG без потерь (loseless JPEG) используется другой алгоритм, который, ЕМНИП в штатной реализации отсутствует.
Насчет потери качества - какие объекты фотографируются?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 22:16
    #39670319
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
san7667превью в поле блоб (лезу в ibexpert) показывет размер в байтах 921564, то есть примерно 900 kbКак не сложно это признать, но это необходимо сделать - это ты туда его таким и записываешь, а не 137kb. Придется искать ошибку в логике своей программы.

Конечно, логичнее было бы предположить, что это подлый Firebird при чтении блоба автоматически конвертирует его содержимое из jpeg обратно в bmp, но нет.

P.S. Используй 7-zip. Жать будет гораздо лучше и реально без потери качества.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 23:44
    #39670351
AJi
AJi
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
Подскажите пещерному человеку, зачем хранить изображения в базе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 23:47
    #39670354
Соколинский Борис
Соколинский Борис
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
AJi,
это вечный холивар.
Есть, как минимум, один плюс - не надо ломать голову с откатом транзакции.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2018, 23:49
    #39670356
AJi
AJi
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
ну да, из-за такого плюса имеет смысл их туда запихивать да еще и без потери качества:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2018, 00:01
    #39670361
bk0010
bk0010
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
YuRockКонечно, логичнее было бы предположить, что это подлый Firebird при чтении блоба автоматически конвертирует его содержимое из jpeg обратно в bmp, но нет.Firebird не "уиноуатый", конвертация происходит вот тут:
Код: pascal
1.
bmp.Assign(jpeg);

.
И bmp будет 900 кб, чем бы он не жал, до тех пор, пока размеры картинки и цветность не изменятся: должна быть отображена каждая точка изображения с заданным разрешением по цветности, откуда берется картинка и сколько в ней реально цветов роли не играет. ИМХО, конечно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2018, 08:57
    #39670434
alfangur
alfangur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
1. не храните изображения в бд.
2. используйте png.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2018, 09:05
    #39670439
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB)
alfangur1. не храните изображения в бд.

дурацкая мысль.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Уменьшение размера файла BMP для загрузки в БД FB 2.5.3 (BLOB) / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 553ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040655]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 211ms
get topic data:
 13ms
get forum data:
 4ms
get page messages:
 64ms
get tp. blocked users:
 1ms
others: 226ms
total:  553ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]