jak zmienić plik obrazek.jpg na taki z mniejszą rozdzielczością i zapisać?
0
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.