Май - Xakep Online

coding
АнДРей «littleBUddA» ШкРыль
/ Shkrylandrei@rambler.ru /
Ваяем radmin
НАПиСАть ПрОГрАММУ ДЛЯ УДАЛеННОГО
АДМиНиСтрирОВАНиЯ? ЛеГКО!
Как же интересно наблюдать на своем мониторе за тем, что делает твой сосед по отделу,
и понимать, что под его грозным видом скрывается человек с трогательной привязанностью
к сайтам знакомств и любовью к фотографиям пятничной тематики! Однако
речь в этой статье пойдет совсем не о вуайеризме…
Приступим
В этом материале мы рассмотрим создание несколько
усеченного и безвозмездного аналога
radmin’а. Кстати, мы испытали его в рабочих
условиях и узнали много нового о трудовых
буднях Никитоса. Оказывается, он, как и робот
Бендер, интересуется кулинарными онлайнпередачами!
Надеюсь, со временем он угостит
нас своей ядовитой стряпней ;).
Итак, приступим! Первым делом разработаем
серверную часть. Размести на форме следующие
компоненты (смотри рисунок):
• TIdTCPServer (закладка Indy Servers) — как
видишь, для работы с сетью мы будем использовать
компоненты INDY;
• два TEdit — в них вводятся IP-адрес сервера
и номер порта, по которому будет происходить
соединение;
• TButton с текстом «Включить сервер» — с
помощью нее ты будешь запускать сервер,
давая тем самым возможность подключаться
к своей машине. В конце концов, мы же всетаки
должны оставить пользователю право
решать, хочет он, чтобы за ним подсматривали,
или нет ;);
/ 120
• TMemo — в нем будет вестись лог всех осуществляемых
на сервере операций;
• TImage — к нему нам потребуется две
картинки, которые можно найти в исходниках
программы, находящейся на диске. Зовут эти
графические изображения eye1.bmp и eye2.
bmp, а олицетворять они будут соответственно
включенное и выключенное состояние сервера.
Размести компоненты на форме, как это показано
на рисунке.
Кодим сервер
Для начала создай обработчик для кнопки
«Включить…», который будет задавать IP-адрес
и номер порта для приема команд сервером.
Делается это через свойство Bindings, оно
является контейнером для всех сокетов, связанных
с сервером (смотри врезку «Активизация
сервера»). Далее необходимо активизировать
сервер посредством установки свойства Active
компонента TIdTCPServer в True, при этом
кнопка «Включить сервер» превращается в
«Выключить сервер» и меняется картинка в
TImage. Благодаря этому пользователь сможет
визуально наблюдать состояние сервера.
Листинг обработчика ты найдешь в исходниках
программы на DVD, прилагающемуся к журналу.
Также нам потребуется специальная процедура
Log — она отвечает за журналирование
действий, осуществляемых сервером.
Объяви ее в секции public формы следующим
образом:
procedure TForm1.Log(S:string);
Реализация ее очень проста:
Memo1.Lines.Add
(TimeToStr(Time)+' '+S);
Иначе говоря, в ней происходит обычное добавление
строки текста в TMemo. При желании
процедуру можно модифицировать, записывая
данные в файл или еще что-то в этом роде.
Кроме того, нам понадобится процедура для получения
скриншота экрана. Прежде чем писать
ее, установи компонент TPNGImage, который
позволяет работать с изображениями формата
PNG (компонент прилагается к исходникам
программы).
xàêåð 05 /101/ 07