[Alloc]

Здравствуйте.

Начал работать с потоками, разбираться что да как, появилась первая проблема. Поток запускается и работает нормально, но когда я пытаюсь остановить его Thread.Terminate; - ничего не выходит, процессор по прежнему грузится. В потоке у меня бесконечный цикл. Как его остановить?

Код:

type
   TMyThread1 = class(TThread)
   private
     { Private declarations }
   protected
     procedure DoWork;
     procedure Execute; override;
   end;

Var
  T1   : TMyThread1;

implementation

procedure TMyThread1.Execute;
begin
  while not Terminated do
    Synchronize(DoWork);
end;

procedure TMyThread1.DoWork;
begin
  while true do 
  begin
  
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
   {Если кнопка называется Stop...}
   if Button1.Caption = 'Stop' then begin
     T1.Terminate;
     {Изменяем название кнопки}
     Button1.Caption := 'Start';
     {Выходим из процедуры}
     Exit;
   end;

   T1 := TMyThread1.Create(False);
   T1.Priority := tpLowest;
   Button1.Caption := 'Stop';
 end;

[Bargest]

procedure TMyThread1.Execute;
begin
while not Terminated do
Synchronize(DoWork);
end;

procedure TMyThread1.DoWork;
begin
while true do
begin

end;
end;

Это ж гениально. Создаем поток, чтобы в фоне параллельно что-то делать, но сразу дергаем synchronize и навечно блокируем нормальную работу главного потока пустым циклом.

[Alloc]

т.е. мне следовало просто вписать свой цикл в TMyThread1.Execute а TMyThread1.DoWork; удалить?

[Страдалецъ]

Код:

procedure TMyThread1.Execute;
begin
  while not Terminated 
  do begin
      Synchronize(DoWork);
      Sleep(50);
      end;
end;
 
procedure TMyThread1.DoWork;
begin
 //Что-то делаем в один проход
end;

[Bargest]

т.е. мне следовало просто вписать свой цикл в TMyThread1.Execute а TMyThread1.DoWork; удалить?

Цикл - да, в Execute. А в Synchronize выносить исключительно те действия, которые затрагивают компоненты формы. Если почти все действия выполнять в synchronize, то толку от многопоточности не будет ровным счетом никакого.

[Verevkin]

пример работы с потоком ннада?



shift+f11