Разработка многопоточного экспорта данных из TDBGrid в Excel без зависания интерфейса в Delphi

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

В статье рассмотрим проблему зависания интерфейса во время экспорта данных из TDBGrid в Excel в приложениях на Delphi. Приведем примеры кода на Object Pascal, которые помогут решить данную проблему.

Проблема и её причины

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

Решение проблемы

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

TWorkingThread = class(TThread)
protected
  procedure Execute; override;
  procedure UpdateGui;
  procedure TerminateNotify(Sender: TObject);
end;

procedure TWorkingThread.Execute;
begin
  // Здесь размещается код для выполнения экспорта данных
  Synchronize(UpdateGui);
end;

procedure TWorkingThread.UpdateGui;
begin
  // Обновление прогресс-бара или других визуальных элементов
end;

procedure TWorkingThread.TerminateNotify(Sender: TObject);
begin
  // Выполнение действий при завершении работы потока
end;

// ...

procedure TForm.ButtonClick(Sender: TObject);
var
  WorkingThread: TWorkingThread;
begin
  WorkingThread := TWorkingThread.Create(true);
  WorkingThread.OnTerminate := TerminateNotify;
  WorkingThread.FreeOnTerminate := true;
  WorkingThread.Start;
end;

Важно использовать Synchronize при обновлении визуальных элементов из потока.

Альтернативное решение

Если количество строк невелико, можно использовать массив для передачи данных в Excel за один раз, что значительно ускорит процесс передачи данных:

var
  xls, wb, Range: OLEVariant;
  arrData: Variant;
  RowCount, ColCount, i, j: Integer;
  Bookmark: TBookmark;
begin
  // Создание массива для копирования данных
  // ...
  // Отключение связи с визуальными элементами
  DataSet1.DisableControls;
  try
    // ...
    while not DataSet1.Eof do
    begin
      for j := 1 to ColCount do
        arrData[i, j] := DataSet1.Fields[j-1].Value;
      DataSet1.Next;
      Inc(i);
      if (i mod 100) = 0 then
        Application.ProcessMessages;
    end;
  finally
    // Включение связи с визуальными элементами
    DataSet1.EnableControls;
  end;
  // ...
  // Копирование данных из массива в Excel за один раз
  Range.Value := arrData;
  // ...
end;

Это решение сокращает время, необходимое для передачи данных в Excel, особенно если данных много.

Заключение

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

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

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

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

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

:: Главная :: TDBGrid ::