Текущий архив: 2002.08.12;
Скачать: CL | DM;
Вниз
ReadFile :((( Найти похожие ветки
← →
ValeX (2002-07-29 16:04) [0]Виснет на строке чтения из порта 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) [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, а счетчик байт устанавливается в реально переданное число байт.
-------------
ЗЫ
Вообще то в хелпе все подробно расписано.
Страницы: 1 вся ветка
Текущий архив: 2002.08.12;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.006 c
