Проблемы подключения клиента к серверу через интернет: настройка TCP/IP чата в Delphi 10.3.3 FMX с компонентами Indy

Delphi , Интернет и Сети , TCP/IP

В данном запросе пользователь столкнулся с проблемой создания простого чат-системы на Delphi 10.3.3 Community Edition с использованием FireMonkey и компонентов Indy TIdTCPClient и TIdTCPServer. Система работает корректно внутри локальной сети, но при попытке подключения из интернета возникает ошибка "connection refused". Проблема заключается в настройке переадресации пор (port forwarding) на маршрутизаторе пользователя. Несмотря на то, что пользователь утверждает, что все настройки выполнены правильно, обсуждение указывает на возможные недочеты в конфигурации.

Исходя из предоставленной информации, я подготовлю статью о решении проблемы подключения клиента к серверу через интернет с использованием TCP/IP чата в Delphi 10.3.3 FMX и компонентов Indy. Статья будет включать пошаговое руководство по настройке сетевых параметров, а также примеры кода на Object Pascal для демонстрации правильной работы с компонентами Indy.

Введение

В современном мире разработки программного обеспечения для настольных и мобильных устройств, создание чат-систем является популярной задачей. Одним из инструментов для реализации таких систем является среда разработки Delphi от компании Embarcadero, которая позволяет создавать кросс-платформенные приложения с использованием компонентов Indy.

Основная часть

Шаг 1: Подготовка сервера

Для начала работы серверу необходимо указать IP-адрес и порт, на котором он будет ждать подключений. Код для инициализации TIdTCPServer может выглядеть следующим образом:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.Bindings.Clear;
  IdTCPServer1.Bindings.Add(IP_ANY, Port_Your_Server);
  IdTCPServer1.Active := True;
end;

Шаг 2: Настройка маршрутизатора

Для того чтобы сервер был доступен из интернета, необходимо настроить переадресацию пор на маршрутизаторе. Это позволит перенаправлять входящие запросы с публичного IP-адреса маршрутизатора на приватный адрес компьютера, где запущен сервер.

Шаг 3: Обработка событий сервера

Серверу необходимо обработать события подключения и отключения клиентов, а также обработку сообщений:

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
begin
  // Логика при подключении клиента
end;

procedure TForm1.IdTCPServer1Disconnect(AContext: TIdContext);
begin
  // Логика при отключении клиента
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  msg: string;
begin
  msg := AContext.Connection.IOHandler.ReadLn;
  // Обработка полученного сообщения
end;

Шаг 4: Синхронизация с UI

При работе с UI-элементами из многопоточной среды необходимо использовать синхронизацию:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  msg: string;
begin
  msg := AContext.Connection.IOHandler.ReadLn;
  TThread.Synchronize(nil,
    procedure
    begin
      // Обновление UI, например, добавление сообщения в Memo
      Memo1.Lines.Add('Message received: ' + msg);
    end);
end;

Шаг 5: Тестирование клиента

Клиент должен быть настроен на подключение к IP-адресу и порту сервера. Пример кода для TIdTCPClient:

procedure TForm1.ButtonConnectClick(Sender: TObject);
begin
  IdTCPClient1.Host := EditServerIP.Text;
  IdTCPClient1.Port := StrToInt(EditServerPort.Text);
  IdTCPClient1.Connect;
  if IdTCPClient1.Connected then
  begin
    // Отправка сообщения серверу
    IdTCPClient1.IOHandler.WriteLn('Hello, Server!');
    // Закрытие соединения после отправки сообщения
    IdTCPClient1.Disconnect;
  end;
end;

Заключение

При правильной настройке переадресации пор и использовании синхронизации с UI-элементами, чат-система может успешно функционировать как внутри локальной сети, так и через интернет.

Примечание:

Пользователь указал, что не может использовать TClientSocket/TServerSocket в FMX проектах. Indy предоставляет кросс-платформенные компоненты для работы с сетью, которые могут быть использованы как в VCL, так и в FMX.

Дополнительная информация

Для получения дополнительной помощи или уточнения технических деталей рекомендуется обратиться к документации Indy или сообществу разработчиков Delphi.

Статья подготовлена на основе реального запроса пользователя и представляет собой практическое руководство по решению проблемы подключения клиента к серверу через интернет в среде Delphi 10.3.3 FMX с использованием компонентов Indy.

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

Проблема чат-системы на Delphi заключается в необходимости правильной настройки переадресации пор для работы через интернет.

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

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

:: Главная :: TCP/IP ::