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

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

как лучше организовать ожидание в потоке? [D7, WinXP]


SergeyDon ©   (2005-07-18 15:41:00) 

есть поток с "сокетами" которые обрабатывают входящую информацию,  сама процедура T...Thread.Execute ничего недолжна делать кроме как ждать когда прейдет команда (от пользователя или системы) завершить поток (желательно минимально использовать процессорное время).
По приходу команды надо закрыть сокеты (знаю как сделать) и уничтожить поток (тоже вроде понятно).
Сейчас так:

procedure T…Thread.Execute;
begin
 while true do
 begin
  sleep(20);
 end;
end;


Digitman   (2005-07-18 17:45:00) [1]

BlockMode = ?


Digitman   (2005-07-18 17:43:00) [2]


> SergeyDon   (18.07.05 17:39) [10]


это нормально, если это оправдано.

в сомнительных (с т.з. "мультипоточности компонента") местах при его отладке всегда контролируй истинность выражения GetCurrentThreadId = MainThreadId

это МНОГОЕ даст в понимании происходящего в конкретном компоненте


SergeyDon   (2005-07-18 17:39:00) [3]

если создавать свои события, как это смотрится со стороны?
В том смысле, что если мой код будет смотреть другой (возможно более грамотный) человек программист он не будет улыбаться и говорить «ДА!» это кто же тебя так учил :)?

Плодить Evets/Mutex/Sema… это хорошо?

PS я сам «самоучка»!


Digitman   (2005-07-18 17:30:00) [4]

за TTCPServer ничего не скажу - не пользовал и не вникал в эту переходную ерунду.


SergeyDon   (2005-07-18 17:21:00) [5]

на паузу ставлю поток 2


SergeyDon   (2005-07-18 17:09:00) [6]

поток приложения (основной)
\- поток 1 (созданный и управляемый основным потоком)
\- поток 2 (созданный и управляемый основным потоком)

поток 1 - создан для выполнения опроса состояния оборудования подключенного к "Com-портам" системы, с записью информации в файл.

поток 2 - создан для связи и обмена информацией с удалёнными клиентами. Поток 2 использует сокеты (точнее компоненту TTcpServer). сам компанент является "событийным" и обрабатывает получение и прием данных в собственном потоке (моё мнение), и ему не важно что там делает поток создавший его, важно что бы этот поток не уничтожил компонент. Если я ставлю поток на паузу то TTcpServer всеравно продолжает работать (проверено) получая и отсылая запросы пользователя/лю. Поскольку потоку 2 нечего делать и возник вопрос:
как правильно организовать его Execute, что-бы и пауза обработалась и минимально использовать процессорное время?


Digitman   (2005-07-18 16:43:00) [7]


> Он "поток" и делает создаёт сокет который в свою очередь
> и обрабатывает все запросы и посылает ответы! А поток создавший
> сокет просто висит!


галиматья какая-то..

о проблеме в КАКОМ потоке ты ведешь речь - ТРАНСПОРТНОМ потоке (тот который собственно и ведет обмен с клиентом) или АКЦЕПТИРУЮЩЕМ потоке (тот который создает ТРАНСПОРТНЫЕ потоки) ?


ZlDoc   (2005-07-18 16:39:00) [8]

WaitForSingleObject Ожидает установки обекта события, которое самому нужно создавать(CreateEvent), и когда нужно устанавливать (SetEvent).


SergeyDon   (2005-07-18 16:38:00) [9]

to Digitman: Он "поток" и делает создаёт сокет который в свою очередь и обрабатывает все запросы и посылает ответы! А поток создавший сокет просто висит!
или так неправильно?


SergeyDon   (2005-07-18 16:27:00) [10]

WaitForSingleObject - что должно ожидать? а если надо на паузу поставить?

MsgWaitForMultipleObjects(..., ,INFINITE,QS_ALLINPUT) тоже не ловит сообщение "поток на паузу" и "поток стоп"


Digitman   (2005-07-18 16:10:00) [11]


> сама процедура T...Thread.Execute ничего недолжна делать


неразумно.
крайне.

весь смысл доп.потока в том чтобы "что-то делать", параллельно с прочими кодовыми потоками процесса


Fay   (2005-07-18 15:51:00) [12]

2 SergeyDon   (18.07.05 15:41)
WaitForSingleObject и т.п.


Наверх

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