Скачать: CL | DM;

*.JPEG true color -> 256 grays   Найти похожие ветки 

← →
DancerMan ©   (2006-11-22 11:07) [0]

Добрый день!
Задача - изменить в *.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);  )
Подскажите, где ошибка? Другие предложения?

---

← →
clickmaker ©   (2006-11-22 12:03) [1]

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;

---

← →
DancerMan ©   (2006-11-22 12:25) [2]

Спасибо!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c