Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.15;
Скачать: CL | DM;

Вниз

Блин! Во в голову вдарило-то! Вопрос про Com-порт..   Найти похожие ветки 

 
Red Alert   (2002-01-13 08:01) [0]

Читаю с порта
bResult:= ReadFile(hCom, CharArray[i], 1, dwRead, nil); // чтение одного байта из порта,но
порт в этот момент ничего не посылает и прога висит в на этой функции пока что-нить с порта не придет.
Можно ли сделать так, что если с порта ничего не идет, функция обрывалась?


 
paa713   (2002-01-13 12:14) [1]

Да можно. Даже скорее нужно !!!. Тебе надо применять ассинхронный ввод-вывод. Тогда получиьтся вот что:
1. Ты читаешь байт из порта.
2. Если он там есть, то все в порядке.
3. Если нет, то функция вернет ERROR_IO_PENDING.

Более подробно сейчас описать не могу. Нет времени. Если интересно пиши. Может даже поделюсь готовой библиотекой, если разыщу исходники.


 
Red Alert   (2002-01-14 14:34) [2]

Я проблему решил вот так, хотя твои рекомдации тоже попробую
я поставил таймаут на чтение данных
SetCommTimeOuts(hCom, setCommParam);
в структуру SetCommParam загнал таймоуты в мс
with SetCommParam do
begin
ReadIntervalTimeout:=50;
ReadTotalTimeoutMultiplier:=50;
ReadTotalTimeoutConstant:=0;
WriteTotalTimeoutMultiplier:=0;
WriteTotalTimeoutConstant:=0;
end;
Вроде работает, проверю позже на чтении с устройства


 
Varfolomey   (2002-01-19 21:44) [3]

Попробуй использовать параллельные потоки!


 
Илья   (2002-01-20 18:57) [4]

По моему SetCommTimeOuts наилучшее решение
если конечно читать порт в потоке с юзерским интерфейсом



Страницы: 1 вся ветка

Текущий архив: 2002.04.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-46400
dimonf
2002-04-01 20:46
2002.04.15
Господа программисты, можно ли в QuickReport засунуть данные из S


1-46303
andrew_f
2002-04-02 18:29
2002.04.15
Internal error: U704


4-46540
АлексейФ
2002-02-14 13:07
2002.04.15
Мне надо перерисовать TListView


4-46545
fddiynic
2002-02-13 04:10
2002.04.15
winaip32


3-46225
tima_binsprog
2002-03-23 20:16
2002.04.15
Getting username using TDatabase