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

[m4igor]

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

 

[vital]

а нафиг компонент???

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

 

[EdgarWine]

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

 

[vital]

Вот только почему jpg?

Просто так.

в uses модуль JPEG

Он появился только в Delphi 2010

 

[EdgarWine]

Эм... У меня и в Delphi6 и в Delphi7 есть... Прекрасно всё работает...

 

[Dock1100]

Эм... У меня и в Delphi6 и в Delphi7 есть... Прекрасно всё работает...

У меня в Delphi 2006 тоже есть и нормально работает.

Просто так.
Он появился только в Delphi 2010

Может вы путаете с pngimage, хотя его добавили еще в Delphi 2009 версии?

 

[vital]

Может вы путаете с pngimage

хм.. может)