захват содержимого экрана

  • Автор темы m4igor
  • Дата начала
M

m4igor

#1
нужен компонент для Delphi, который позволяет захватывать содержимое экрана и в идеале передать его по локальной сети. Но последнее необязательно, хотя просто захват экрана... есть наверное какие-то бесплатные компоненты... пока не нашел
 

vital

Больной Компом Детектед
29.01.2006
2 432
33
#2
а нафиг компонент???
Код:
begin
bmp:=TBitmap.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
bmp.SaveToFile('c:/Screen.jpg'); //Здесь можешь изменить путь, куда нужно сохранить файл. Так же в этой строчке изменяется название файла.
ReleaseDC(0, DC);
bmp.Free;
end;
будет создан файл - скриншот экрана с именем Screen.jpg
 
E

EdgarWine

#3
Вот только почему jpg? Это однако ошибочка, на самом деле оно будет в bmp... ;)
Для сохранения в jpg нужно добавить в uses модуль JPEG, так же как TBitmap создавать TJPEGImage, копировать битмап в него, задать компрессию, закодировать а уж после сохранять... ;)
 
E

EdgarWine

#5
Эм... У меня и в Delphi6 и в Delphi7 есть... Прекрасно всё работает...
 
09.11.2009
665
1
#6
Эм... У меня и в Delphi6 и в Delphi7 есть... Прекрасно всё работает...
У меня в Delphi 2006 тоже есть и нормально работает.

Просто так.
Он появился только в Delphi 2010
Может вы путаете с pngimage, хотя его добавили еще в Delphi 2009 версии?