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

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

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