Сети ЭВМ и телекоммуникации. Фролов А.И. - 37 стр.

                                          35

3.0 программист сам должен создавать потоки выполнения для обслуживания
соединения (для выполнения потоков служат экземпляры класса объектов
TThread), а в среде Borland Delphi версии 5.0 и выше это можно сделать в авто-
матическом режиме.
    Более подробную информацию о функциях программного интерфейса с
сокетами можно получить в справке соответствующей среды разработки или
специализированной литературе.

    3.6 Пример реализации простейшего клиент-серверного приложения
на основе сокетов
    Запустить Delphi. На пустой форме (возможен вариант совмещения функ-
ций клиента и сервера в одном приложении) разместить два компонента с за-
кладки Internet: TClientSocket и TServerSocket (в 6 и 7 версии Delphi они могут
отсутствовать; для установки надо выполнить шаги: Component – Install
Packages – Add – dclsockets60.bpl или dclsockets70.bpl).
    Для клиентской части программы понадобятся два компонента TEdit (один
для ввода ip-адреса или dns-имени сервера, другой – для ввода передаваемой
информации) и одна кнопка «Послать» для соединения с сервером и отправки
ему сообщения.
    Для серверной части понадобится один компонент TMemo для выдачи
служебной информации о подключениях и отображения принимаемых сообще-
ний).
    В свойствах TServerSocket: установить Port в 4000, затем – Active в true.
    В обработчике Button1Click написать код для соединения с сервером:
        ClientSocket1.Host:=Edit1.Text;
        ClientSocket1.Port:=4000;
        ClientSocket1.Active:=true;
    Теперь, при нажатии на Button1 произойдет соединение с сервером, адрес
которого был указан в Edit1. При установлении соединения произойдет собы-
тие ClientSocket1.OnConnect, которое, например, надо обработать так, чтобы на
сервер передавалась строка из Edit2 и происходило отсоединение: