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

Вниз

Чёрнобелый Jpeg   Найти похожие ветки 

 
SH ©   (2004-02-05 11:03) [0]

Получаю DC Рабочего Стола, кидаю всё это в BitMap, потом следующее:
var
jpg:TJpreg;
begin
...
jpg.GrayScale:=True;
Jpg.Compress;
Jpg.SaveToFile()
...

Короче, беру в BMP и конверчу в Jpeg, затем сохраняю.
Трабл. Когда GrayScale в True, то на выходе получаю файлы нулевого размера, иначе - всё путём и в цвете.


 
Fenik ©   (2004-02-05 17:41) [1]

jpg:TJPEGImage; (?)
...
Jpg.Compress; - это вроде бы лишнее.


 
dmk ©   (2004-02-06 00:58) [2]

Jpeg не поддерживает Indexed или Palette цвет


 
Mantic0re   (2004-02-06 09:51) [3]

>dmk
>>"Jpeg не поддерживает Indexed или Palette цвет"
Да.

Но оттенки серого(grayscale) поддерживает, формат не использует его как индексы в палитре - для него это просто уровни яркости, которые он и кодирует.


 
SH ©   (2004-02-06 14:58) [4]

Привожу процедуру с ошибкой полностью:

procedure TFSPy.CopyScreen;
var
DC:HDC;
bMap:TBitMap;
Jpg:TJpegImage;
begin
bMap:=TBitMap.Create;
Jpg:=TJpegImage.Create;
bMap.Height:=Screen.Height;
bMap.Width:=Screen.Width;
DC:=GetDC(0);  //Дескpиптоp экpана
BitBlt(bMap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
Jpg.Assign(bMap);
{устанавливаем степень сжатия (качество) 1..100}
jpg.CompressionQuality:=TrackBar1.Position;
{если установлен флаг " Оттенки серого" , то пусть картинка будет серой:)}
// Сие не пашет
jpg.Grayscale:=True;

{Упаковываем графику}
jpg.Compress;
Jpg.SaveToFile("c:\file"+IntToStr(Count)+".jpg");
ReleaseDC(0,DC);
bMap.Free;
Jpg.Free;
end;


 
dmk ©   (2004-02-06 22:36) [5]

Так сделай серый RGB. Jpeg его намного мощнее сожмет, т.к.
RGB значения будут одинковы =) И хорош мучиться.



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

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

Наверх




Память: 0.47 MB
Время: 0.055 c
1-1081740909
John
2004-04-12 07:35
2004.05.02
Rave Report


7-1078809077
lucky4me
2004-03-09 08:11
2004.05.02
phone via voice modem


8-1075735647
chsv
2004-02-02 18:27
2004.05.02
последовательность .wmf файлов


1-1082032138
ASvencim
2004-04-15 16:28
2004.05.02
Как рандомайзом выбирать картинки?


1-1082092101
guest_Dmitry
2004-04-16 09:08
2004.05.02
Подскажите компонент