Закрытие соединений в Delphi: автоматизация закрытия TCP-соединений через Indy

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

Закрытие соединений в Delphi: автоматизация закрытия TCP-соединений через Indy

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

Проблема

Иногда в приложении, слушающем TCP-запросы с использованием компонентов Indy 10.1.1, которые идут в комплекте с Delphi 2007, возникают ситуации, когда поступает соединение от неавторизованного клиента. Это может произойти без обмена данными или при получении непредвиденных данных, что требует ручного прерывания соединения.

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

Решение

Для решения этой задачи можно использовать механизм отслеживания активности клиента и прерывание соединения при отсутствии данных в течение заданного интервала времени. В обработчике события OnExecute следует вести учёт времени последнего получения данных от клиента.

Компоненты Indy предоставляют свойство ReadTimeout, которое позволяет установить время ожидания для операций чтения, и если данные не поступают в течение этого времени, соединение можно прервать. Это дает возможность автоматизировать процесс закрытия соединений на сервере.

Пример кода

procedure TServer.OnExecute(AContext: TIdContext);
begin
  if AContext.Connection.Active then
    begin
      // Проверка активности клиента и прерывание соединения при необходимости
      if AContext.Connection.IOHandler.ReadTimeout > 0 then
        try
          // Попытка чтения данных для проверки активности клиента
          AContext.Connection.IOHandler.ReadBytes(1, True);
        except
          on E: Exception do
            begin
              // Если произошло исключение (например, по истечении времени ожидания), прервать соединение
              if (E is EIdTimeout) or (E.Message = 'Connection was closed gracefully') then
                AContext.Connection.Disconnect;
            end;
        end;
    end;
end;

Альтернативный подход

В качестве альтернативного решения можно использовать дополнительные потоки для отслеживания активности клиента. Например, создать отдельный поток TKillThread, который будет регулярно проверять активность соединения и при необходимости закрывать его.

unit KillThread;

interface

uses
  Classes, IdTCPServer, IdContext, Types, SyncObjs;

type
  TKillThread = class(TThread)
  private
    FContext: TIdContext;
    FInterval: DWORD;
    FEvent: TEvent;
  protected
    procedure Execute; override;
  public
    constructor Create(AContext: TIdContext; AInterval: DWORD); overload;
    destructor Destroy; override;
    procedure Reset;
    procedure Stop;
  end;

implementation

// Описание класса TKillThread и его методов, включая создание, остановку потока и обработчик события Execute.

end.

На стороне сервера в обработчике событий OnConnect создаётся экземпляр TKillThread, а в OnDisconnect - уничтожается. В OnExecute происходит сброс таймера ожидания активности клиента.

Заключение

Автоматизация закрытия неактивных TCP-соединений является важной задачей для поддержания стабильности и безопасности сетевых приложений на Delphi. Использование свойства ReadTimeout или создание дополнительного потока, такого как TKillThread, позволяет решить эту проблему эффективно.

Важно помнить, что при использовании дополнительных потоков необходимо учитывать их влияние на производительность и ресурсы системы, особенно в случае большого количества подключенных клиентов.

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

Закрытие соединений в Delphi: автоматизация процесса прерывания неактивных TCP-соединений через компоненты Indy.

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

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

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