rozdzielczość pliku jpg

0

jak zmienić plik obrazek.jpg na taki z mniejszą rozdzielczością i zapisać?

0

pisze z pamieci :

uses JPEG;

var
jpgMaly, jpgDuzy : TJPEGImage;

begin
jpgMaly := TJPEGImage.create;
jpgDuzy := TJPEGImage.create;

jpgDuzy.LoadFromFile(sciezka);
jpgMaly.width := szerokosc;
jpgMaly.heigth := wysokosc;

jpgMaly.Canvas.DrawStrech(rect(0,0,szerokosc,wysokosc), jpgDuzy);
jpgMaly.SaveToFile(sciezka);
jpgMaly.Free;
jpgDuzy.Free;
end;

powinno zadziałać, a jeśli nie to najpierw przerabiamy jpegi na bmp, a to jest w FAQ.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0