Delphi. Трюки и эффекты

11.3. Слежение за компьютером по сети

Теперь рассмотрим более интересный пример использования сетевых компонентов IdTCPServer и IdTCPQient, который может быть полезен для людей, имеющих отношение к администрированию компьютеров сети.

Серверная программа предварительно запускается на наблюдаемом компьютере. В этом примере программа-сервер позволяет клиентской программе получать следующие сведения о компьютере, на котором она (программа-сервер) запущена:

• разрешение монитора;

• глубину цвета для монитора;

• полноразмерную копию экрана;

• копию экрана, уменьшенную (или увеличенную) до заданных размеров.

Для получения указанных сведений программа-клиент должна послать серверу следующие строковые значения:

• get_screen_width – для получения ширины и get_screen_height – для получения высоты экрана в пикселах;

• get_screen_colors – для получения значения установленной для монитора глубины цвета (бит на точку);

• get_screen – для получения полноразмерной копии экрана;

• get_screen: X, Y – для получения копии экрана, приведенной к размеру Хх Y.

Сначала рассмотрим реализацию сервера (проект SpyServer). Весь код, обеспечивающий работу сервера, помещен в модуле Unitl. pas формы Forml. Обработчик запросов клиентов – главная процедура для сервера – приводится в листинге 11.3.