![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Скриншот по сети [D7, WinXP]
nordic3 © (2006-08-20 20:40:00)У меня два компа в локальной сети. Реально ли (и как) сделать скриншот экрана с одного компа, а отобразить на втором (в Image например)?
tButton (2006-08-22 08:34:00) [1]
> зыж предвижу вопрос "а как её там запустить". проверим,
> хороший ли я провидец. %-)
делал такое =)
троянил сетку =)
прога возвращала скриншот области радиусом 50пкс вокруг курсора раз в секунду.
Ketmar (2006-08-21 21:17:00) [2]> [5] nordic3 (21.08.06 19:59)
а точно так же. только программа, которая делает шот, должны быть запущена не у тебя на компе, а на том компе, шот которого нужен.
зыж предвижу вопрос "а как её там запустить". проверим, хороший ли я провидец. %-)
nordic3 (2006-08-21 19:59:00) [3]А как сделать это по локальной сети?
DevilDevil (2006-08-21 15:17:00) [4]ОПЕЧАТАЛСЯ. Так вроде надо:
BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, 0, 0, SRCCOPY);
DevilDevil (2006-08-21 15:15:00) [5]Скриншоты делаются примерно так (я правда, не проверял):
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;
nordic3 (2006-08-21 14:31:00) [6]Все! Как получить скриншот? Как его передать? Ну, если он есть, то отобразить легко...
Пожалуйста, помогите!
Желательно подробный пример!
Please...
Virgo_Style (2006-08-20 21:02:00) [7]это реально. Надо получить скриншот, передать его, отобразить. Что именно вызывает затруднения?