Еще пара вопросов возникла:
Назначаю процедуру для 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
.....
Так вроде бы все встает на свои места, и GetLastError выдает 6, что как я полагаю означает - "Thread Error: Неверный дескриптор (6)".
Но все это мои догадки, хотелось бы услышать мнение специалиста.
И если все так, корректен ли будет такой вариант
Код:
......
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;
Такой вариант в моем случае более приемлем чем While not Terminated Do. Но тут есть "маленькие грабельки", если заданий будет меньше чем потоков, те кому не достанется заданий зависнут в цикле ожидания.
Можно конечно попробовать заранее просчитать количество заданий и не создавать лишних потоков, но все же, хотя бы для общего развития, как убить такой поток? Если не ошибаюсь Free вызывает Terminate и WaitFor, а если так то поток все равно останется жить. Вроде бы есть WinAPI функция, но есть мнение что этот способ не кошерный.