Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Вниз

Изменить глубину цвета у Image   Найти похожие ветки 

 
dim-   (2002-12-17 00:24) [0]

Как можно Изменить глубину цвета у Image и сохранить с расширением jpg (чтобы как можно меньше занимал места)


 
Vagrant   (2002-12-17 02:09) [1]

Примерно так:


Var jpg: TJPEGImage;
Begin
jpg := TJPEGImage.Create;
jpg.CompressionQuality := 50; // Процент сжатия
jpg.Assign(Image.picture.bitmap);
jpg.SaveToFile("Lalala.jpg");
End;


 
Vagrant   (2002-12-17 02:12) [2]

В догонку: Забыл освободить JPG :-o
FreeAndNil(jpg);


 
Моджахед жив   (2002-12-17 02:29) [3]

Jpeg имеет 24-битный формат, хоть ты тресни. Тут ничего не поделаешь. Впрочем, если брать картинку из TBitmap,
то можно задать что угодно, см. TBitmap.PixelFormat, а потом дуй ее в джейпег. Но выигрыш будеть маленький.
Хотя TJPEGImage.PixelFormat имеется тоже. Но писаться будет все равно в 24 бита. Лучше сначла битмэп упростить до
убожества, а потом пихать в джейпег.


 
Моджахед жив   (2002-12-17 02:35) [4]

Но, в общем, зависит от картинки. Если там кнопочка на 256 цветов, которые, отбросив оттенки нормально визуально сводятся к 16, то тогда имеет смысл сделать TBitmap.PixelFormat=pf8bit а джейпег при сжатии возрадуется. Но в итоге джепег будет все-равно 24битным.


 
dim-   (2002-12-17 09:02) [5]

у меня сканируемые документы, то есть черно-белые, будут храниться в Базе Данных, вот и нужен размер по меньше


 
app   (2002-12-17 09:16) [6]

Тебе надо смотреть не в сторону JPEG, а в сторону GIF/TIFF, может даже именно в сторону TIFF он для этого предназначен.
Данные форматы без потери качества, сжатие тоже есть, в итоге у тебя не будет грязи на документе и размер будет меньше, единственной проблемой является то, что тебе надо будет найти подходящую библиотеку.


 
dim-   (2002-12-17 09:22) [7]

Tiff это конечно хорошо, но его вроде не все просмотрщики могут открыть


 
Anatoly Podgoretsky   (2002-12-17 09:28) [8]

Открою тайнц, не все просмотровщики могут открыть и JPEG


 
- Andrew -   (2002-12-17 10:05) [9]

Ставь себе Envision Image Library и наслаждайся.
А в базу лучше все-таки Tiff кидать, как правильно сказал app.


 
dim-   (2002-12-17 10:10) [10]

Надо стандартными, дельфовыми средствами, или бесплатными


 
dim-   (2002-12-17 16:56) [11]

Ну народ, может кто знает как палитру сменить, чтобы не полноцветная была, а черно-белая.
делаю так: сканирую в image1 страницу текста
image1.Picture.Bitmap.PixelFormat:=pf8bit;
image1.Picture.Bitmap.Assign(jpg);
jpg.CompressionQuality := 30;
jpg.Performance := jpBestSpeed;
jpg.Assign(image1.Picture.Graphic);
jpg.SaveToFile(dirpath);
но результат как 130-200 Kb на страницу так и остается, а тотже FotoEdit 60Kb на ту же страницу


 
dim-   (2002-12-18 12:12) [12]

Ну народ, может кто знает как палитру сменить, чтобы не полноцветная была, а черно-белая.
делаю так: сканирую в image1 страницу текста
image1.Picture.Bitmap.PixelFormat:=pf8bit;
image1.Picture.Bitmap.Assign(jpg);
jpg.CompressionQuality := 30;
jpg.Performance := jpBestSpeed;
jpg.Assign(image1.Picture.Graphic);
jpg.SaveToFile(dirpath);
но результат как 130-200 Kb на страницу так и остается, а тотже FotoEdit 60Kb на ту же страницу



 
Мышь   (2002-12-19 00:40) [13]

Как над качеством не издевайся, все равно, если в JPG точек много, он будет занимать МЕСТО :) Поэтому, видимо, стоит уменьшить разрешение при сканировании.
И, потом, если это документы, то их не каждую минуту из Базы берут => можно пожать дополнительно каким-нибудь архиватором, но с JPG это не пройдет - меньше он не станет, так что лучше TIFF.
А еще JPG бывает GrayScale, то есть его размер должен существенно уменьшиться. Поищи такую настроечку.
Успехов!


 
Rouse_   (2002-12-19 00:55) [14]

> Anatoly Podgoretsky © (17.12.02 09:28)
> Открою тайнц, не все просмотровщики могут открыть и JPEG

Анатолий, нельзя ли поподробнее, для некоторых моих программ это критично, они выводят данные в JPEG. Где подводные камни?

Заранее спасибо


 
dim-   (2002-12-19 12:23) [15]

Спасибо Мышка, очень помогло



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

Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.59 MB
Время: 0.042 c
3-98981
alxx
2002-12-09 12:11
2002.12.30
Проблема с триггером


3-98963
kol
2002-12-09 14:06
2002.12.30
События компонента TField


1-99066
laser
2002-12-19 14:11
2002.12.30
Очень НАДО


1-99073
Эльвира
2002-12-18 15:39
2002.12.30
Как разбить строку на подстроки?


14-99347
Sergo
2002-12-11 07:49
2002.12.30
VBA





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский