«Не отвечает» com порт

do  {
   ReadFile(hCom, buf1, 1, &bytesRead, NULL);   // Начинаем чтение данных
   if (bytesRead>0){….     }
} while   (buf1[0]!=42 && buf1[0]!=33);   //Код символа * или !

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#include <stdio.h> // для sprintf
  #include <time.h>
 int start_time, end_time,Zashelka_time=1  ; // время
int Stop_file=1;
 
char *pcComPort="   Порт Не выбран", *NAM="Сборка 1   ";
 int TIMEOUT = 100000;
 int baudrate = 115200; //9600, 14400, 19200,38400, 57600, 115200
 HANDLE hCom;   //дескриптор порта
 DWORD  b,  bytesRead = 0;
 OVERLAPPED   ov;
void OpenPort2(char * pcComPort, HANDLE &hCom); //закрыть порт
 void   COMClose();
 #define BUFSIZE 255     //ёмкость буфера
unsigned char bufrd[BUFSIZE], bufwr[BUFSIZE]; //приёмный и передающий буферы
OVERLAPPED overlapped;      //будем использовать для операций чтения (см. поток ReadThread)
OVERLAPPED overlappedwr;        //будем использовать для операций записи (см. поток WriteThread)
bool fl=0;  //флаг, указывающий на успешность операций записи (1 - успешно, 0 - не успешно)
unsigned long counter;  //счётчик принятых байтов, обнуляется при каждом открытии порта
 
 //.............................. объявления потоков ...........................
class ReadThread : public TThread {     //поток для чтения последовательности байтов из COM-порта в буфер
private:
        void __fastcall Printing(); //вывод принятых байтов на экран и в файл
 protected:
        void __fastcall Execute();  //основная функция потока
 public:
        __fastcall ReadThread(bool CreateSuspended);    //конструктор потока
};
//.............................. реализация потоков ...........................
//............................... поток ReadThead .............................
ReadThread *reader;     //объект потока ReadThread
//---------------------------------------------------------------------------
//конструктор потока ReadThread, по умолчанию пустой
__fastcall ReadThread::ReadThread(bool CreateSuspended) : TThread(CreateSuspended)  {}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){    }
 
//---------------------------------------------------------------------------
  void OpenPort2(char * pcComPort, HANDLE &hCom){
 DCB dcb;                //структура для общей инициализации порта DCB
 COMMTIMEOUTS timeouts;  //структура для установки таймаутов
 hCom = CreateFile(pcComPort, GENERIC_READ | GENERIC_WRITE,0,NULL,OPEN_EXISTING,FILE_FLAG_OVERLAPPED, NULL);
// hCom = CreateFile(pcComPort, GENERIC_READ | GENERIC_WRITE,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
 if(hCom == INVALID_HANDLE_VALUE)            //если ошибка открытия порта
  {
            hCom = 0;
            Zvuk(1);
            ShowMessage("Ошибка открытия порта");
   return;
  }
 //инициализация порта
 dcb.DCBlength = sizeof(DCB);   //в первое поле структуры DCB необходимо занести её длину, она будет использоваться функциями настройки порта для контроля корректности структуры
 //считать структуру DCB из порта
 if(!GetCommState(hCom, &dcb))  //если не удалось - закрыть порт и вывести сообщение об ошибке в строке состояния
  {
   COMClose();
    ShowMessage("Не удалось считать DCB");
   return;
  }
 //инициализация структуры DCB
 dcb.BaudRate = DWORD(baudrate);       //задаём скорость передачи 115200 бод
 dcb.fBinary = TRUE;                                    //включаем двоичный режим обмена
 dcb.fOutxCtsFlow = FALSE;                              //выключаем режим слежения за сигналом CTS
 dcb.fOutxDsrFlow = FALSE;                              //выключаем режим слежения за сигналом DSR
 dcb.fDtrControl = DTR_CONTROL_DISABLE;                 //отключаем использование линии DTR
 dcb.fDsrSensitivity = FALSE;                           //отключаем восприимчивость драйвера к состоянию линии DSR
 dcb.fNull = FALSE;                                     //разрешить приём нулевых байтов
 dcb.fRtsControl = RTS_CONTROL_DISABLE;                 //отключаем использование линии RTS
dcb.fAbortOnError = FALSE;                             //отключаем остановку всех операций чтения/записи при ошибке
 dcb.ByteSize = 8;                                      //задаём 8 бит в байте
dcb.Parity = 0;                                        //отключаем проверку чётности
 dcb.StopBits = 0;                                      //задаём один стоп-бит
//загрузить структуру DCB в порт
 if(!SetCommState(hCom, &dcb))  //если не удалось - закрыть порт и вывести сообщение об ошибке в строке состояния
  {
   COMClose();
   ShowMessage("Не удалось установить DCB");
  return;
  }
 //установить таймауты
 timeouts.ReadIntervalTimeout = 0;      //таймаут между двумя символами
 timeouts.ReadTotalTimeoutMultiplier = 0;   //общий таймаут операции чтения
 timeouts.ReadTotalTimeoutConstant = 0;         //константа для общего таймаута операции чтения
timeouts.WriteTotalTimeoutMultiplier = 0;      //общий таймаут операции записи
 timeouts.WriteTotalTimeoutConstant = 0;        //константа для общего таймаута операции записи
 //записать структуру таймаутов в порт
 if(!SetCommTimeouts(hCom, &timeouts))  //если не удалось - закрыть порт и вывести сообщение об ошибке в строке состояния
  {
   COMClose();
   ShowMessage("Не удалось установить тайм-ауты");
   return;
  }
 //установить размеры очередей приёма и передачи
 SetupComm(hCom,2000,2000);
 PurgeComm(hCom, PURGE_RXCLEAR);    //очистить принимающий буфер порта
reader = new ReadThread(false); //создать и запустить поток чтения байтов
 reader->FreeOnTerminate = true;        //установить это свойство потока, чтобы он автоматически уничтожался после завершения
}
 
 
 void  COMClose(){
 }
 
 //---------------------------------------------------------------------------
