Главная страница
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.013 c
1-35260
anod
2002-07-31 00:22
2002.08.12
TColor


4-35518
Dmk
2002-06-05 00:39
2002.08.12
DeviceContext


1-35236
Blacki
2002-07-30 12:40
2002.08.12
Умный алгоритм уменьшения картинки.


14-35451
Sniffer
2002-07-13 16:05
2002.08.12
Какая по вашему мнению лучшая книга по разработке баз данных...


4-35509
Burmistroff
2002-06-06 21:06
2002.08.12
PWideChar -> PChar