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

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

WaitCommEvent(ComFile,Mask,@Overlapped)

POP ©   (2006-09-17 21:05:00) 

Если я использую WaitCommEvent с Overlapped , нужно ли чтобы Overlapp.hEvent было уже заполнено функцией CreateEvent или достаточно предварительно установить SetCommmask и все?

Или CreatEvent используется только для ReadFile/WriteFile и непосредственно перед ними?

---

medved_68   (2006-09-18 13:58:00) [1]

> Я ожидание пришедшего байта сделал так:
>
> ----
> SetCommMask(ComFile,EV_RXCHAR);
>  Overlapped.hEvent:= CreateEvent(nil, false, false, nil);
>
>  WaitCommEvent(ComFile,Mask,@Overlapped);
>  if WaitForSingleObject(Overlapped.hEvent,50) = WAIT_OBJECT_0
> then
>    if GetOverlappedResult(ComFile, Overlapped, n, false)
> = true then
>      Goto okk;
>  Memo1.Lines.Add('Error. COM port does not answer...');
>  Goto endd;
> ---
>
> Мне кажется это через одно место получилось, зато работает.
>

Да можно было проще:

ReadFile(HComm,Buff,1,nb,@Reading);
if WaitForSingleObject(Readin.hEvent,50) = WAIT_OBJECT_0
then begin
.....делаешь что то по приему 1 байта
end
else делаешь что то если байт не принят по истечении 50 мс;
И без всяких  масок и WaitCommEven"ов
Нафига ставить ожидание приема первого байта, если ты и так считываешь только его. И вообще нафига пользоваться АПИ функциями, если не понимать, как они работают и что они делают???

---

POP   (2006-09-18 01:25:00) [2]

> Это как?
> CreateEvent - создает объект ядра.


Для WaitCommEvent с Overlapped тоже оказалось надо создавать событие в Overlapp.hEvent.

Я ожидание пришедшего байта сделал так:

----
SetCommMask(ComFile,EV_RXCHAR);
 Overlapped.hEvent:= CreateEvent(nil, false, false, nil);
 WaitCommEvent(ComFile,Mask,@Overlapped);
 if WaitForSingleObject(Overlapped.hEvent,50) = WAIT_OBJECT_0 then
   if GetOverlappedResult(ComFile, Overlapped, n, false) = true then
     Goto okk;
 Memo1.Lines.Add('Error. COM port does not answer...');
 Goto endd;
---

Мне кажется это через одно место получилось, зато работает.

---

Kolan   (2006-09-17 22:02:00) [3]

> заполнено функцией CreateEvent

Это как?
CreateEvent- создает объект ядра.

---

Наверх