Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

Сохранение картинки в файл   Найти похожие ветки 

 
Игоръ ©   (2004-11-17 12:05) [0]

Возникла проблема - необходимо сохранять картинки (TImage), которые создает программа.
Я нашел стандартную процедуру myImage.Picture.SaveToFile(FileName), НО так как у меня очень большие размеры картинок, то картинки занимают очень много места (до 30Mb/картинка). А карттнок мне надо сотни... Вообщем 30Гб забивается за 6 часов.

Конечно можно затем конвертить эти картинки в JPEG - даже без сжатия (100%) они занимают в 2 раза меньше места.

Теперь вопрос: Можно ли силами Дельфи сохранять сразу в JPEG или другой формат, но чтобы без потери качества был выигрыш в размере

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


 
TUser ©   (2004-11-17 12:11) [1]

TJPEGImage, TGifImage

Без потери качества - понятие ратяжимое. Если у тебя 256 цветов, то гиф - это без потери качества, а если больше - то с потерей.


 
Poirot ©   (2004-11-17 12:12) [2]

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


 
Игоръ ©   (2004-11-17 12:14) [3]

Нет, ну можно с потерей, но чтобы не очень заметно было.
У меня порядка 50-60 цветов.


 
TUser ©   (2004-11-17 12:52) [4]


> У меня порядка 50-60 цветов.

Gif и даже, наверное, Jpeg - нормальный выбор


 
Poirot ©   (2004-11-17 12:59) [5]

Для JPG смотри класс TJPEGImage (так помоему)... А как перевести из битмары в него картинку - см .Assign



Страницы: 1 вся ветка

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.041 c
11-1083862844
Delphi5.01
2004-05-06 21:00
2004.12.05
Вот такой баг был замечен мной и моим другом.


8-1094407602
IRYS
2004-09-05 22:06
2004.12.05
Preview mode для ScreenSaver a


14-1100759845
syte_ser78
2004-11-18 09:37
2004.12.05
проверка скорости ввода пароля


9-1091703136
pavel_pavel
2004-08-05 14:52
2004.12.05
TBitmap побыстрее


10-1068820738
Юрий
2003-11-14 17:38
2004.12.05
CORBA (VisiBroker 4.0) в Delphi6