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

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

просмотр рабочего стола клиента на сервере


Morfeus ©   (2004-01-30 12:56:00) 

Нужно с компа клиента отправить изображение рабочего стола на комп сервера, если у кого пример или ссылка ?


Wm.DIGGER   (2004-02-03 08:44:00) [1]

на клиентской машине должна быть установлена прога - клиент, которая будет "воровать" изображение рабочего стола и пересылать его на сервер. Это обычное приложение типа клиент-сервер. т.е. тебе нужно просто передать файл с картинкой по от клиента к серверу ... (как передаются файлы, писать не буду, этого добра и на этом форуме и вообще в нете куча)
// а сграбить экран можно так (мы сохраняем экран в JPEG и потом этот файл пересылаем по сети ...)


uses JPEG;
var DC:HDC;
   BMP:TBitMap;
   JPEG:TJPEGImage;
begin
BMP := TBitMap.Create;
BMP.Width := Screen.Width;
BMP.Height := Screen.Height;
BMP.PixelFormat := pf24bit;
DC := GetDC(0);
BitBlt(BMP.Canvas.Handle,0,0,BMP.Width,BMP.Height,DC,0,0,SRCCOPY);
ReleaseDC(0,DC);
JPEG := TJPEGImage.Create;
JPEG.CompressionQuality := 80; // качество JPEG'а
JPEG.Compress;
JPEG.Assign(BMP);
JPEG.SaveToFile('screen.jpg');
JPEG.Free;
BMP.Free;
end;


вот, что-то типа того :)))


Наверх

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