Home

Page 196
Page 196
background image

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

 integer;

В обработчике события onclick кнопки Подключиться напишите следую-

щий код:

procedure

begin

end;

В первой строке устанавливается адрес компьютера, где расположен сервер,

с которым надо соединиться. Во второй строке активизируем клиента и со-
единяемся.

В обработчике события onclick кнопки Отключиться располагаем следую-

 код:

procedure TForml.DisconnectButtonClick(Sender; TObject);

begin

end;

Здесь мы просто закрываем соединение.

Теперь СОЗДаДИМ Обработчик СОбыТИЯ OnConnect КОМПОНеНТа ClientSocket.

Этот обработчик будет вызываться тогда, когда клиент установит связь

с сервером. В нем напишем следующее:

procedure

 TObject;

Socket: TCustomWinSocket};

begin

 ;

end;
Как только мы соединились с сервером, сразу же отправляем ему команду
чтобы сервер выслал файл. Ну а теперь нужно создать обработчик события

 для компонента ClientSocket, который будет вызываться каждый раз,

когда клиенту приходят данные. В нем пишем следующий код (листинг 4.7).

гка пришедших

procedure

 TObject;

Socket: TCustomWinSocket);

var

s,

 string;


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

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