[Kosmonaft68]

Добрый вечер! Использую готовый проект в котором не работает чтение из порта. Именно нужен асинхронный режим. Как понял проблема с запуском потока для чтения, целый вечер изучаю и не могу понять в чем дело, заранее спасибо!!!
Ссылка на проект:
http://www.delphimaster.ru/articles/comport2/

[Kosmonaft68]

Поток запускается, а вот (TransMask and EV_RXFLAG)=EV_RXFLAG это выражение всегда ложное,поэтому считывания не происходит

[angvelem]

Сюда код читающего потока выкладывай.

[Kosmonaft68]

Код:

procedure ReadComm;
  var
   Resive:array [0..255] of char;
     Ovr : TOverlapped;
  begin

     while true do
   begin
    TransMask:=0;

    WaitCommEvent(CommHandle,TransMask,@Ovr); //ждем

    if (TransMask and EV_RXFLAG)=EV_RXFLAG then //проверяем нужное событие
     begin

      ClearCommError(CommHandle,Errs,@Stat);//сбрасываем флаг
      Kols := Stat.cbInQue;
      ReadFile(CommHandle,Resive,Kols,Kols,@Ovr);//читаем
      //тут должна идти обработка принятой информации из Resive
      Form1.Panel1.Caption:=string(Resive);
      //не очень хороший вариант вывода, но для примера подойдет
     end;//mask
    end;//while
  end;

[Kosmonaft68]

Вот еще...у меня Вин8 и мой переходник UsbToTTL сразу не работал, нашел в сети какой то драйвер,установил и все заработало, проверял в терминале Putty

[angvelem]

Проверьте установлена ли маска SetCommMask(Port.Handle, EV_RXCHAR) и где ожидание события WaitCommEvent(Port.Handle, TransMask, @Ovr).