[Yes_Maks]

Bargest, доброго времени! Стоит примерно аналогичная задача. Подскажи пожалуйста как правильно организовать второй поток для прослушки com порта. Суть вот в чем. Запускается основная программа и сразу же дополнительный поток, в котором происходит прослушивание ком порта. Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

unit U_PortToolk; interface uses   Classes, CPortCtl, ExtCtrls, CPort, U_Main; type   ToolkPort = class(TThread)   ComPort: TComPort;   private     procedure Listn;   protected     procedure Execute; override;   end; implementation procedure ToolkPort.Listn; begin   ComPort.OnRxChar:= F_Main.ComPort1RxChar; end; procedure ToolkPort.Execute; begin   repeat     Synchronize(Listn);   until Terminated; end; end.

Проблема начинается тогда, когда в основной программе я нажимаю кнопку опроса 20 устройств. В обработчике кнопки поочередно отправляется запрос 20 устройствам, они на него отвечают. По идее, после каждой итерации при приходе пакета в ком порт от устройства надо срабатывать обработчику RxChar в дополнительном потоке, НО этого не происходит. Пробуя отладчиком по шагам, получается, что пока не прогонится весь цикл от 1 до 20, событие прихода пакета в сеть не срабатывает. А после цикла все равно ничего уже не происходит, видимо буфер уже пустой. Пользуюсь установленной библиотекой ComPort Library version 4.10 от Dejan Crnila. Что делаю не так, чего не понимаю?