Объем изображения

[Lokos]

Как сделать следующее
Скажем есть фотогграфия в jpeg с хорошим качеством соотвецтвенно она занимает много места скажем 2mb
как можно ухудшить качество и уменьшить объем.

[raxp]

вариантов масса... как пример - воспользуйтесь функой StretchDraw для bitmap-a (есст-но преобразовав jpeg или загрузив в TJpegImage) или у того-же TJpegImage есть свойство scale, тощо...

[mihali4]

Посмотрите свойства и методы TJPEGImage.
Вот я вам набросал простой пример сжатия:

procedure TForm1.Button1Click(Sender: TObject);
var myjpg: TJPEGImage;
begin
myjpg:=TJPEGImage.Create;
myjpg.Scale:=jsFullSize;
myjpg.LoadFromFile('c:\myjpg1.jpg');
Image1.Picture.Bitmap.Assign(myjpg); //смотрим до сжатия
Application.ProcessMessages;
myjpg.CompressionQuality:=50; //качество 50%
myjpg.Compress; //сжимаем
Image2.Picture.Bitmap.Assign(myjpg); //смотрим после сжатия
Application.ProcessMessages;
myjpg.SaveToFile('c:\myjpg2.jpg');
myjpg.Free;
end;

[Lokos]

var myjpg: TJPEGImage;
ошибка сходу Undiclaret identifier TJPEGImage;
может библиотеку подключить какую нужно?


Спасибо разобрался