Не удается отправить более 44 символов через последовательный порт с использованием TCL - PullRequest
0 голосов
/ 18 октября 2018

Я пытаюсь отправить команды длиной более 44 символов, для которых я получаю мусор через последовательный порт.Но если я отправляю команды длиной менее 44 символов, я вижу, что отправляю в последовательный порт.

Есть идеи, почему это происходит?И любое решение?

следующий код, который я делаю:

proc open_com {} {
   if {$::GSW_SERIAL_TYPE == "COM"} {
      if { [catch {set ::gComPort [open  \\\\.\\COM15 RDWR]}] } {
         LogMesg "Error: Failed to open serial connection $::gComPort"
         exit
      }
      fconfigure $::gComPort -mode $::gSerialPortSpeed,n,8,1 -blocking 1 -buffering none -translation binary -ttycontrol {BREAK 0} -handshake none
      fileevent $::gComPort readable [list rd_chid $::gComPort]
   }
}

proc rd_chid {chid} {
   if { [catch {gets $chid msg} err] } {
      if {[eof $chid]} {
         puts "ERROR:EOF RETURNING"
         close $chid
      }
      return
   }
   if { [string first "\[fal\]:" [string tolower $msg]] != -1 } {
      set ::gPromptRcved 1
   }
}
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...