Проблема вызова события OnTerminate потока в динамически подключаемой библиотеке (DLL) в Delphi
Вопрос, поднятый в данной статье, касается особенностей работы с потоками в среде Delphi, когда код, функционирующий корректно в обычном приложении, ведет себя иначе при выполнении из динамически подключаемой библиотеки (DLL). В частности, рассматривается проблема, при которой событие OnTerminate потока не вызывается при работе из DLL.
Контекст проблемы
Исходный код, представленный в вопросе, демонстрирует создание анонимного потока в классе TTest с использованием компонента TThread. В методе threadStart создается новый поток, который вызывает процедуру lines с параметром 'start'. Устанавливается флаг FreeOnTerminate в True, что должно привести к автоматическому освобождению потока после его завершения. Также назначается обработчик события OnTerminate, который должен вызвать процедуру threadEnd при завершении потока.
При запуске данного кода в обычном приложении Delphi, в файл filename.txt записывается строка __end__. Однако, если тот же самый код запустить из DLL, подключенной к Delphi-приложению, в файл будет записана строка __start__. Это указывает на то, что обработчик события OnTerminate не вызывается в случае работы из DLL.
Объяснение проблемы
Обработка событий OnTerminate в TThread происходит в контексте основного потока UI через вызов TThread.Synchronize(). Это означает, что запросы на выполнение сохраняются в очереди, которую основной поток проверяет периодически, выполняя ожидающие запросы при возможности.
Если DLL и EXE компилируются с использованием Runtime Packages, они делятся одной копией RTL, и основной поток будет видеть запросы от обоих модулей. Но если они не делятся RTL, то каждый модуль имеет свою копию RTL, не связанную с другой, и основной поток будет обрабатывать только запросы из своей очереди.
Подтвержденное решение
Чтобы решить проблему, необходимо убедиться, что основной поток обрабатывает запросы из очереди DLL. Это можно сделать, экспортируя функцию из DLL, которая вызывает функцию CheckSynchronize() RTL DLL, и регулярно вызывая эту функцию из основного приложения, например, с помощью таймера.
Другой способ - обойти вызов Synchronize(), вызвав обработчик OnTerminate напрямую или выполнив необходимые действия внутри переопределенного метода DoTerminate() потока. Однако следует убедиться, что код, выполняемый в DoTerminate(), является потокобезопасным, так как этот метод вызывается в контексте рабочего потока.
Альтернативное решение
Также можно обернуть код анонимного метода в блок try/finally, чтобы гарантировать выполнение логики завершения независимо от возникновения исключений. TThread уже имеет внутренний try/finally вокруг Execute(), и поэтому DoTerminate() всегда будет вызван.
Пример кода
procedure TTest.ThreadStart;
var
aThread: TThread;
begin
aThread := TThread.CreateAnonymousThread(
procedure
begin
try
// Основной код потока
finally
// Логика завершения потока
end;
end
);
aThread.Start;
end;
Заключение
При работе с потоками в DLL важно учитывать особенности взаимодействия между DLL и основным приложением. Правильное управление событиями OnTerminate и использование потокобезопасных методов позволит обеспечить корректное функционирование потоков в динамически подключаемых библиотеках.
Проблема заключается в том, что при использовании потоков в динамически подключаемой библиотеке (DLL) в Delphi не вызывается событие `OnTerminate` потока, что не происходит в обычном приложении.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал