Главная Всё о Delphi Регистрация

Вход

Приветствую Вас Гость | RSSВторник, 21.11.2017, 05:34
Меню сайта

Категории каталога
Начинающим [44]
Материалы для начинающих
Трюки [2]
Трюки
Разное [94]
Материалы на разные темы

Наш опрос
Нашли ли вы нужную вам информацию на этом сайте?
Всего ответов: 56

Каталог статей
Главная » Статьи » Начинающим

Урок 34. Работа с сетью

Изучим основы работы с сетью. Компонент 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;

 

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

            Всё на этом урок закончен.

Категория: Начинающим | Добавил: Дубин (01.09.2007) | Автор: Дубин Михаил Олегович
Просмотров: 581 | Рейтинг: 0.0/0 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Рейтинг@Mail.ru

Реклама

Copyright MyCorp © 2017Сайт управляется системой uCoz