Исходники и листинги ::: Delphi ::: Скриншот в JPG

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  procedure ScreenToJPG(filename:String);
  var
  bm:TBitMap;
  jpg:TJPEGImage;
  begin
  bm:=TBitMap.Create;
  bm.Width:=Screen.Width;
  bm.Height:=Screen.Height;
  BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0,SRCCOPY);
  jpg:=TJPEGImage.Create;
  jpg.Assign(bm);
  jpg.SaveToFile(filename);
  jpg.Free;
  bm.Free;
  end;
<<< Предыдущая работа

Вернуться в галерею исходников
Скриншот в JPG
Автор: Аэтерос*
Город: Чита
Дата: 28.01.2007  11:17
Комментариев: 4
Просмотров: 373
Оценка: 0 (0|0|0|0|0) [0]

Вернуться на главную
Авторский комментарий к работе: Сохраняет экран в файл JPEG
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Add ::: комментарий от 16.06.2007 | 15:05
Add Человек (ур.3)
Очки: 162
Город: Ачинск
Тв. работ: 0
Рег: 29.01.2007 (3271)
Уж лучше было сразу в PNG - он лучше отображает стандартные (и не очень) windows-окна Да и для съёмки предпочтительней воспользоваться программами типа CamStudio (www.camstudio.org)


--------------------
addnote.xost.ru - мой проект.
Sidiys ::: комментарий от 05.06.2007 | 17:43
Sidiys Неофит (ур.7)
Очки: 1084
Город: Новосибирск
Тв. работ: 8
Рег: 31.03.2007 (4183)
Библия делфи если я не ошибаюсь?


--------------------
Тьма великодушна и всегда побеждает
Аэтерос* ::: комментарий от 30.01.2007 | 11:00
Аэтерос Неофит (ур.7)
Очки: 817
Город: Чита
Тв. работ: 4
Рег: 24.01.2007 (3057)
Ответ для z_KilleR 29.01.2007 | 19:01:

Данный код я использовал, когда надо было делать "мультисъёмку"(т.е. сохранять скрины каждую секунду).
z_KilleR ::: комментарий от 29.01.2007 | 19:01
z_KilleR Перспективный (ур.8)
Очки: 1601
Город: Ангарск
Тв. работ: 8
Рег: 23.01.2007 (3023)
А не легче просто нажать кнопку Prt Scr (Print Screen) и вставить изображение в Paint?


--------------------
Иногда приходиться отходить от правил, дабы освободиться...