Как правильно открыть, сжать и сохранить 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.

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

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