Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

 // предварительно взведем флаг ожидания события, чтобы цикл заработал

 InitWaitCommEvent;

 while not Terminated do

 case WaitForMultipleObjects(3, @eHandles, False, INFINITE) of

 // при изменении состояния порта

 WAIT_OBJECT_0:

 begin

 // опять взведем флаг ожидания события

 InitWaitCommEvent;

 // для подавления дребезга сделаем небольшую задержку. Если состояние

 // порта изменится быстрее, чем истечет время задержки (дребезг), то

 // таймер просто будет переведен "на попозже".

 Win32Check(SetWaitableTimer(FFlutterTimer, eTime, 0, nil, nil,

 False));

 end;

 // при запросе принудительного завершении потока

 WAIT_OBJECT_0 + 1:

 // незамедлительный выход - завершение выполнения потока

 Exit;

 // после задержки для подавления дребезга

 WAIT_OBJECT_0 + 2:

 begin

 // узнаем состояние

 Win32Check(GetCommModemStatus(FComHandle, eStatus));

 eStubInstalled := (eStatus and MS_CTS_ON) > 0;

Рекомендуем скачать другие рефераты по теме: экзамены, реферат на тему мир.



Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки