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

[Кортана]

Привет всем.
У меня такая проблема: я написала программу, делающую скриншоты с помощью вот этого кода:

var
S : TCanvas;
V : HDC;
begin
V := GetDC(0);
S := TCanvas.Create();
S.Handle := ScreenV;
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height),
S, Rect(0, 0, Screen.Width, Screen.Height));
ReleaseDC(0, ScreenV);
S.Free;
Image1.Picture.SaveToFile('Image.jpg');

Но тут у меня возникла одна проблема: вес получаемых скриншотов. Они идут от двух мегабайт и более. Нельзя ли, как-то уменьшить их вес, чтобы при тех же размерах картинок, вес был бы меньше, в пределах сотен килобайт, хотя бы?

[Delphi_ProGer]

Делайте компрессию jpeg.

[Кортана]

Делайте компрессию jpeg.

А как ее сделать?

[Delphi_ProGer]

Например,

jpg.CompressionQuality:=30;
jpg.Compress;

[Кортана]

Например,
Код:

jpg.CompressionQuality:=30;
jpg.Compress;

А можно полный код?

[Delphi_ProGer]

uses jpeg;

var
S : TCanvas;
V : HDC;
jpg: tjpegimage;
begin
jpg:=Tjpegimage.create;
V := GetDC(0);
S := TCanvas.Create();
S.Handle := ScreenV;
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height),
S, Rect(0, 0, Screen.Width, Screen.Height));
ReleaseDC(0, ScreenV);
S.Free;
//Image1.Picture.SaveToFile('Image.jpg');
jpg.assign(image1.picture);
jpg.CompressionQuality:=30;
jpg.Cpmpress;
jpg.free;

Код писал здесь, поэтому не знаю, будет ли работать, и уменьшиться ли размер изображения.

[Кортана]

jpg.CompressionQuality:=30;

И напоследок, еще один вопрос: что означает число 30?

[Delphi_ProGer]

Сообщение от Кортана

И напоследок, еще один вопрос: что означает число 30?

Процент качества, или как то так.

[Кортана]

Код писал здесь, поэтому не знаю, будет ли работать, и уменьшиться ли размер изображения.

Действительно не работает, программа выкидывает сообщение: cannot assign TPicture to a JPEGImage. И вес получаемого скриншота, остается таким же огромным.

[Delphi_ProGer]

Это...лучше посмотреть, как делают другие)
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);