Оптимизация Office Automation в Delphi XE8: Решение проблем с откликом и отменой задач

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

Office Automation – это технология, позволяющая разработчикам взаимодействовать с объектами Office через код. В контексте языка программирования Delphi и Object Pascal, это может быть особенно полезно для автоматизации задач, связанных с Excel, Word или PowerPoint.

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

Описание проблемы

Используя Delphi XE8, разработчик столкнулся с проблемой "зависания" программы на компьютере с Windows 7 и Office 2007 при попытке создания Excel файла в фоновом потоке. Код, работавший без ошибок на Windows 10 с Office 2016, в данной конфигурации приводил к "зависанию" приложения.

TTask.Run(
  procedure
  var
    oXL, oSheet, o2Sheet, oRng, VArray : Variant;
  begin
    oXL := CreateOleObject('Excel.Application');
    oXL.Visible := False;
    oXL.DisplayAlerts := False;
    // ... (все остальные операции по созданию Excel файла)
    oXL.Application.Workbooks[1].SaveAs(ExcelFilename, 51); // xlWorkbookDefault
    oXL.Workbooks.Close;
    oXL.Application.Quit;
    oXL := Unassigned;
  end
);

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

Проблема, о которой идет речь, может быть связана с небезопасностью потоков при работе с Office Automation. Для решения этой проблемы необходимо инициализировать COM в потоке перед его использованием. Это можно сделать с помощью функции CoInitialize или CoInitializeEx. Если инициализация COM не была выполнена, это могло привести к ошибкам при работе с Office Automation в многопоточной среде.

CoInitialize(nil);
try
  // ... (код Office Automation)
finally
  CoUninitialize;
end;

Также стоит отметить, что некоторые операции Office Automation могут требовать синхронизации, если они не потокобезопасны.

Альтернативный ответ

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

var
  ExcelThread: TThread;
begin
  ExcelThread := TThread.CreateAnonymousThread(
    procedure
    begin
      // ... (код Office Automation)
    end
  );
  ExcelThread.Start;
  ExcelThread.WaitFor;
end;

Примеры кода

Для определения констант Office Automation, которые не включены в пакет Delphi, можно использовать импортированные модули, содержащие определения типов из Office (например, Excel2010.pas). Эти модули находятся в директории $(BDSDIR)\OCX\Servers. Константу xlWorkbookDefault можно определить следующим образом:

const
  xlWorkbookDefault = $00000033;

Заключение

При работе с Office Automation в Delphi XE8 важно учитывать потокобезопасность операций и инициализацию COM. Решение проблемы "зависания" может быть достигнуто путем добавления инициализации COM и/или использования явного создания потока вместо использования задач из библиотеки потоков. Это позволит сохранить отзывчивость основного потока программы и возможность отмены задач.

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

Оптимизация работы с Office Automation в Delphi XE8 для решения проблем с откликом и отменой задач.

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

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

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