работа с СОМ портом

[Zlatoust]

Добрый день, Знатоки!
Пишу на Borland C++ 6, Win XP.
Работаю с COM RS485 портом.
Код программы:

Код: (C)

Com1Port=CreateFile("COM5",GENERIC_READ|GENERIC_WRITE,
                     0,// устройство связи должно быть открыто для монопольного доступа
                     NULL,// нет атрибутов защиты
                     OPEN_EXISTING, // cустройства связи должен использовать OPEN_EXISTING
                     0, // нет перекрытый с I/O
                     NULL); // для коммуникационных устройств параметр hTemplate должен быть NULL

 if(Com1Port==INVALID_HANDLE_VALUE)  ShowMessage("Порт COM5 занят ");
 
// Установвить размер буфера:
    SetupComm( Com1Port, 1024, 1024 );

// Очистить буфер
    PurgeComm( Com1Port, PURGE_TXABORT | PURGE_RXABORT | PURGE_TXCLEAR | PURGE_RXCLEAR );

 // Задать установки таймаута

    ct.ReadIntervalTimeout=2;
    ct.ReadTotalTimeoutMultiplier=1;
    ct.ReadTotalTimeoutConstant=MAXDWORD;
    ct.WriteTotalTimeoutMultiplier=1;
    ct.WriteTotalTimeoutConstant=1000 ; //MAXDWORD;

    fSuccess =  SetCommTimeouts(Com1Port,&ct);   // timeout
    if (!fSuccess) ShowMessage ("( Error SetCommTimeouts)");

 // Получить текущую конфигурацию.
    fSuccess = GetCommState(Com1Port, &dcb);


  dcb.BaudRate = CBR_38400;      // устанавливаем скорость
  dcb.ByteSize  = 8;                     // размер данных xmit, и rcv
  dcb.Parity      = NOPARITY;         // нет бита четности
  dcb.StopBits = ONESTOPBIT;     // один стоп-бит
  dcb.EofChar  = '}';

    // setup hardware flow control
  dcb.fDtrControl = DTR_CONTROL_ENABLE;
  dcb.fRtsControl = RTS_CONTROL_ENABLE;
  dcb.fOutxDsrFlow = 0;
  dcb.fOutxCtsFlow = 0;

// Установить текущую конфигурацию.
  fSuccess=SetCommState( Com1Port, &dcb );
  if (!fSuccess)  ShowMessage ("(Set_CommState)");

// Послать запрос в файл
  fSuccess = WriteFile(Com1Port, Buffer, Size, &dw,NULL);
  if (!fSuccess)  ShowMessage (" Error WriteFile ");

  for (i=0; i<100; i++)          // ждем ответ
  {
  ClearCommError(Com1Port, & Errors, & Stat);
  if (Stat.cbInQue > 0 ) break;  // буфер порта
  Sleep(10);  // ждать
  }
  // гарантированно пришел ответ
  dw = 0;
  fSuccess=ReadFile(Com1Port, Buffer, 100 , &dw, NULL);

  if (dw > 0)

 после принятия данных из порта  в Buffer, уходим на обработку данных. И вроде все хорошо...

Каждые 5 секунд я запускаю таймер, который считывает данные из порта. Все работает.
Закрываю порт я по завершению работы программы по событию OnClose.

Но со мной в группе работает еще один парень, который тоже пишет программы для работы с этим же портом COM5.

 После того как отработает программа этого парня, "перестает" работать моя программа, а именно:

Код:

 ClearCommError(Com1Port, & Errors, & Stat);
  if (Stat.cbInQue > 0 ) break;  // буфер порта

Stat.cbInQue всегда равен нулю.

И помогает мне только  перезагрузка компа. Только после полной перезагрузки компа моя программа опять работает нормально.
Так вот вопрос: какую команду (или набор команд) мне нужно подать в порт, чтобы не перезагружать компьютер всякий раз, когда мне нужно поработать?

[RXL]

Может чем поможет:
https://club.shelek.ru/viewart.php?id=208
https://club.shelek.ru/viewart.php?id=225

От BCB6 тут ничего нет. Используется лишь Win32 API.


А RS485 реализован часом не как конвертер уровней из RS232?

[Sla]

Так, видимо, товарищ, не закрывает правильно порт, или же он на него вешает свой обработчик, но при закрытии софта забывает его отключить.

[RXL]

Я предпочитаю подозревать более простые ошибки.
Ждем ответов ТС...

[v2]

Разузнай побольше о своём COM5(RS485) (нужны ли ему RTS,DTR и зачем)
а пока попробуй сымитировать  перезагрузку:  

Код:

EscapeCommFunction(Com1Port, CLRDTR);
EscapeCommFunction(Com1Port, CLRRTS);
Sleep(_ количество_миллисекунд_перезагрузки _);  // ;)
EscapeCommFunction(Com1Port, SETRTS);
EscapeCommFunction(Com1Port, SETDTR);

[Sla]

v2, а это сработает, если порт кем-то занят?

[RXL]

Sla, так надо сперва это выяснить.
Мы вот третий хрустальный шар уже теряем, а ТС все молчит.

[v2]

v2, а это сработает, если порт кем-то занят?

Это полушутя, но у ТС есть вот такое:

if(Com1Port==INVALID_HANDLE_VALUE)  ShowMessage("Порт COM5 занят ");

Скорее всего или rs485 или девайс (что более правдоподобно), который на нем, "меняют" режим работы.
А перезагрузка? - дефолтные настройки порта и немного дергает ноги.

Кроме того настораживает " dcb.EofChar  = '}' "

[RXL]

v2, иначе говоря, ты склоняешься к изъянам в протоколе обмена?

[v2]

Скорее к недокументированности девайсов.
Ну и код попилить немного.

Досмотрел, что у ТС нет

dcb.DCBlength = sizeof (dcb);

и вместо SetCommState (помню были проблемы с IR и/или BT устройствами ) лучше

SetCommConfig

[Zlatoust]

Ребята, извините за молчание, но попасть на работу в выходные я не могу. (периметр, охрана, лаборатория закрыта). Самому хочется попробовать все то, что вы подсказали.
А насчет - '}' , так это нормально. Символ указывает на конец посылки.
С "другой стороны" порта "прицеплен" ADAM-5051, там тоже "крутится" программа, которая управляет работой установки и периодически выдает информацию на верхний уровень.
Плата портов нормальная (Advantech ), драйвер - "родной". Через этот порт еще работает синхронизатор.
Давайте доживем до понедельника. Как только получу новую информацию, обязательно поделюсь результатами.

[DneprSMV]

Zlatoust,
как вариант, посмотри функции API для платы и управление ею. Возможно коллега накручивает режим порта платы (к примеру режим обмена или работу-размер-режим очереди) а на умолчательный не возвращает.

[Zlatoust]

Добрый день, знатоки! Извините за столь долгое молчание. Все мои попытки не увенчались успехом. Я снимаю свой вопрос. Пока не готов к написанию программ для работы с портом. Всем спасибо за помощь.