//главная функция потока, реализует приём байтов из COM-порта
void __fastcall ReadThread::Execute()
{
 COMSTAT comstat;       //структура текущего состояния порта, в данной программе используется для определения количества принятых в порт байтов
 DWORD btr, temp, mask, signal; //переменная temp используется в качестве заглушки
 
 overlapped.hEvent = CreateEvent(NULL, true, true, NULL);   //создать сигнальный объект-событие для асинхронных операций
 SetCommMask(hCom, EV_RXCHAR);                              //установить маску на срабатывание по событию приёма байта в порт
 while(!Terminated)                     //пока поток не будет прерван, выполняем цикл
  {
   WaitCommEvent(hCom, &mask, &overlapped);                 //ожидать события приёма байта (это и есть перекрываемая операция)
   signal = WaitForSingleObject(overlapped.hEvent, INFINITE);   //приостановить поток до прихода байта
   if(signal == WAIT_OBJECT_0)                      //если событие прихода байта произошло
    {
     if(GetOverlappedResult(hCom, &overlapped, &temp, true)) //проверяем, успешно ли завершилась перекрываемая операция WaitCommEvent
      if((mask & EV_RXCHAR)!=0)                 //если произошло именно событие прихода байта
       {
        ClearCommError(hCom, &temp, &comstat);      //нужно заполнить структуру COMSTAT
        btr = comstat.cbInQue;                              //и получить из неё количество принятых байтов
        if(btr)                                     //если действительно есть байты для чтения
        {
//       ReadFile(hCom, bufrd, btr, &temp, &overlapped);     //прочитать байты из порта в буфер программы
         ReadFile(hCom, buf2, btr, &temp, &overlapped);     //прочитать байты из порта в буфер программы
 
         counter+=btr;                                          //увеличиваем счётчик байтов
         Synchronize(Printing);                             //вызываем функцию для вывода данных на экран и в файл
        }
       }
    }
  }
 CloseHandle(overlapped.hEvent);        //перед выходом из потока закрыть объект-событие
}
 
//-Читать до конца файла------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender) {
VXOD=2;
Form1->CheckBox1->Caption="Обрабатывать STOP из файла", Form1->CheckBox1->Refresh();//  clBtnFace
int Zashelka=1;//защелка
   if (Zashelka_time==1) {
   start_time = time(NULL);  // начальное время
   Zashelka_time=0;
   }
    end_time = time(NULL);  // конечное время
    int search_time = end_time - start_time; // искомое время
  Form1->Label25->Caption= search_time,   Form1->Label25->Refresh();
 
// вход из АВАРИЙНОГО выхода
 if (Vixod==0 && Zashelka==1){ //до конца строки
 Zashelka=0;
 X_vix=X_real+X_gl, Y_vix=Y_real+Y_gl,Z_vix=Z_real+Z_gl;
 
 Gotovim_Dannie();
 
      Stroka_v_port();  //Передаём ДАННЫЕ
if (Vixod==1 && VXOD==2) X_gl= X_f, Y_gl=Y_f, Z_gl=Z_f;// штатный выход
if (Vixod==0 && VXOD==2) X_gl=X_gl+X_real, Y_gl=Y_gl+Y_real, Z_gl=Z_gl+Z_real;// аварийный выход
           Label15->Caption= (X_gl), Label15->Refresh();
           Label16->Caption= (Y_gl), Label16->Refresh();
           Label17->Caption= (Z_gl), Label17->Refresh();
           Zvuk(7); // 7 вход из АВАРИЙНОГО выхода
   }
