![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
просмотр рабочего стола клиента на сервере
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;
вот, что-то типа того :)))