...when altering one's mind becomes as easy as programming a computer, what does it mean to be human?..
19 октября 2008 г.
Обновление TasksEx - попытка №2
В модуль добавлены стандартные процедуры для отмены выполнения потока. Реализация проста - при запуске потока EnterWorkerThread возвращает дескриптор задачи, который потом можно передать в одну из функций отмены - AbortXXX. В рамках самого потока вы должны периодически вызывать CheckAbort, которая возбудит тихое исключение, если поток был отменён.
Предложенный функционал является универсальным в том смысле, что функции отмены можно использовать не только для рабочих потоков EnterWorkerThread, но и для любых потоков вообще. Для регистрации потоков служат функции Register/UnregisterWorkerThread.
Также, по просьбе некоторых товарищей туда вошёл этот функционал.
6 комментариев :
Можно использовать некоторые HTML-теги, например:
<b>Жирный</b>
<i>Курсив</i>
<a href="http://www.example.com/">Ссылка</a>
Вам необязательно регистрироваться для комментирования - для этого просто выберите из списка "Анонимный" (для анонимного комментария) или "Имя/URL" (для указания вашего имени и (опционально) ссылки на сайт). Все прочие варианты потребуют от вас входа в вашу учётку.
Пожалуйста, по возможности используйте "Имя/URL" вместо "Анонимный". URL можно просто не указывать.
Ваше сообщение может быть помечено как спам спам-фильтром - не волнуйтесь, оно появится после проверки администратором.
Примечание. Отправлять комментарии могут только участники этого блога.
Небольшой вопрос.
ОтветитьУдалитьКак быть если вместо
for X := 1 to 10 do
begin
Sleep(500);
CheckAbort;
end;
В процедуре для второй кнопки у меня идет собственная процедура MyProcedure, т.е. как бы весь этот цикл спрятан в процедуру?
Получается надо добавить CheckAbort внутрь самой процедуры?
Да.
ОтветитьУдалитьРассматривайте CheckAbort в задачах как аналог "if Terminated then Abort" в TThread.
Спасибо, так и смотрел.
ОтветитьУдалитьА это Ваше творение? (спрашиваю, для упоминания в формочке О Программе :))
ОтветитьУдалитьМодуль TasksEx был написан мною, но идея и основа - AsyncCalls товарища Andreas Hausladen.
ОтветитьУдалитьОК, про AsyncCalls в курсе.
ОтветитьУдалить