Читаем Delphi. Трюки и эффекты полностью

Как можно увидеть, даже самая сложная операция рассматриваемого сервера копирование изображения – реализуется довольно просто благодаря наличию такого стандартного класса, как TMemoryStream.

При реализации сервера использован таймер. Он применен для скрытия формы сервера сразу при запуске приложения (не забудьте установить значения его свойств Enabled = True и Interval = 50). Компонент IdTCPServer (с именем IdTCPServerl) в этом примере присоединен к порту 12341 (не забудьте также установить свойство Active = True).

Теперь о реализации клиентского приложения (проект SpyClient). Внешний вид формы (Forml) клиента во время работы приводится на рис. 11.5 (видно, что пользователь наблюдаемого компьютера только что проиграл в игру Сапер ).

Рис. 11.5. Внешний вид клиента слежения

Описания, имена и значения настроенных вручную свойств самых важных компонентов формы клиента приведены в табл. 11.1. Таблица 11.1. Основные компоненты формы клиента слежения и их свойства

...

procedure TForm1.cmbConnectClick(Sender: TObject);

begin

if (cmbConnect.Caption = \'Подключиться\') then

begin

if (txtServer.Text = \'\') then

//Не введено имя сервера

MessageDlg(\'Введите имя машины-сервера в текстовое поле\',

mtInformation, [mbOK], 0)

else begin

//Подключаемся к серверу

IdTCPClient1.Host := txtServer.Text;

try

IdTCPClient1.Connect;

except

MessageDlg(\'Не удается соединиться с указанным сервером\',

mtError, [mbOK], 0);

Exit;

end;

end

end

else begin

//Отключаемся от сервера

IdTCPClient1.Disconnect;

end;

end;

Если соединение с сервером произошло успешно, то выполняется обработчик TForml. IdTCPClientlConnected, подготавливающий приложение-клиент к периодическим запросам данных с сервера (листинг 11.6).

...

Действия, выполняемые при соединении с сервером

procedure TForm1.IdTCPClient1Connected(Sender: TObject);

begin

txtServer.Enabled := False;

cmbConnect.Caption := \'Отключиться\

//Начинаем периодически запрашивать данные с сервера

Timer1.Enabled := True;

//Выполним первый запрос, не дожидаясь срабатывания таймера

Timer1Timer (Nil);

end;

При отсоединении от сервера также выполняются действия, прекращающие периодические запросы данных и переводящие клиент в состояние ожидания подключения (первоначальное состояние программы) (листинг 11.7).

...

Действия при отсоединении от сервера

procedure TForm1.IdTCPClient1Disconnected(Sender: TObject);

begin

txtServer.Enabled := True;

cmbConnect.Caption := \'Подключиться\

Timer1.Enabled := False;

end;

Самой сложной частью клиентского приложения является обработка данных, присылаемых сервером. Клиентское приложение запрашивает данные по таймеру и обрабатывает полученные данные так, как показано в листинге 11.8.

...