Работа с последовательным портом - Delphi WinAPI - Ответ 3853270

// обработчик потока приема
procedure DoEvent;
var Resive :array [0..255] of char;
    comstat: TComStat;
    mask, signal, temp, btr: dword;
    //
    str: string;
    i: Integer;
begin
 ovr.hEvent:= CreateEvent(nil, true, true, nil);
 
 while true do begin
  WaitCommEvent(h, mask, @ovr);
  signal:= WaitForSingleObject(ovr.hEvent, INFINITE);
 
  if (signal = WAIT_OBJECT_0) then
   if (GetOverlappedResult(h, ovr, temp, true)) then begin
 
 
   ...
 
    if ((mask and EV_RXCHAR)<>0) then begin
      ClearCommError(h, temp, @comstat);
      btr:= comstat.cbInQue;
      str:= '';
 
      ReadFile(h, Resive, btr, temp, @ovr);
      for i:= 0 to temp-1 do
       str:= str + Resive[i];
      // визуализируем принятый пакет
      show_tn(str);
    end;
   end;
 
 end
end;
 
 
...
 h:= CreateFile('COM1',
                 GENERIC_READ or GENERIC_WRITE,
                 0,
                 nil,
                 OPEN_EXISTING,
                 FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,
                 0);
 
 // задаем маску отслеживания сигналов RS-232
 setCommMask(h, EV_RXCHAR or EV_RXFLAG or EV_CTS or EV_DSR or EV_RING or EV_RLSD);
 // задаем настройки RS-232 (стоп-бит, четность, скорость)
 setdcb;
 //создаем параллельный поток
 CommThread:= CreateThread(nil, 0, @DoEvent, nil, 0, ThreadID);