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

Как правильно открыть, сжать и сохранить JPEG?   Найти похожие ветки 

← →
Chaser ©   (2005-10-18 12:40) [0]

Задача: требуется открыть файл*.jpg, сжать его и сохранить куда-то на диск.

Код:

jpg:=TJpegImage.Create;
// присваиваем ему изображение
jpg.LoadFromFile(FileListbox1.FileName);
// устанавливаем степень сжатия (качество) - 1..100
jpg.CompressionQuality:=TrackBar1.Position;
// "Оттенки серого" false
jpg.Grayscale:=false;
// упаковываем графику
jpg.Compress;
//
jpg.SaveToFile(ExtractFilePath(Application.ExeName)+"\compress\"+FileListBox1.Items.Strings[k]);
//
jpg.Free;

Почему-то созданный файл имеет размер 0 байт. :(((
Хотя по уму вроде все правильно.
Подскажите плиз, как правильно сжать и сохранить картинку?

---

← →
Sapersky   (2005-10-18 14:46) [1]

Видимо, после загрузки нужно распаковать jpeg: jpg.DIBNeeded;
Т.к. перепаковка jpeg -> jpeg не предусмотрена, только jpeg -> bmp и bmp -> jpeg.

---

← →
Chaser ©   (2005-10-18 15:44) [2]

Спасибо! Теперь все ОК!

---

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

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



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