потоки

[virt]

Код: Выделить всё

program test;
{$threading on}
uses sysutils ,crt;
var finished : longint;

function f1(p : pointer) : longint;
begin
   while not keypressed do;
   InterLockedIncrement(finished);
   f1 := 0;
end;

begin
   finished := 0;
   BeginThread(@f1);
   while finished < 1 do;
end.

Самая простая программа использующая потоки. При запуске загруженность процессора 96-98%. Как сделать чтобы не было такой загрузки проца? Использовать Suspend и Resume? Можно ли без них?

[STAKANOV]

может дело в crt ?
попробуй

Код: Выделить всё

program test;
{$threading on}
uses sysutils;
var finished : longint;

function f1(p : pointer) : longint;
begin
  readln;
  InterLockedIncrement(finished);
  f1 := 0;
end;

begin
  finished := 0;
  BeginThread(@f1);
  while finished < 1 do;
end.

[PVOzerski]

Дай ты системе продохнуть! В виндах я бы засунул sleep в цикл while not keypressed. Для *никсных платформ тоже что-нибудь такое должно быть.

[Иван Шихалев]

Да и цикл

Код: Выделить всё

while finished < 1 do;

жрет все процессорное время, до которого дотягивается...

[virt]

Код: Выделить всё

program test;
{$threading on}
uses sysutils;
var finished : longint;

function f1(p : pointer) : longint;
begin
 readln;
 InterLockedIncrement(finished);
 f1 := 0;
end;

begin
 finished := 0;
 BeginThread(@f1);
 while finished < 1 do;
end.

Загрузка - 96-98%

Код: Выделить всё

program test;
{$threading on}
uses sysutils ,crt;
var finished : longint;

function f1(p : pointer) : longint;
begin
 while not keypressed do Sleep(10);
 InterLockedIncrement(finished);
 f1 := 0;
end;

begin
 finished := 0;
 BeginThread(@f1);
 {Sleep(10);}
 while finished < 1 do;
end.

Sleep(10) по документации в винде должна остановить всю программу(не поток) на 10 секунд ,однако 0 эффекта при любом вызове(в комментарии).
Остановка потока (fpSleep ,fpNanoSleep) работают под линь(uses BaseUnix ,OldLinux) ,работают они реально или нет не проверял (компилера под линь нет ,позже проверю). Эквивалентов этих функций под винду не нашел.

Код: Выделить всё

program test;
{$threading on}
uses sysutils ,crt;
var finished : longint;

function f1(p : pointer) : longint;
begin
 while not keypressed do;
 InterLockedIncrement(finished);
 f1 := 0;
end;

begin
 finished := 0;
{ BeginThread(@f1);}
 while finished < 1 do;
end.

Загрузка - 96-98%

Код: Выделить всё

program test;
{$threading on}
uses sysutils ,crt;
var finished : longint;

function f1(p : pointer) : longint;
begin
 while not keypressed do;
 InterLockedIncrement(finished);
 f1 := 0;
end;

begin
 finished := 0;
 BeginThread(@f1);
 while finished < 1 do Sleep(1);
end.

Загрузка - 33-52%

Код: Выделить всё

program test;
{$threading on}
uses sysutils ,crt;
var finished : longint;

function f1(p : pointer) : longint;
begin
 while not keypressed do Sleep(1);
 InterLockedIncrement(finished);
 f1 := 0;
end;

begin
 finished := 0;
 BeginThread(@f1);
 while finished < 1 do Sleep(1);
end.

Загрузка - 0%(почти 0)

[STAKANOV]

Sleep(10) по документации в винде должна остановить всю программу(не поток) на 10 секунд ,однако 0 эффекта при любом вызове(в комментарии).

Аргумент в миллисекундах, 10 секунд это sleep(10000). И по-моему опыту она всетаки именно нить приостанавливает.

<a href='http://www.freepascal.org/docs-html/rtl/sysutils/sleep.html' target='_blank'>http://www.freepascal.org/docs-html/rtl/sysutils/sleep.html</a>

[Janus]

Лучше не ставить sleep(int), при int меньше 60, т.к. винда это не переваривает и все равно поставит сколько ей вздумается, т.е. около 60 - 70.

[virt]

STAKANOV
В последнем примере она нить и останавливает, хотя

Sleep

Suspend execution of a program for a certain time.

Может прочто неточность в описании ,и вместо program они имели ввиду thread?

[serg_iv]

А может быть имелась в виду именно программа? Без thread?
Ведь в данном случае thread играет роль программы, только запущенной параллельно основному потоку.

[STAKANOV]

У меня sleep всегда приостанавливал текущий нить. 100%