Программа делает слишком тяжелые скриншоты

[Кортана]

Это...лучше посмотреть, как делают другие)
http://www.swissdelphicenter.ch/torr...ode.php?id=259
http://delphi.about.com/od/adptips19...screenshot.htm

Там изображение сохраняеться в формат .bmp(см. параметр ф-й).
Для уменьшения размера, попробуйте такое:
Код:

uses jpeg;

...
var
jpg: Tjpegimage;
begin
jpg:=Tjpegimage.create;
jpg.assign(bmp); //где bmp - изображение, полуяченое функцией, которое есть по ссилке вверху
jpg.CompressionQuality:=30; // ваше значение
jpg.Compress;
jpg.free;
end;

Ану, пробуйте.


_____________
Цитата: выкидывает сообщение: cannot assign TPicture to a JPEGImage

Попробуйте немного изменить код:
Код:

jpg.assign(image1.picture.graphic);

Все попробовала. Все прекрасно компилируется, только вот толку никакого. Файл все равно получается под два мега, даже если сохранять с расширением .bmp