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

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

Оценка: 0 (0|0|0|0|0) [0]

Авторский комментарий к работе: Сохраняет экран в файл JPEG

Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:

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

Sidiys ::: комментарий от 05.06.2007 \| 17:43
	Неофит (ур.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
	Перспективный (ур.8) Очки: 1601 Город: Ангарск Тв. работ: 8 Рег: 23.01.2007 (3023)	А не легче просто нажать кнопку Prt Scr (Print Screen) и вставить изображение в Paint? -------------------- Иногда приходиться отходить от правил, дабы освободиться...