2

Допустим есть событие OnEvent, которое вызывается каждые 15 милисек. По этому событию выполняеться процедура proc1(x,y,z,a:integer), которая выполняется 100 милисек. В результате, пока не будет обработано предыдущее событие, следующее не выполнится, и множество промежуточных действий (процедур) пропускается.

Вопрос: как сделать так, чтобы процедура добавлялась в очередь и из очереди процедуры последовательно выполнялись? Или есть какое-нибудь другое решение?

8
  • а как Вы себе это представляете? если каждые 15мс должна выполнятся процедура длительностью 100, то где брать время? ну или поставьте 100/15 = 7 процессоров, должны управиться.
    – KoVadim
    2 дек 2011 в 15:34
  • ну а как сделать так чтобы выполнялась КАЖДАЯ процедура. Общее время выполнения неважно. Главное чтобы выполнилось. Неужели нельзя организоввать очередь?
    – ололо
    2 дек 2011 в 15:37
  • 1
    По событию создавайте поток, который будет выполнять вашу процедуру, вам придется теперь задуматься о данных, требуемых для процедуры, чтобы они были статичными в пределах одного потока. Возможно придется синхронизировать потоки, если результаты одной процедуры зависят от другой.
    – Dex
    2 дек 2011 в 15:44
  • 3
    Может быть, вместо 100 мс процедуры исполнять какую-то более короткую, которая, в частности, считает число Событий. А затем, под конец запустить все 100 мс процедуры, которые следовало выполнить. А? Или создать 7-8 потоков с регулятором :-(
    – BuilderC
    2 дек 2011 в 15:49
  • @BuilderC, логичная альтернатива моему варианту. Придется хранить все данные тогда в списке, например.
    – Dex
    2 дек 2011 в 15:54

2 ответа 2

2

Можно исполняемый код поместить в отдельный класс и организовать очередь. Один поток будет каждые 15 секунд добавлять новый экземпляр в конец очереди (что не займет много времени). Другой поток должен циклично проверять очередь и брать экземпляры класса из начала очереди для исполнения. Тогда в лучшем случае ваш событийный код будет исполняться раз в 15 секунд, в худшем - никуда не пропадет и выполнится рано или поздно.

1

Используйте метод TThread, в частности, TThread.Queue. Подробнее многопоточные программы в Delphi изнутри.

Windows API предлагает пул потоков, который позволяет подавать задачи на исполнения быстрее, чем они выполняются, в расчете на то, что они выполнятся позднее, когда ресурс освободится (либо выполнение будет происходить на параллельных процессорах).

1
  • Ваша ссылка на многопоточные программы не работает.
    – Pax Beach
    1 июл 2016 в 7:42

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.