Отправляет email-рассылки с помощью сервиса Sendsay

Delphi. Уроки

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 8.314 RSS
←   Декабрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 19-12-2001

Автор
Алексеев Игорь

Статистика

8.314 подписчиков
0 за неделю
←   Все выпуски   →

Delphi. Уроки


Информационный Канал Subscribe.Ru

Delphi. Библиотека VCL. Уроки по программированию с сайта http://progs.biz

Рассылка №23

Delphi. VCL. Урок 36. Работаем с сетью. Класс TServerSocket.
Полные версии уроков (с картинками) можно найти по адресам
Урок 36. Работаем с сетью. Класс TServerSocket.

Изучаем Delphi. Библиотека VCL. Урок 36. Работаем с сетью. Класс TServerSocket

Компонент TServerSocket расположен на вкладке Internet.

Перенесите его на форму. Добавьте еще кнопку (по ней наш сервер начнет слушать сеть) и текстовое поле (в нем будут показываться полученные сервером от клиента данные).

Начинаем задавать свойства. Для серверного сокета устанавливаем порт в 3000. Можно установить и другой - это не принципиально. Важно только, чтобы порт не оказался занятым кем-нибудь другим. Этот же номер порта мы будем использовать и на клиенте. Далее измените свойство Caption для кнопки на "Слушать" и свойство Text для текстового поля Edit1 установите в "" (пустую строку).

В коде для кнопки пишем

procedure TForm1.Button1Click(Sender: TObject);
begin
  ServerSocket1.Active:=true;
end;

Т. е. при нажатии на кнопку сервер начинает слушать сеть на 3000 порту.

Далее пишем обработчик для полученных данных. Для этого в Инспекторе Объектов выбираем из combobox'а ServerSocket1, переходим на вкладочку Events и в списке событий делаем двойной щелчок на правой части строки OnClientRead.

В созданную заготовку пишем следующий код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Edit1.Text:=Socket.ReceiveText;
end;

В этом коде мы пишем полученные от клиента данные в текстовое поле. Для этого мы используем передаваемый в наш обработчик параметр Socket типа TCustomWinSocket.

Добавим еще код для показа того, что клиент подсоединился к нашему серверу. Для этого мы создаем аналогично предыдущей заготовку для события OnClientConnect нашего сервера и добавляем в нее следующий код:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Form1.Caption:='Клиент подсоединится';
end;

Т. е. при подсоединении клиента к нашему серверу у формы поменятся заголовок.

С написанием сервера все!

Наверх

Рассылки сайта progs.biz:

Subscribe.Ru
Уроки по ассемблеру

Уроки по ассемблеру. Использование MASM, примеры, FAQ.

Copyright Алексеев Игорь, 2002

Copyright сайт progs.biz, 2002

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное