Улучшение производительности приложений на Delphi с использованием TFDEventAlerter и FireDAC

Delphi , Базы данных , SQL

Разработчики, работающие с базами данных SQL Server 2014 через компоненты FireDAC в среде Delphi, иногда сталкиваются с проблемами производительности, особенно когда речь заходит о использовании большого количества пользовательских сервисов в системе Service Broker. В статье мы рассмотрим, почему может возникать проблема с ограничением использования сервисов в SQL Server 2014 и предложим альтернативные способы использования TFDEventAlerter для 500 пользователей без создания 500 отдельных сервисов.

Проблема с производительностью

Используя TFDEventAlerter для создания очереди и сервисов для каждого пользователя, разработчики обнаружили, что при большом количестве подключений (550 пользователей) производительность системы ухудшается из-за проблемы с голоданием потока выполнения (ThreadPool Starvation). Это происходит, когда каждый сервис блокирует рабочий поток на некоторое время.

Ограничение использования сервисов

Возникает вопрос: почему существует ограничение на использование сервисов в Service Broker SQL Server 2014? Это связано с тем, что каждый сервис блокирует отдельный поток в пуле потоков, что может привести к их исчерпанию при большом количестве одновременных запросов.

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

В комментариях к проблеме было предложено несколько решений:

1. Использование трехъярусной архитектуры доступа к базе данных через сервер Datasnap в промежуточном слое. В этом случае достаточно иметь один TFDEventAlerter на сервере Datasnap, который будет вызывать callback-методы в 500 клиентских приложениях.

2. Использование одной очереди и одного сервиса с картой соответствия между идентификаторами разговоров и пользователями. Это позволяет определить, для какого пользователя предназначено сообщение, исходя из идентификатора разговора, связанного с сообщением.

3. Встраивание информации, идентифицирующей пользователя, непосредственно в сообщение.

Пример кода

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

procedure TForm1.FormCreate(Sender: TObject);
var
  UserEvent: TFDServiceBrokerService;
begin
  UserEvent := TFDServiceBrokerService.Create(nil);
  try
    UserEvent.Name := 'sUserEvent';
    UserEvent.ServiceType := stQueue;
    UserEvent.QueueName := 'qUserEvent';
    UserEvent.OnMessage := OnUserEventMessage;
    UserEvent.Active := True;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  // Дополнительный код для обработки сообщений и идентификации пользователей
end;

Подтвержденный ответ

Использование трехъярусной архитектуры с одним TFDEventAlerter на сервере Datasnap является подтвержденным решением, которое позволяет избежать создания множества сервисов и улучшить производительность приложения.

Заключение

При работе с большим количеством пользователей и использованием TFDEventAlerter важно правильно организовывать обработку событий в системе Service Broker. Альтернативные подходы, такие как использование одной очереди и одного сервиса, могут существенно повысить производительность приложения, разработанного в среде Delphi с использованием компонентов FireDAC.

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

Улучшение производительности приложений на Delphi путем оптимизации использования TFDEventAlerter и FireDAC для обработки большого количества пользовательских сервисов в системе Service Broker SQL Server 2014.

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

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

:: Главная :: SQL ::