Вниз
Скачать: 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.007 c
14-1858
Сергей Макаров
2002-12-12 10:56
2003.01.02
Помогите с задачкой.


4-1936
Фукс
2002-11-16 13:00
2003.01.02
кто знает как отформатировать дискету?


1-1770
Z-man7777
2002-12-20 09:45
2003.01.02
ini-файлы


1-1803
AVR
2002-12-19 12:05
2003.01.02
QReport: Access violation... при отчёте > 1страница.


1-1834
Checist [root]
2002-12-20 10:16
2003.01.02
Ввод по маске




   Наверх