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

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

Чтение данных из COM-порта [D6, WinXP]

dens ©   (2002-09-26 16:43:00) 

Читаю данные из COM порта в потоке в буфер
var
RxDataBuf :array[1..256] of byte;
const
RxBufSize=SizeOf(RxDataBuf);

procedure ReadThread.Execute;
begin
while not Terminated do
ReadFile(hCOM, RxDataBuf, RxBufSize, RxBytes, nil);
end;

Проблема в том, что поток останавливается (зависает) на ReadFile до тех пор, пока в порт не будет передано 256 байт (размер буфера). Насколько я понимаю, прочитано должно быть и любое меньшее число байт, и их количество записано в RxBytes.
Кто-нибудь сталкивался с такой проблемой?

---

Delphi 5.01   (2002-09-27 18:08:00) [1]

raz vi etim zanimaetes to vi tochno znaete kak ustanovit modem v rejim wait for a call "ATS0=1" ne rabotaet, ne smotra naa to chto vse ostalnie operacii rabotaut tipa ATDT ili ATH, ATA toje!

---

Aleks1   (2002-09-27 04:07:00) [2]

Настрой таймауты порта, если не используешь "события".

---

dimod   (2002-09-26 17:35:00) [3]

используй структуру OVERLAPPED
var
NumBytes: Longword;
BufPtr: Integer;
Res: LongBool;
Ovl : OVERLAPPED;

...
FillChar(Ovl, Sizeof(Ovl), 0);
Ovl.hEvent := CreateEvent(nil, False, False, nil);

hCom := CreateFile(PChar("\\.\COM1"),
GENERIC_READ or GENERIC_WRITE, 0, Nil, OPEN_EXISTING,
FILE_FLAG_OVERLAPPED, 0);

...
Res := ReadFile(hCom, Buffer[BufPtr], 1, NumBytes, @Ovl);
if not Res or (NumBytes <> 1) then begin
StatusLine := 0;
if GetLastError = ERROR_IO_PENDING then
WaitForSingleObject(Ovl.hEvent, INFINITE);
end; { if Not Res ... }

---

Наверх