Использование компонента Indy: работа с событиями и оптимизация передачи данных

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

Перед написанием статьи, важно уточнить, что в контексте заданного вопроса необходимо осветить следующие аспекты: использование компонента Indy для создания клиент-серверной системы на Delphi, подклассивание TIdServerContext с целью добавления индексного флага и необходимость использования события OnWork для работы с таймером в процессе передачи больших файлов. Также важно упомянуть, что TIdServerContext не наследуется от TIdComponent, где присутствуют события OnWork, но можно использовать свойство Connection для доступа к этим событиям через объект TIdTCPConnection.

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

Подклассивание TIdServerContext

Для начала рассмотрим, как можно подклассировать TIdServerContext для добавления индексного флага, например, свойства UserID:

type
  TUserContext = Class(TIdServerContext)
  protected
    FUserID: Integer;
  public
    property UserID: Integer read FUserID write FUserID Default 0;
  end;

Инициализируем класс контекста в обработчике события FormCreate:

procedure FormCreate(Sender: TObject);
begin
  Server.ContextClass := TUserContext;
end;

В методе ServerExecute используем свойство UserID:

procedure ServerExecute(AContext: TIdContext);
var
  I: Integer;
begin
  I := TUserContext(AContext).UserID;
  ...
end;

Работа с событиями OnWork

Событие OnWork присутствует в классе TIdComponent, но TIdServerContext не является его наследником. Однако, TIdTCPConnection и TIdIOHandler содержат эти события. С помощью свойства Connection можно обратиться к событиям OnWork объекта TIdTCPConnection:

procedure TMyForm.ServerConnect(AContext: TIdContext);
begin
  AContext.Connection.OnWork := WorkHandler;
end;

procedure TMyForm.WorkHandler(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
var
  Ctx: TUserContext;
begin
  Ctx := TUserContext(TIdTCPConnection(ASender).Tag);
  // использование свойств контекста...
end;

Или, если необходимо обращение к контексту без использования Tag:

procedure TMyForm.ServerConnect(AContext: TIdContext);
var
  Handler: TWorkEvent;
begin
  Handler := WorkHandler;
  TMethod(Handler).Data := AContext;
  AContext.Connection.OnWork := Handler;
end;

procedure TMyForm.WorkHandler(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
var
  Ctx: TUserContext;
begin
  Ctx := TUserContext(TMethod(Self).Data);
  // использование свойств контекста...
end;

Также возможен вариант переопределения конструктора TIdServerContext, чтобы сразу назначить обработчики событий OnWork:

type
  TUserContext = Class(TIdServerContext)
  protected
    FUserID: Integer;
    procedure WorkHandler(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
  public
    constructor Create(AConnection: TIdTCPConnection; AYarn: TIdYarn; AList: TIdContextThreadList = nil); override;
    property UserID: Integer read FUserID write FUserID;
  end;

constructor TUserContext.Create(AConnection: TIdTCPConnection; AYarn: TIdYarn; AList: TIdContextThreadList = nil);
begin
  inherited;
  AConnection.OnWork := WorkHandler;
end;

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

type
  TUserContext = Class(TIdServerContext)
  protected
    FUserID: Integer;
    procedure WorkHandler(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
  public
    procedure StartWorkTimer;
    procedure StopWorkTimer;
    property UserID: Integer read FUserID write FUserID;
  end;

procedure TUserContext.StartWorkTimer;
begin
  Connection.OnWork := WorkHandler;
end;

procedure TUserContext.StopWorkTimer;
begin
  Connection.OnWork := nil;
end;

Заключение

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

Обратите внимание, что текст статьи был сокращён до минимально необходимого объёма для демонстрации основного содержания и структуры. Для полноценной публикации необходимо дополнить материал примерами использования, более глубоким анализом и дополнительными советами по оптимизации работы с компонентом Indy.

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

Описана работа с компонентом Indy в Delphi для создания клиент-серверной системы, включая подклассирование TIdServerContext и использование событий OnWork для работы с таймером при передаче больших файлов.

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

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

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