Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Thread? [Delphi, Windows]


Юрий Ж. ©   (2003-12-27 23:07:00) 

Как прервать выполнение Thread а потом снова начаь выполнение с другими параметрами. Пример я смотрел.
Объясняю:
 после вызова thread.Terminate уже нельзя ничего с ней сделать, как этого избежать.
Я понимаю, что данный вопрос скорее в WinAPI, посто прогу пишу на KOL...
Заранее благодарен!


panov   (2003-12-29 21:47:00) [1]

В процедуре потока должен быть опрос некоей переменной(естественно с написанием потокобезопасного кода)

Примерная процедура такая:

MyVar := 1;
CreateThread(nil,0,MyThread,0,HandleThread);
...
SuspendThread(HandleThread);
MyVar := 0;
...
ResumeThread(HandleThread);

procedure MyThread();stdcall;
var
begin
 <Begin Loop>

   case MyVar of
     0:...
     1:...
   else ...
   end;
 <End Loop>
end;


Gandalf   (2003-12-28 13:22:00) [2]

Вот псевдо код, думаю идея ясна.

while not Terminated do
begin
 DoSMTH(Start);
 Suspend;
end;

....
Start:=123;
Resume;
....


miek   (2003-12-28 13:20:00) [3]

Mythread.Suspend;
MyThread.var1:= flag_perezapusk;
MyThread.Resume;


Юрий Ж.   (2003-12-28 11:15:00) [4]

А можно немного поподробнее и с примерчиком :)


miek   (2003-12-28 00:22:00) [5]

Остановить поток, изменить его состояние (переменные, объект и проч), затем запустить снова. А уж он сам должен видеть, что его перезапустили.


Наверх

Титульная страница Поиск, карта сайта Написать письмо