Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.46 MB
Время: 0.015 c
3-35144
Devid
2002-07-20 20:41
2002.08.12
Простой да ужаса вопрос


4-35498
tretmike
2002-06-05 12:26
2002.08.12
Как удалить окно из панели задач, но оставить его видимым


1-35346
Арсентьев
2002-07-30 12:36
2002.08.12
изменить цвет


8-35384
HellTrooper
2002-04-02 16:41
2002.08.12
Огонь


3-35201
3asys
2002-07-23 13:51
2002.08.12
Ошибка при фильтрации строкового поля в ADO