Вниз
Скачать: CL | DM;

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

← →
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]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.005 c
6-1847
Дмитрий К.К.
2002-11-04 18:25
2003.01.02
Как грамотно обработать событие OnProgressChange у WebBrowser а?


6-1852
romych
2002-11-05 14:10
2003.01.02
Нужна помощь, совет


6-1854
stikriz
2002-11-04 22:34
2003.01.02
TTcpClient


14-1911
angelant
2002-12-15 13:47
2003.01.02
Dos... Дисковая операционная система - есть люди, зна... команды?


14-1859
MaximatorVeter
2002-12-12 13:34
2003.01.02
Горяченькими!




   Наверх