Создание клиент-серверного приложения в Delphi Xe6 с использованием Indy: настройка TIdTcpServer и TIdTcpClient

Delphi , ОС и Железо , Windows

В данной статье мы рассмотрим процесс создания простого клиент-серверного приложения в среде Delphi Xe6 с использованием компонентов Indy: TIdTcpServer и TIdTcpClient. Пример будет включать отправку строки из клиентской формы на сервер.

Основные шаги настройки клиент-серверного соединения

Шаг 1: Настройка TIdTcpServer

Для начала работы с TIdTcpServer необходимо создать экземпляр этого компонента и настроить его свойства. В методе Create или Initialize формы добавьте следующий код:

FIndySrv := TIdTCPServer.Create(nil);
FIndySrv.DefaultPort := 50000;
FIndySrv.OnExecute := DoOnIndyExecute;
FIndySrv.Active := true;

Здесь мы создаем экземпляр TIdTCPServer, устанавливаем порт по умолчанию (50000) и назначаем обработчик события OnExecute.

Шаг 2: Обработка входящих данных

Обработчик DoOnIndyExecute будет вызван при каждом новом соединении. В нем мы можем читать данные, отправленные клиентом:

procedure TForm1.DoOnIndyExecute(AContext: TIdContext);
var
  Recv: string;
begin
  Recv := AContext.Connection.Socket.ReadLn;
  // Здесь можно добавить дополнительную логику обработки полученной строки
end;

Шаг 3: Настройка TIdTcpClient

Перейдем к настройке клиентской части. В клиентской форме создайте экземпляр TIdTCPClient и настройте его свойства:

FIndyClient := TIdTCPClient.Create(nil);
FIndyClient.Host := 'localhost';
FIndyClient.Port := 50000;
FIndyClient.Connect;

Укажите адрес сервера и порт, на котором он ожидает соединений, и выполните подключение.

Шаг 4: Отправка строки с клиента на сервер

После установления соединения, клиент может отправлять строки на сервер с помощью метода WriteLn:

FIndyClient.Socket.WriteLn(Edit.Text);

Где Edit - это компонент TEdit, содержащий строку, которую необходимо отправить.

Важные замечания

При работе с TIdTCPServer важно помнить, что событие OnExecute обрабатывается в отдельном потоке, поэтому нельзя напрямую взаимодействовать с UI-контролами, такими как TMemo. Для безопасного доступа к UI-контролам необходимо использовать механизмы синхронизации, например, TThread.Synchronize или TThread.Queue, или использовать классы TIdSync и TIdNotify, предоставляемые Indy.

Заключение

Создание клиент-серверного приложения в Delphi Xe6 с использованием Indy - это простой и эффективный способ обмена данными между клиентом и сервером. Следуя приведенным выше шагам, вы сможете настроить TIdTcpServer и TIdTcpClient для отправки и приема строковых сообщений.

Создано по материалам из источника по ссылке.

Создание клиент-серверного приложения в Delphi Xe6 с использованием компонентов Indy для настройки TIdTcpServer и TIdTcpClient, включая отправку строк из клиента на сервер.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::