Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ReadFile :((( [D3]

ValeX © (2002-07-29 16:04:00)
Виснет на строке чтения из порта ReadFile... :(((

HPort := CreateFile(PChar("COM1"),
GENERIC_READ + GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0
);
until HPort <> INVALID_HANDLE_VALUE;
BytesWritten:=1;
if not ReadFile(HPort,g[0], 1, BytesWritten, nil) then
ShowMessage("Port is down")
else ShowMessage("OK");

DiamondShark (2002-07-29 17:34:00) [1]
И правильно делает.

Таймауты надо настраивать.

var
ct: COMMTIMEOUTS;
...
begin
...
ct.ReadIntervalTimeout := 100;
ct.ReadTotalTimeoutMultiplier := 10;
ct.ReadTotalTimeoutConstant := 1000;
ct.WriteTotalTimeoutMultiplier := 10;
ct.WriteTotalTimeoutConstant := 1000;
SetCommTimeouts(HPort, ct);
...

Все значения в миллисекундах.
ReadIntervalTimeout -- промежуток между быйтами.
Если после приема байта пройдет 100 мс, то операция чтения прервертся.

Read(Write)TotalTimeoutMultiplier -- время на прием/передачу одного байта.

Read(Write)TotalTimeoutConstant -- время "про запас" на всю операцию.

Если операция чтения/записи прерывается по таймауту, ReadFile (WriteFile) возвращает true, а счетчик байт устанавливается в реально переданное число байт.

-------------
ЗЫ
Вообще то в хелпе все подробно расписано.

Наверх

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