Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

пересылка содержимого экрана [D5, NT4, Win2k]


bak ©   (2002-11-14 20:44:00) 

Уважаемые мастаки!
Извиняюсь за немного ламерский вопрос. Не подскажете ли плиз, как захватить содержимое экрана и затем передать по сети, как это сделано например в известном Remote Admin"e (там говорится про использование стандартного драйвера видеозахвата виндов). А то я уже что только не перепробовал - и снимки экрана BitBtn"ом (ёжику ясно, что времени занимает уйму, и проц нагружает не дай бог), и vmw юзать пробовал (захват видео с камеры - без проблем, но как захватить рабочий стол - это вопрос). Если у кого что есть - киньте или ссылочку, или примерчик на мыл.
заранее благодарен.


bak   (2002-11-16 16:32:00) [1]

неужто никто не знает?


bak   (2002-11-15 19:09:00) [2]

Спасибо конечно. только объясни мне может я не въезжаю - это ведь покадрово так же как BitBtn"ом делается снимок с экрана и потом битмапом (или жпегом) в сеть? но это занимает уйму времени. в радмине же коннектятся каким то образом к стандартному драйверу видеозахвата форточек.


AndreiR   (2002-11-15 18:18:00) [3]

Кусок собран из разных мест проги, поэтому просто посмотри эту схему.

var
DC : HDC;
Cnv : TCanvas;
Image1 : TImage;
begin
Image1.Width := round(Screen.Width);
Image1.Height := round(Screen.Height);
Cnv := TCanvas.Create;
Cnv.Handle := DC;
Image1.Canvas.CopyRect(Image1.ClientRect, Cnv, Rect(0, 0, Screen.Width, Screen.Height));


Передаешь используя
NMStrm1: TNMStrm;
NMMSGServ1: TNMMSGServ;


bak   (2002-11-15 13:29:00) [4]

Ответьте плз, хоть кто нибудь !


Наверх

Титульная страница Поиск, карта сайта Написать письмо