// вход из ШТАТНОГО выхода
 if (Vixod==1 && Zashelka==1){ //до конца файла
  if (Simvol_Vixoda==42){
  Stop_file=1;
     Tek_str++;
     Analiz_stroki();
     Gotovim_Dannie();
  char *lb10="                                                            ";
 strcpy (lb10,G_xod_im);
 Form1->Label10->Caption= lb10,   Form1->Label10->Refresh();
 Label24->Caption="режим перемещения", Label24->Refresh(); //if (G_sverl==0){  // режим перемещения
//end_time=time(NULL);// конечное время  повтор  int search_time=end_time-start_time; // искомое время  //Form1->Label25->Caption=search_time,   Form1->Label25->Refresh();
if (X_f!=X_gl || Y_f!=Y_gl || Z_f!=Z_gl)Stroka_v_port();  //Передаём ДАННЫЕ
   Label10->Refresh();
 Zvuk(5); //конец обработки строки// режим перемещения закончен
}
 
   if (Tek_str>=(Strok_vsego)){// Если конец файла
      Tek_str=(Strok_vsego);
      Zvuk(6); // 6 конец файла
      }
}
}
 
 //---------------------------------------------------------------------------
void __fastcall ReadThread::Printing()  {   //выводим принятые байты на экран
 Form1->Memo2->Lines->Add(buf2); //выводим принятую строку в Memo
 int LEN= strlen(buf2); // определяем длину строки
 Simvol_Vixoda=   buf2[LEN-1] ;
   int Rejim, Xpr=0, Ypr=0, Zpr=0;
   X_tek=0,  Y_tek=0,  Z_tek=0;
   znakX=1,  znakY=1,  znakY=1;
 for (int t = 0; t < LEN-1; t++) {
    if (buf2[t]==120) znakX=-1, Rejim=1;   //Код символа "x"
    if (buf2[t]==88)  znakX= 1, Rejim=1;   //Код символа "X"
    if (buf2[t]==121) znakY=-1, Rejim=2;   //Код символа "y"
    if (buf2[t]==89)  znakY= 1, Rejim=2;   //Код символа "Y"
    if (buf2[t]==122) znakZ=-1, Rejim=3;   //Код символа "z"
    if (buf2[t]==90)  znakZ= 1, Rejim=3;   //Код символа "Z"
    if (buf2[t]=='S') Skvajnost=0,  Rejim=4;   //Код символа "S"
    if (buf2[t]=='T') Timpuls=0,  Rejim=5;   //Код символа "T"
 
     if (buf2[t]>=48 && buf2[t]<=57){
  if (Rejim==1)  Xpr=Xpr*10+(buf2[t]-48); //Накапливаем переменную "X"
  if (Rejim==2)  Ypr=Ypr*10+(buf2[t]-48); //Накапливаем переменную "Y"
  if (Rejim==3)  Zpr=Zpr*10+(buf2[t]-48); //Накапливаем переменную "Z"
  if (Rejim==4)  Skvajnost=Skvajnost*10+(buf2[t]-48); //Накапливаем переменную  Skvajnost
  if (Rejim==5)  Timpuls=Timpuls*10+(buf2[t]-48); //Накапливаем переменную   Timpuls
     }
}
if (Rejim==5) zam=Skvajnost+Timpuls;
 Form1->Edit1->Text=zam, Form1->Edit1->Refresh();
 
  X_real= Xpr*znakX,  Y_real= Ypr*znakY, Z_real= Zpr*znakZ;
  double X_ekran=0, Y_ekran=0, Z_ekran=0;
if (VXOD==2)X_ekran=X_real+X_gl, Y_ekran=Y_real+Y_gl, Z_ekran=Z_real+Z_gl;
if (VXOD==1)X_ekran=X_real, Y_ekran=Y_real, Z_ekran=Z_real;
Cvetomuzika();
 X_ekran=X_ekran/100,  Y_ekran=Y_ekran/100,   Z_ekran=Z_ekran/100 ;
Form1->Label3->Caption=X_ekran, Form1->Label3->Refresh();
Form1->Label4->Caption=Y_ekran, Form1->Label4->Refresh();
Form1->Label5->Caption=Z_ekran, Form1->Label5->Refresh();
          Xpr=0, Ypr=0,  Zpr=0;
 
 Form1->Label32->Caption=Simvol_Vixoda   ;
memset(buf2, 0, BUFSIZE);           //очистить буфер (чтобы данные не накладывались друг на друга)
 
if (Simvol_Vixoda=='*') {
  X_gl=X_gl+X_real, Y_gl=Y_gl+Y_real, Z_gl=Z_gl+Z_real;
    if (Stop_file!=0) {
  Tek_str++;
  Zvuk(5);
  Analiz_stroki();
  Gotovim_Dannie();
  Stroka_v_port();  //Передаём ДАННЫЕ
    }
}
if (Simvol_Vixoda=='!') { …  }
 
}
//---------------------------------------------------------------------------