Параллельное выполнение веб-запросов в FireMonkey: оптимизация интерфейса с TRestRequest

Delphi , Компоненты и Классы , Потоки

Параллельное выполнение веб-запросов в FireMonkey: оптимизация интерфейса с TRestRequest

В данной статье мы рассмотрим, как можно выполнить несколько веб-запросов параллельно в приложении FireMonkey, используя Rad Studio XE7, для улучшения отзывчивости пользовательского интерфейса. Это особенно актуально, когда на одно нажатие кнопки приходится выполнение множества (около 7) веб-сервисов с использованием TRestRequest, каждый из которых возвращает JSON-объект, который затем используется для заполнения набора данных.

Проблема блокировки пользовательского интерфейса

При выполнении длительных операций, таких как веб-запросы, пользовательский интерфейс может заблокироваться, если эти операции выполняются в основном потоке. Это приводит к неудобствам для пользователя и может вызвать проблемы с откликом приложения, особенно на платформах, таких как Android, где система может выдавать предупреждения о зависании приложения.

Решение с помощью асинхронных запросов

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

Пример кода

function TCustomRESTRequest.ExecuteAsync(ACompletionHandler: TCompletionHandler = nil; ASynchronized: boolean = true; AFreeThread: boolean = true): TRESTExecutionThread;
begin
  Result := TRESTExecutionThread.Create(Execute, self, ACompletionHandler, ASynchronized, AFreeThread);
end;

При использовании ExecuteAsync, важно понимать, что обработчик завершения (ACompletionHandler) по умолчанию выполняется в новом потоке. Если вам нужно, чтобы он выполнялся в основном потоке, установите параметр ASynchronized в true.

Доступ к результатам запроса

Для доступа к результатам выполнения запроса используется свойство Response класса TCustomRESTRequest, которое ссылается на объект TCustomRESTResponse, содержащий ответ сервера. Однако, эти объекты не передаются в обработчик завершения, что требует от программиста самостоятельно управлять доступом к результатам.

Пример класса DataOwner

type TDataOwner = class
   MyData: TSomeDataType;
   procedure GetData;
   procedure FillDataSet;
end;

procedure DataOwner.GetData;
begin
  // Инициализация объекта TRestRequest
  MyRESTRequest.ExecuteAsync(FillDataSet);
end;

procedure DataOwner.FillDataSet;
begin
    MyData := processResponse(MyRESTRequest.Response);
end;

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

Заключение

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

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

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

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

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

:: Главная :: Потоки ::