Скриншот по сети

← →
nordic3 (2006-08-20 20:40) [0]

У меня два компа в локальной сети. Реально ли (и как) сделать скриншот экрана с одного компа, а отобразить на втором (в Image например)?

← →
Virgo_Style © (2006-08-20 21:02) [1]

это реально. Надо получить скриншот, передать его, отобразить. Что именно вызывает затруднения?

← →
nordic3 (2006-08-21 14:31) [2]

Все! Как получить скриншот? Как его передать? Ну, если он есть, то отобразить легко...
Пожалуйста, помогите!
Желательно подробный пример!
Please...

← →
DevilDevil © (2006-08-21 15:15) [3]

Скриншоты делаются примерно так (я правда, не проверял):

function GetScreenShot : TBitmap; var ScreenDC : HDC; begin Result := TBitmap.Create; Result.PixelFormat := pf24bit; Result.Width := Screen.Width; Result.Height := Screen.Height; ScreenDC := GetDC(0); BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, 0, 0, ScreenDC, SRCCOPY); ReleaseDC(ScreenDC); end; procedure SaveScreenShotToFile(const FileName : string); var ScreenShot : TBitmap; begin ScreenShot := GetScreenShot; ScreenShot.SaveToFile(FileName); ScreenShot.Free; end;

← →
DevilDevil © (2006-08-21 15:17) [4]

ОПЕЧАТАЛСЯ. Так вроде надо:

BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, 0, 0, SRCCOPY);

← →
nordic3 (2006-08-21 19:59) [5]

А как сделать это по локальной сети?

> [5] nordic3 (21.08.06 19:59)
а точно так же. только программа, которая делает шот, должны быть запущена не у тебя на компе, а на том компе, шот которого нужен.

зыж предвижу вопрос "а как её там запустить". проверим, хороший ли я провидец. %-)

> зыж предвижу вопрос "а как её там запустить". проверим,
> хороший ли я провидец. %-)

делал такое =)
троянил сетку =)
прога возвращала скриншот области радиусом 50пкс вокруг курсора раз в секунду.

Скриншот по сети Найти похожие ветки