|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Еще пара вопросов возникла:
Назначаю процедуру для OnTerminate создаваемого потока Код:
procedure TForm1.PoolCeate; var i: Byte; begin SetLength(FPool,edtPoolCount.Value); for i := Low(FPool) to High(FPool) do begin FPool[i]:= TDLThrd.Create(DlMode,edtURL.Text,Queue,WriteResult); {FreeOnTerminate:= True} TDLThrd(FPool[i]).OnTerminate:= Form1.ThrTerminate; TDLThrd(FPool[i]).Start; end; end; procedure TForm1.ThrTerminate(Sender: TObject); begin CS.Enter; ListBox1.Items.Append('Поток - '+IntToStr(TDLThrd(Sender).ThreadID)+' - сдох'); CS.Leave; end; Код:
.... if Assigned(TDLThrd(FPool[i])) then ... Код:
.... if WaitForSingleObject(MyThread.Handle, 1000) <> WAIT_OBJECT_0 then ..... Код:
.... if WaitForSingleObject(TDLThrd(FPool[i]).Handle, 1000) = WAIT_FAILED then ..... Но все это мои догадки, хотелось бы услышать мнение специалиста. И если все так, корректен ли будет такой вариант Код:
...... TDLThrd(FPool[i]).OnTerminate:= Form1.ThrTerminate; ..... procedure TForm1.ThrTerminate(Sender: TObject); begin CS.Enter; ListBox1.Items.Append('Поток - '+IntToStr(TDLThrd(Sender).ThreadID)+' - сдох'); CS.Leave; TDLThrd(Sender):= nil; //вариант: Sender:= nil; end; Второй вопрос: поток сначала ждет появления задания, далее выполняет их пока список не опустеет и потом самоуничтожается Код:
procedure TDLThrd.Execute; begin while not FTaskExist do //Ожидание задачи begin ...... end; while FTaskExist do //Выполнение begin ..... end; end; Можно конечно попробовать заранее просчитать количество заданий и не создавать лишних потоков, но все же, хотя бы для общего развития, как убить такой поток? Если не ошибаюсь Free вызывает Terminate и WaitFor, а если так то поток все равно останется жить. Вроде бы есть WinAPI функция, но есть мнение что этот способ не кошерный. |