| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

*.JPEG true color -> 256 grays [D7]

DancerMan ©   (2006-11-22 11:07:00) 

Добрый день!
Задача - изменить в *.jpg true color на 256 Grays.
Беру растиражированный в интернете пример.
 jpg:=TJpegImage.Create;
 jpg.LoadFromFile('D:\Projects\Pictures\pic\test.jpg');
 jpg.CompressionQuality:=100;
 jpg.Grayscale:=true;
 jpg.Compress;
 jpg.SaveToFile('D:\Projects\Pictures\pic\1\test.jpg');
 jpg.Free;
В результате сохраняется файл с размером 0.
Пробовал и через Image ( jpg.Assign(image1.picture.graphic);  )
Подскажите, где ошибка? Другие предложения?

---

DancerMan   (2006-11-22 12:25:00) [1]

Спасибо!

---

clickmaker   (2006-11-22 12:03:00) [2]

jpg:=TJpegImage.Create;
bmp := TBitmap.Create;
try
 jpg.LoadFromFile('D:\Projects\Pictures\pic\test.jpg');
 bmp.Assign(jpg);
 jpg.PixelFormat := jf8Bit;
 jpg.Grayscale:=true;
 jpg.Assign(bmp);
 jpg.SaveToFile('D:\Projects\Pictures\pic\1\test.jpg');
finally
 jpg.Free;
 bmp.Free;
end;

---

Наверх