Улучшение производительности мультиустройственных приложений на Delphi: синхронизация данных и асинхронный индикатор загрузки

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

Улучшение производительности мультиустройственных приложений на Delphi: синхронизация данных и асинхронный индикатор загрузки

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

Проблема

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

Решение

Для решения проблемы необходимо использовать механизмы многопоточности, предоставляемые Delphi, с учетом правил доступа к элементам пользовательского интерфейса. В частности, нельзя напрямую обращаться к UI-контролам из рабочего потока; доступ к ним должен быть синхронизирован с основным потоком приложения.

procedure TForm1.BtnSyncDBClick(Sender: TObject);
var
  Thread: TThread;
begin
  memo3.Lines.Add('Start synchronising...');
  fnLoading(True); // Функция для включения индикатора загрузки
  Thread := TThread.CreateAnonymousThread(
    procedure
    begin
      try
        SynchDB_A;
        TThread.Queue(nil,
          procedure
          begin
            memo3.Lines.Add('finish 0');
          end
        );
        // Повторять для остальных функций синхронизации
      end
      );
  Thread.OnTerminate := SyncDone; // Обработчик завершения потока
  Thread.Start;
end;

procedure TForm1.SyncDone(Sender: TObject);
begin
  fnLoading(False); // Функция для выключения индикатора загрузки
  if TThread(Sender).FatalException <> nil then
    memo3.Lines.Add('Error: ' + TThread(Sender).FatalException.Message);
end;

procedure TFDashboard.fnLoading(isEnabled: Boolean);
begin
  TThread.Synchronize(nil,
    procedure
    begin
      AniIndicator1.Visible := isEnabled;
      AniIndicator1.Enabled := isEnabled;
    end
  );
end;

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

Использование TTask.Run может быть более простым способом запуска асинхронных операций, чем создание анонимного потока:

TTask.Run(
  procedure
  var
    msg: string;
  begin
    try
      SynchDB_A;
      msg := 'finish 1';
    except
      on E: Exception do
      begin
        msg := E.Message;
      end;
    end;
    TThread.Queue(nil,
      procedure
      begin
        memo3.Lines.Add(msg);
      end
    );
  end
).Start;

Общие замечания

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

Заключение

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

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

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

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

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

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