В чем может быть дело?
Мое приложение запускает два дочерних потока,
первый сканирует участок памяти в ожидании того что второй
поток запишет туда то что надо.
Т.е. никаких особо ресурсо затратных действий эти потоки
не производят. Но загрузка CPU - 100%

Меня это настораживает , т.к. год назад я писал похожую программу (на той же
версии Delphi) и потоков там было больше, но загрузка CPU при этом была маленькой.

Установка разных приоритетов потоков ни к чему не привела.

Где и что я делаю неправильно??
Заранее спасибо.

Цитата

Где и что я делаю неправильно??

А откуда мы знаем? Кода то нет! Выложи код, мы посмотрим что не так.

Цитата

А откуда мы знаем? Кода то нет! Выложи код, мы посмотрим что не так.

Да, Пока телапатов здесь нет...

Сорри.
Я просто подумал, что эта проблема имеет общеизвестные грабли
типа "что-то забыл указать, дописать"
Вот и не привел исходник.


Вот он. Собственно ничего особенного.

Код

type   PByte = ^TByte;   TByte = byte; procedure TChecker.Execute; var StartTime, FinishTime : double;     RightNow : double;     B : byte;     P : PByte; begin   StartTime:= Now;   //FinishTime:= StartTime + 1 hour   FinishTime:= StartTime + 0.0416;   while not self.Terminated do begin     B:= P^;     if B = 0 then Break;     RightNow:= Now;     if RightNow >= FinishTime then Break;   end; end;

Стартую его таким образом:

Код

procedure TForm1.FormCreate(Sender: TObject); begin   Checker:= TChecker.Create;   Checker.Resume; end; procedure TForm1.FormDestroy(Sender: TObject); begin   Checker.Terminate;   Checker.WaitFor;   Checker.Free; end;

Второй поток не привожу, т.к. и без него загрузка 100%
И вообще , я наверно от него откажусь - хватит одного.

а он и должен занимать максимум ресурса процессорного времени - у него ж куча дел:
прочитать ^p, проверить, присвоить время, проверить время, прочитать ^p, проверить, присвоить время, проверить время, ...
дело в том, что Windows не может знать, что значит этот код лично для этой программы, а вдруг там очень важная работа, которую нужно сделать как можно скорее?

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

в данном случае можно было бы сделать, например, так:
1. создаем объект Event - аналог ^P, вместо того, чтобы туда что-то писать, нужно его просто активизировать (PulseEvent)
2. создаем второй объект Waitable Timer - аналог FinishTime

а в дочернем потоке вместо цикла вызываем функцию WaitForMultipleObjects, которая остановится, когда один из объектов просигналит

про все эти объекты синхронизации и функции работы с ними можно (и стоит) почитать в MSDN: http://msdn.microsoft.com

P.S.
кстати, можно таймер и не создавать, а вместо этого пользоваться функцией WaitForSingleObject с правильно указанным вторым параметром...

Спасибо за идею!
Малость не понятно, но уже знаю в каком направлении двигаться.

Насчет моего потока - у него не было причин не загружать проц