Home

Page 208
Page 208
background image

Простые приемы работы с сетью 201

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

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

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

procedure

 TObject) ;

begin

 подключен.');
 выполнять

 ;

end;

В принципе, вся работа этого обработчика направлена на то, чтобы проин-

формировать пользователя о том, что соединение произошло успешно.

Я просто вывожу соответствующий текст в компонент Memol, что придаст

программе большую наглядность.

Теперь создадим обработчик события

 компонента

idTeineti. Этот обработчик вызывается каждый раз, когда к нам с сервера
поступили данные. В нем нужно написать код из листинга 4.9.

procedure

const Buffer: String);

const

CR = #13;
LF  #10;

var

Start, Stop: Integer;

begin

Start

 1;

Stop := Pos(CR,
if Stop = 0 then

Stop

 + 1;

while Start <=

 do

begin

 - 1] :=

 ~ 1] +

Copy(Buffer, Start, Stop  Start);

if

 CR then

begin


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

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