[Alloc]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

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; удалить?

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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