[Delphi] Kompresowania JPEG

Oto mój kod:
else if (ExtractFileExt(OpenDialog1.FileName) = '.jpg') or (ExtractFileExt(OpenDialog1.FileName) = '.jpeg') then    begin      JPG := TJPEGImage.Create;      JPG.LoadFromFile(OpenDialog1.FileName);      JPG.CompressionQuality := SpinEdit1.Value;      if ComboBox1.ItemIndex = 0 then        JPG.Performance := jpBestQuality      else        JPG.Performance := jpBestSpeed;      JPG.Compress;      JPG.SaveToFile(ExtractFilePath(OpenDialog1.FileName) + 'skompresowane' + '.jpg'); // zapisanie      JPG.Free;    end;
Problem jest w tym, że aplikacja tworzy pusty plik, a miała skompresować wybrany. Czy ktoś mógłby wskazać co jest tutaj źle? Z góry dziękuję.
Użytkownik Mr X edytował ten post 07 styczeń 2006, 11:34

---

Przed JPG.Compress daj:
JPG.DIBNeeded;
będzie dobrze :)

Fakt Kokoszek, rotfl :/
Użytkownik Cyrkiel edytował ten post 07 styczeń 2006, 20:55
Jak usunie JPG.Compress, to mu nie skompresuje obrazka z nowymi parametrami ;)

---

Z tego co wiem, można zapisać w PNG zamiast JPG, który automatycznie kompresuje obraz.


Z tego co wiem, można zapisać w PNG zamiast JPG, który automatycznie kompresuje obraz.

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl