Потоки (Threads) не останавливаются

[cometa]

Всем привет,пишу не большую программку с использованием многопоточности все прекрасно работает,но потоки не останавливаются в конце,либо не понятно что делается...
вот код

procedure TMyThread.Execute;
var
  HTTP: THttpSend;
  HTML:Tstringlist;
begin

   while not terminated do begin
   CS.Enter;
   inc(acc);
     if Acc<Accounts.Count then CurAcc:=Acc else Work:=False;
     inc(np);
 if np>Proxys.Count then  np:=0;
  CS.Leave;
   if work then begin
    


   
  synchronize(sync);
   end;

   end;

   terminate;
  if Thread=0 then  Showmessage('The End!');

end;

Подскажите в чем проблема ?

[саша40]

Бруты, чеккеры и прочее подобное дерьмо запрещено! До свидания!

[cometa]

Сообщение от саша40

Бруты, чеккеры и прочее подобное дерьмо запрещено! До свидания!

А если я уберу код и поставлю цикл который будет выводить в мемо текст?
Просто кинул сюда такой код а разница в чем ?

[Stilet]

потоки не останавливаются

Это потому что у тебя не прописана остановка потока
Где гарантии что твоя программа при завершении (как я понимаю речь идет о завершении твоей проги) посылает сообщение потоку тормознуться?

[саша40]

Сообщение от cometa

А если я уберу код и поставлю цикл который будет выводить в мемо тескт?
Просто кинул сюда такой код а разница в чем ?

Да по коду как раз понятно это, звездочет! Читать надо уметь код, а не копировать.

[cometa]

Сообщение от Stilet

Это потому что у тебя не прописана остановка потока
Где гарантии что твоя программа при завершении (как я понимаю речь идет о завершении твоей проги) посылает сообщение потоку тормознуться?

Procedure potok.execute;
while not terminated do
begin
if not terminated do
begin
//тут выполняемый код

end;
end;
terminate; //убываем поток
end;

но после этого программа продолжает работать
Если я что-то делаю не так то простите заранее

[Stilet]

terminate; //убываем поток

Это не убийство потока. Поток освобождается после того, как завершает работу его метод Execute, если FreeOnTerminate стоит в True и просто останавливается в другом случае. Сам метод Terminate служит всего лишь для установки свойства-флага, которое рекомендуется для проверки стоп-сигнала:

procedure TThread.Terminate;
begin
  FTerminated := True;
end;

Это из генофонда.
Поэтому тебе вызывать метод terminate нужно извне потока. И после вызова методом WaitFor() подождать пока поток остановится. И только тогда завершать работу самой формы или приложения главного или что там у тебя завершается.

[Аватар]

terminate

Так из вызывающей проги можно потоку подать сигнал, что завершай свое черное дело. Тогда terminated станет True и цикл в execute завершится и поток тоже, если после нет ни каких препятствий. А твои потуги использовать terminate не в дугу

[JUDAS]

Комета, давай поясню подробно, ибо по выражению гнлаз вижу что ты не понимаешь о чём идёт речь

procedure TMyThread.Execute;
var
  HTTP: THttpSend;
  HTML:Tstringlist;
begin
 =============НАЧАЛО ЦИКЛА ===========
  while not terminated do
   begin 
     CS.Enter;
     inc(acc);

     if Acc<Accounts.Count then      
         CurAcc:=Acc 
     else 
        Work:=False;
     inc(np);

    if np>Proxys.Count then  np:=0;

    CS.Leave;
    if work then 
    begin
 
       synchronize(sync);
    end;
  end;
 =============КОНЕЦ ЦИКЛА ===========

   // МЫ ОКАЖЕМСЯ ТУТ, ЕСЛИ ЦИКЛ КТО_ТО ПРЕРВЁТ И terminated СТАНЕТ = FALSE




   terminate; << ВОПРОС, КАК ТЫ ДОЙДЁШЬ СЮДА, ЕСЛИ ТЫ ВИСИШЬ В ЦЫКЛЕ (СИНИМ ВЫДЕЛЕНО НАЧАЛО/КОНЕЦ)
   if Thread=0 then  Showmessage('The End!');
end;

[cometa]

Сообщение от JUDAS

Комета, давай поясню подробно, ибо по выражению гнлаз вижу что ты не понимаешь о чём идёт речь

procedure TMyThread.Execute;
var
  HTTP: THttpSend;
  HTML:Tstringlist;
begin
 =============НАЧАЛО ЦИКЛА ===========
  while not terminated do
   begin 
     CS.Enter;
     inc(acc);

     if Acc<Accounts.Count then      
         CurAcc:=Acc 
     else 
        Work:=False;
     inc(np);

    if np>Proxys.Count then  np:=0;

    CS.Leave;
    if work then 
    begin
 
       synchronize(sync);
    end;
  end;
 =============КОНЕЦ ЦИКЛА ===========

   // МЫ ОКАЖЕМСЯ ТУТ, ЕСЛИ ЦИКЛ КТО_ТО ПРЕРВЁТ И terminated СТАНЕТ = FALSE




   terminate; << ВОПРОС, КАК ТЫ ДОЙДЁШЬ СЮДА, ЕСЛИ ТЫ ВИСИШЬ В ЦЫКЛЕ (СИНИМ ВЫДЕЛЕНО НАЧАЛО/КОНЕЦ)
   if Thread=0 then  Showmessage('The End!');
end;

ну это можно сделать например

break;

- ом