*.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;

Спасибо!

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