Как уменьшить размер рисунка?

[ДимаДК]

Видал этот сайт: http://www.cyberforum.ru/delphi-mult...ead554474.html , и этот код: uses
JPEG;
...
var
jpg_img: TJPEGImage;
begin
image.picture.LoadFromFile('адрес файла')
jpg_img := TJPEGImage.Create;
jpg_img.Assign(Image1.Picture.Bitma p);
jpg_img.CompressionQuality := 100(или менее); // от 0 до 100, где 100 -самое лучшее качество
jpg_img.Compress;
jpg_img.SaveToFile(FileName);
jpg_img.Free;
end; Но после преобразования файл становиться объемом 0 байт, и Windows не читает этот новый файл. Как мне нормально правильно сжать картинку? (Если можно с примерами и кодом).

[Smitt&Wesson]

Примерно ТАК. Правда это на Борланде, но думаю, перевести на Дельфина будет не сложно.

[ДимаДК]

Сообщение от Smitt&Wesson

Примерно ТАК. Правда это на Борланде, но думаю, перевести на Дельфина будет не сложно.

Согласен, возможно для профи это не сложно, но я знаком только с Делфи . Вы не могли бы выполнить перевод?