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

 // Что интересно, нельзя дважды подряд вызвать WaitCommEvent, т.е.

 // запросил событие - значит, дождись его.

 if not WaitCommEvent(FComHandle, eEventMask, @eOverlapped)

 and (GetLastError <> ERROR_IO_PENDING) then

 RaiseLastOSError;

 end;

var

 // TWOHandleArray - это просто готовый массив из 64 хендлов для

 // функции WaitForMultipleObjects. Мы используем только 3 хендла,

 // но для простоты воспользуемся готовым массивом на 64, чтобы

 // не связываться с ручным распределением памяти.

 eHandles: TWOHandleArray;

 eTime: Int64;

 eStatus: DWORD;

 eStubInstalled: Boolean;

begin

 // заполним структуры для асинхронной работы

 FillChar(eOverlapped, SizeOf(eOverlapped), 0);

 eOverlapped.hEvent := FChangeEvent;

 eHandles[0] := eOverlapped.hEvent;

 eHandles[1] := FTerminateEvent;

 eHandles[2] := FFlutterTimer;

 // 0.5 секунды для SetWaitableTimer

 eTime := -5000000;

 // Ничего себе точность, не правда ли?

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





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