Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > как организовать поток

Автор: z-END 3.3.2006, 18:00

Мне нужен Thread, который бы был запускался вместе с приложением и завершался вместе сним...
задача потока висеть в памяти и выполнять задания которые ему перодически отправляет приложение. вот как выглядит код:

Код


procedure TSyncStream.Execute;
begin
repeat
if CurrentAction < Acts.Count then
   begin
    Busy := True;
    DoAction (CurrentAction);
    Inc (CurrentAction);
   end;
if CurrentAction = Acts.Count then DoneAllActions;
Until EndSession;
Acts.Clear;
Freeandnil (Acts);
Freeandnil (Frm);
Freeandnil (CS);
end;

но он практически вешает систему т.е. доводит загркзку процессора до 100% и на слабых машинах просто все вешает.. можно как-то это исправить, или нужно переделывать алгоритм работы?!

Автор: Snowy 3.3.2006, 18:05

Просто добавь ему Sleep в цикл.

Автор: Poseidon 3.3.2006, 18:05

А если уменшить приоретет потока?

Автор: z-END 3.3.2006, 18:09

Snowy, неужели все так было просто smile

Poseidon, это непомогает..

Автор: Snowy 3.3.2006, 18:11

Иссесно. Для этого Sleep и нужен - замораживать поток на некоторое время.
Или хотя бы Sleep(0), чтобы передать очередь дальше.

Автор: Демо 3.3.2006, 18:35

Snowy,

Ну Sleep все же здесь несколько не тот подход.
Хотя и такой способ приемлем. но не всегда.

z-END,

Глянь на этот топик, думаю, идея будет понятна.

http://forum.vingrad.ru/index.php?showtopic=83942

-------------
Схематично опишу здесь:

Поток стартует и тут же засыпает(Suspend).
Другой поток передает спящему потоку в список задач задание и пробуждает его(Resume)
Поточная функция проверяет список задач, находит новую и выполняет.
Предыдущий пункт повторяется, пока в списке есть еще невыполненные задачи.
После того, как список задач исчерпан, поток снова засыпает(Suspend).
Далее весь цикл повторяется сначала.

Автор: z-END 3.3.2006, 18:44

Цитата(Демо @ 3.3.2006, 18:35

)

Ну Sleep все же здесь несколько не тот подход.
Хотя и такой способ приемлем. но не всегда.

ну мне вроде это помогло=) еще конечно проверю на слабой машине... там все сразу станет ясно.
Если нет, то тогда наверно придется действительно с двумя потоками делать...
а если итак работает, то зачем задачу усложнять smile

Автор: Демо 3.3.2006, 18:49

Цитата(z-END @ 3.3.2006, 18:44

)

еще конечно проверю на слабой машине...

На слабой тоже будет работать smile

Цитата(z-END @ 3.3.2006, 18:44

)

а если итак работает, то зачем задачу усложнять

Точно! Работает - И НЕ ТРОГАЙ-))

Автор: Snowy 3.3.2006, 18:49

Вариант со Sleep наиболее простой.
Также можно стопорить поток через WaitForSingleObject.
А главный поток будет занимать и освобождать этот обжект по необходимости.
Но Sleep легче всего вписывается в текущую схему.
Да и мороки меньше smile