Ошибка доступа в памяти в Delphi 2009: исправление использования `TThread.CurrentThread`

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

Ошибка доступа в памяти при использовании TThread.CurrentThread в Delphi 2009 может быть довольно неприятным сюрпризом для разработчиков, особенно для тех, кто только начинает изучать работу с потоками в Delphi. В данной статье мы рассмотрим, что может быть причиной такой ошибки, и как её можно исправить.

Пример кода, вызывающего ошибку

Чтобы воспроизвести ошибку, достаточно создать новое приложение на основе форм в Delphi 2009, добавить на форму кнопку и назначить ей обработчик события OnClick, в котором будет использоваться свойство `TThread.CurrentThread:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TThread.CurrentThread;
end;

При нажатии на кнопку в момент закрытия приложения может возникнуть ошибка доступа в памяти:

Exception EAccessViolation in module ntdll.dll at 0003DBBA.
Access violation at address 7799DBBA in module 'ntdll.dll'. Write of
address 00000014.

Обновление: Ошибка подтверждена

Согласно обновлениям, оставленным пользователями, данная проблема действительно является ошибкой в Delphi 2009. Она связана с неправильным порядком вызова функций финализации в модуле Classes.pas. В частности, после очистки структуры ThreadLock в функции DoneThreadSynchronization происходит попытка уничтожения объекта потока, созданного при вызове CurrentThread, что требует, чтобы ThreadLock уже был инициализирован.

Подтвержденное решение

К счастью, проблема была исправлена в Delphi 2010. Для тех, кто по-прежнему использует Delphi 2009, доступен workaround в виде патча, который можно найти в отчете QC. Однако, стоит отметить, что ссылка на QC может быть недоступна.

Альтернативный ответ: Патч для Delphi 2009

Пока не будет выпущено официальное исправление, разработчики могут использовать альтернативный патч, который корректирует порядок вызова функций финализации в модуле Classes.pas. Пример такого патча представлен ниже:

unit FixD2009Classes;
...
procedure PatchClasses;
...
initialization
  PatchClasses;
end.

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

Заключение

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

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

Описание контекста: В статье обсуждается ошибка доступа в памяти при использовании `TThread.CurrentThread` в Delphi 2009, причины её возникновения и способы исправления, включая доступный патч для Delphi 2009, поскольку ошибка была устранена в Delphi 201

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

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

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