Создание потока, выполняющегося продолжительное время.

← →
Darrin © (2006-08-17 15:32) [0]

Доброго времени суток.
Столкнулся с проблемой создания потока (Thread), который бы выполнялся продолжительное время и при этом не загружал ресурсы машины на 100%.
Что сделал: создал наследника от TThread и перекрылметод Execute, в котором создал бесконечный цикл, дабы не выйти из метода execute.

Тестовый пример: (Форма на которой лежат 2 кнопки: одна запускаеТ поток, вторая останавливает его. В потоке, создаётся таймер на 1 секунду. При срабатывании таймера через метод Synchronize в форму приложения передаётся параметр.)
<CODEb>
type

TForm3 = class;

TMyThread = class (TThread)
procedure TimerExecute(Sender: TObject);
private
FValue: Integer;
FTimer: TTimer;
FOwner: TForm3;
procedure SetValue;
protected
procedure DoTerminate; override;
procedure Execute; override;
end;

TForm3 = class(TForm)
Button1: TButton;
ProgressBar: TcxProgressBar;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
FThread: TMyThread;
public
{ Public declarations }
procedure SetValue(Value: Integer);
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TMyThread.TimerExecute(Sender: TObject);
begin
Inc(FValue);
Synchronize(SetValue);
end;

procedure TMyThread.SetValue;
begin
FOwner.SetValue(FValue);
end;

procedure TMyThread.DoTerminate;
begin
FTimer.Free;
inherited;
end;

procedure TMyThread.Execute;
begin
FValue := 0;
FTimer := TTimer.Create(nil);
FTimer.OnTimer := TimerExecute;
FTimer.Interval := 1000;
FTimer.Enabled := True;
while not Terminated do
begin
// Application.ProcessMessages;
end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
FThread := TMyThread.Create(True);
FThread.FOwner := Self;
FThread.Resume;
end;

procedure TForm3.SetValue(Value: Integer);
begin
ProgressBar.Position := Value;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
FThread.Terminate;
end;

end.

В полне закономерно, что цикл
while not Terminated do begin // Application.ProcessMessages; end;
вызвал 100% загрузку проца. (если раскоментить // Application.ProcessMessages;, ни чо хорошего тож не будет).
Подскажите, что нужно сделать, что бы выполнение потока не прекращалось, но и при этом не происходилобы 100%-ой загрузки проца.
Заранее спасибо.

← →
tesseract © (2006-08-17 15:34) [1]

sleep(10);

← →
Ketmar © (2006-08-17 15:35) [2]

эцих без гвоздей. %-)

делать Sleep(0) в цикле.

← →
Сергей М. © (2006-08-17 15:36) [3]

var
Msg: TMsg;
..
while not Terminated and GetMessage(Msg, 0, 0, 0) do
DispatchMessage(Msg)

← →
Darrin © (2006-08-17 15:37) [4]

Вроде пробовал :-/ не помогало.... ща ещё разок попробую ...

← →
tesseract © (2006-08-17 15:41) [5]

> Сергей М. © (17.08.06 15:36) [3]

так получше конечно :-)

← →
Ketmar © (2006-08-17 15:47) [6]

> [3] Сергей М. © (17.08.06 15:36)
"или так" (ц) анекдот

← →
Darrin © (2006-08-17 15:48) [7]

>> Сергей М. ©
Пасиб. :) я тож пришёл именно к такому решению, просто думал есть другой - "более правильный способ"

>> tesseract
Благодарсвую,
Sleep(1); Application.ProcessMessage;
тож работает

← →
Ketmar © (2006-08-17 15:56) [8]

> тут достаточно чего-то одного. или Sleep(), или обработки
> сообщений. %-)

Вот-вот. Нафига таймер то в таком потоке потоке?
while not Terminated do begin
inc(Count);
if Count mod 20 = 0 do begin
// делаем что то по таймеру
end;
Sleep(50);
end;

ой. всё. понял. протупил проснумшись. %-)

Создание потока, выполняющегося продолжительное время. Найти похожие ветки