Как сжать скриншот?

@Артемида1996 · Регистрация: 26.11.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте. У меня есть код, который делает скриншоты:

Delphi

var
ScreenTC : TCanvas;
ScreenBM : TBitMap;
begin
ScreenTC := TCanvas.Create;
ScreenBM := TBitMap.Create;
ScreenTC.Handle := GetDC(Hwnd_Desktop);
ScreenBM.Width := Screen.Width;
ScreenBM.Height := Screen.Height;
ScreenBM.Canvas.CopyRect(ScreenBM.Canvas.ClipRect, ScreenTC, ScreenTC.ClipRect);
ScreenBM.SaveToFile(TargetFile);
ScreenBM.Free;
ScreenTC.Free; 
end;

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

@TFullControl · 17.04.2017, 16:37

Впихнуть его в TJPGImage модуль JPEG.pas
У вас он сейчас bmp в jpg раз так в 10 меньше будет.

@GoodWeather · 17.04.2017, 16:59

https://www.cyberforum.ru/post10286931.html

https://www.cyberforum.ru/post10306738.html

@droider · 17.04.2017, 17:30

Сообщение от Артемида1996

скриншоты получаются слишком тяжелыми

сохраняйте в PNG.

Добавлено через 52 секунды

Сообщение от TFullControl

jpg раз так в 10 меньше будет

в PNG еще меньше.

Добавлено через 1 минуту
Артемида1996, версия среды какая?

@GoodWeather · 18.04.2017, 01:30

Не по теме:

Не, jpeg с потерями же, оно будет меньше PNG. Ну если тока не задавать самое максимальнейшее качество.

@Артемида1996 · 18.04.2017, 15:15 **[ТС]**

Сообщение от TFullControl

Впихнуть его в TJPGImage модуль JPEG.pas

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

@TFullControl · 18.04.2017, 15:28

Сообщение от Артемида1996

Но для этого, мне нужно понять, где переменная типа TCanvas, хранит полученный скриншот, как получить к нему доступ

Сильно заморачиваетесь, если не отступать в сторону от вашего примера то:

Delphi

var
  ScreenTC : TCanvas;
  ScreenBM : TBitMap;
  jpg: TJPEGImage;
begin
  jpg:= TJPEGImage.Create;
  ScreenTC := TCanvas.Create;
  ScreenBM := TBitMap.Create;
  ScreenTC.Handle := GetDC(Hwnd_Desktop);
  ScreenBM.Width := Screen.Width;
  ScreenBM.Height := Screen.Height;
  ScreenBM.Canvas.CopyRect(ScreenBM.Canvas.ClipRect, ScreenTC, ScreenTC.ClipRect);
  jpg.Assign(ScreenBM);
  jpg.SaveToFile(TargetFile);
  ScreenBM.Free;
  ScreenTC.Free;
  jpg.Free;
end;

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	17.04.2017, 16:37	2
	Впихнуть его в TJPGImage модуль JPEG.pas У вас он сейчас bmp в jpg раз так в 10 меньше будет. 0

@GoodWeather 884 / 586 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	17.04.2017, 16:59	3
	https://www.cyberforum.ru/post10286931.html https://www.cyberforum.ru/post10306738.html 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	17.04.2017, 17:30	4
	Сообщение от Артемида1996 скриншоты получаются слишком тяжелыми сохраняйте в PNG. Добавлено через 52 секунды Сообщение от TFullControl jpg раз так в 10 меньше будет в PNG еще меньше. Добавлено через 1 минуту Артемида1996, версия среды какая? 0

@GoodWeather
	18.04.2017, 01:30 #5
	Не по теме: Не, jpeg с потерями же, оно будет меньше PNG. Ну если тока не задавать самое максимальнейшее качество. 0

@Артемида1996 -79 / 1 / 0 Регистрация: 26.11.2016 Сообщений: 146
	18.04.2017, 15:15 [ТС]	6
	Сообщение от TFullControl Впихнуть его в TJPGImage модуль JPEG.pas Это-то понятно. Но для этого, мне нужно понять, где переменная типа TCanvas, хранит полученный скриншот, как получить к нему доступ, чтобы сжать? 0

	18.04.2017, 15:28