Ошибка связи между TIdTCPClient и TIdTCPServer в приложении Delphi с использованием OpenVPN

Delphi , Синтаксис , Ошибки и Исключения

В данной статье рассматривается проблема, связанная с работой приложения на Delphi 12, использующего компоненты TIdTCPClient и TIdTCPServer из библиотеки Indy. Проблема заключается в том, что приложение работает корректно в режиме отладки (Debug), но выдает ошибку "Connection Times out" в релизной сборке (Release).

Контекст проблемы

Приложение представляет собой простую клиент-серверную систему, которая обменивается сообщениями через открытый порт. Серверный компонент TIdTCPServer слушает на этом порту, а клиентский TIdTCPClient отправляет строку на серверный сокет через VPN (OpenVPN). Проблема возникает только в релизной сборке приложения, когда оно работает через VPN.

Анализ проблемы

1. Проверка антивируса и фаервола: Первым шагом следует убедиться, что антивирусное ПО и фаервол не блокируют релизную сборку приложения, что может быть причиной возникновения ошибки.
2. Проверка кода: Необходимо убедиться, что код сервера и клиента корректно работает в многопоточной среде, так как TIdTCPServer обрабатывает входящие соединения в отдельных потоках.

Пример кода сервера

procedure TFormServer.IdTCPServer1Execute(AContext: TIdContext);
begin
  var StrMsgCli := AContext.Connection.IOHandler.ReadLn(IndyTextEncoding_UTF8);
  TThread.Queue(nil,
    procedure
    begin
      MemoMsgClient.Text := StrMsgCli;
    end
  );
end;

Пример кода клиента

procedure TFormClient.SpeedButtonSendToServerClick(Sender: TObject);
begin
  var StringToSend:= 'BlaBlaBla_123';
  IdTCPClient1.Connect;
  IdTCPClient1.IOHandler.WriteLn(StringToSend);
  IdTCPClient1.Disconnect;
end;

Предложенное решение

Использовать функцию TThread.Queue для безопасного доступа к UI-контролам из потоков, которые не принадлежат главному потоку приложения.

Альтернативное решение

Проверка конфигурации VPN, убедиться, что порт, на котором слушает сервер, открыт и доступен извне.

Дополнительные шаги

• Проверить логи антивируса и фаервола на предмет блокировок.
• Убедиться, что настройки OpenVPN правильно конфигурируют сетевой трафик и разрешают прохождение запросов на нужный порт.
• Протестировать приложение на различных устройствах и конфигурациях сети для исключения локальных проблем.

Выводы

После реализации предложенных шагов и проверки всех параметров, включая настройки безопасности и сетевой конфигурации, проблема с обменом сообщений между TIdTCPClient и TIdTCPServer в приложении Delphi через OpenVPN должна быть устранена.

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

Проблема заключается в том, что клиент-серверное приложение на Delphi с использованием компонентов Indy работает корректно в режиме отладки, но выдает ошибку "Connection Times out" в релизной версии при использовании VPN.

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

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

:: Главная :: Ошибки и Исключения ::