существование обьекта

← →
feniks (2002-12-20 13:08) [0]

Как правильно определить существование обьекта, к примеру - потока? У меня создается поток, в него передается строка запроса, и поток потихоньку с низким приоритетом запрос отрабатывает. После сам умирает. Но тут - новая порция данных с сокета. Если поток существует - ее надо сложить в буфер, если нет - создавать и запускать новый.
Проверка на nil неэффективна, даже вызывает ошибку если обьект не определен. По логике - если not suspended, но тоже не проходит, иногда происходит попытка создания нового потока, когда старый еще существует но уже suspend.
спасибо за советы.

← →
AlexSV (2002-12-20 13:46) [1]

Решал как-то аналогичную задачу, только без пополнения буфера и suspend"а.
Если я правильно понял, то FreeOnTerminate := True.
В этом случае необходимо установить в nil указатель на поток когда он разрушается.
Если так, то из destructor"а пошли объекту, в котором храниться указатель на поток message, а в обработчике message"а установи указатель в nil.
Если не понятно объяснил, то пиши на mail, вышлю пример.

← →
Digitman (2002-12-20 13:48) [2]

> После сам умирает

Не давай ему самому (бесконтрольно со стороны создавшего его кода) "умирать". Пусть он "крутится" в цикле (в Execute-процедуре), ожидая новой строки запроса. Есть новая строка - исполняет и снова ждет, нет - просто ждет (как минимум проверяя св-во Terminated)

← →
Polevi (2002-12-20 13:48) [3]

hEvent:=CreateEvent(nil,false,false,nil)

TSomeThread.Execute;
begin
SetEvent(hEvent);
try
..
..
finally
ResetEvent(hEvent);
end;
end;

в коде проверяй, если ивент сигналит - значит поток работает

← →
feniks (2002-12-20 16:11) [4]

Спасибо большое, коллеги. Все понятно, сделаю.

существование обьекта Найти похожие ветки