Home

Page 207
Page 207
background image

 Глава 4

В обработчике нажатия кнопки Connect пишем следующий код:

procedure

 TObject);

begin

IDTelnetl.Host := EdtServer.Text;
IDTelnetl.port :=

end;

В первых трех строках я устанавливаю свойства компонента

 1:

 Terminal — здесь указывается в виде текста тип используемого термина-

ла;

 Host

 адрес сервера, к которому будем подключаться;

 Port — номер порта, к которому нужно производить подключение.

Обработчик нажатия кнопки Disconnect еще проще:

procedure TTelnetForm.btnDisconnectClick(Sender: TObject);

begin

end;

Здесь просто вызывается метод Disconnect компонента IdTelnetl, что при-

водит к отключению от сервера.

Для отправки команд на сервер мы создадим обработчик события

OnKeyPress для компонента

 В этом обработчике напишем следую-

щее:

procedure

 TObject;

var Key:

begin

if

 then

begin

 ;

end;

end;

Здесь происходит проверка: если компонент IdTelnetl подключен к серве-
ру, то символ нажатой клавиши нужно передать на сервер. Для этого исполь-
зуется метод sendch компонента IdTelnetl, а в качестве параметра этому
методу передается нажатый символ. Теперь, когда мы нажимаем любую кла-
вишу для ввода символа в компонент Memol, этот символ моментально от-

правляется на сервер.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.