[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).

[Kosmonaft68]

я думал ожидание события это вот эта строчка

Код:

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

то есть она не верная? или два раза ждать?
Маска стоит только такая,сейчас буду экспериметировать

Код:

SetCommMask(CommHandle,EV_RXFLAG);

[Kosmonaft68]

Как я понял port.handle эта та же переменная что и моя CommHandle.
Пробовал поставить вашу маску вместо своей - результата нет.

[angvelem]

Хотел написать про WaitForSingleObject, а написал WaitCommEvent.
Не помню где брал, но у меня работает.

Код:

function ReadThread(P : Pointer) : DWORD; stdcall;
var
  asp    : TAsyncPort;
  cs     : COMSTAT;						                // структура текущего состояния
								                //  порта, в данной программе
								                //  используется для определения
								                //  количества принятых в порт байтов
  btr,
  Temp,
  Mask,
  Signal : DWORD;						                // переменная temp используется в
							                        //  качестве заглушки
begin
  asp := TAsyncPort(P);

  rdo.hEvent := CreateEvent(NIL, True, True, NIL);		                // создать сигнальный объект-событие
								                //  для асинхронных операций
  SetCommMask(asp.fCom, EV_RXCHAR);				                // установить маску на срабатывание
								                //  по событию приёма байта в порт
  while True do							                // пока поток не будет прерван,
								                //  выполняем цикл
  begin
    WaitCommEvent(asp.fCom, Mask, @rdo);			                // ожидать события приёма байта
								                //  (это и есть перекрываемая операция)
    Signal := WaitForSingleObject(rdo.hEvent, INFINITE);	                // приостановить поток до прихода байта
    if Signal = WAIT_OBJECT_0 then				                // если событие прихода байта произошло
    begin
      if GetOverlappedResult(asp.fCom, rdo, Temp, True) then	                // проверяем, успешно ли завершилась
								                //  перекрываемая операция WaitCommEvent
        if (mask and EV_RXCHAR) <> 0 then			                // если произошло именно событие
								                //  прихода байта
        begin
          ClearCommError(asp.fCom, Temp, @cs);			                // нужно заполнить структуру COMSTAT
          btr := cs.cbInQue;					                //  и получить из неё количество принятых байтов
          if btr > 0 then 					                // если действительно есть байты для чтения
          begin
            ReadFile(asp.fCom, BufRd[0], btr, Temp, @rdo);	        // прочитать байты из порта в буфер программы
          end;
        end;
    end;
  end;
end;

[Kosmonaft68]

А можно весь проект? просто не совсем понимаю как пользоваться функцией. Что она возвращает?

[angvelem]

Можно, но он у меня "заточен" под конкретную задачу, так что всё равно придётся разбираться и переделывать под себя.

[Kosmonaft68]

Код:

procedure TForm4.Button1Click(Sender: TObject);
begin
TAsyncPort.OpenComm(5,9600);
end;

Пробую так вызвать процедуру инициализации, но у меня ничего не выходит,при компиляции:
[dcc32 Error] Unit4.pas(347): E2076 This form of method call only allowed for class methods or constructor

[Kosmonaft68]

нашел ответ в сети,у объекта надо было просто вызвать процедуру

[Kosmonaft68]

В общем у меня все заработало, есть конечно вопросы, но это уже другая история. Спасибо вам большое!