Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

существование обьекта [Win95/98, WinME, Win2k]


feniks ©   (2002-12-20 13:08:00) 

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


feniks   (2002-12-20 16:11:00) [1]

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


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


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


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


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

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

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

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


AlexSV   (2002-12-20 13:46:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо