如何用tcl语言实现串口数据的读取？

我已经用一个脚本实现了从pc到设备之间的串口连接，现在的图形界面类似于secureCRT，可以进行login、查询和修改各种配置等。

proc ComSetup {ComPort ComRate} {
set iChannel [open $ComPort w+]
set rate $ComRate
fconfigure $iChannel -mode $ComRate,n,8,1
fconfigure $iChannel -blocking 0
fconfigure $iChannel -buffering none
fileevent $iChannel readable ""
return $iChannel
}

proc GetData {iChannel} {

global output
update
after 2000
set cap [read -nonewline $iChannel]
return "$cap"
}

proc SendCmd {channel command} {
global output debug

set letter_delay 10
set commandlen [string length $command]
for {set i 0} {$i < $commandlen} {incr i} {
set letter [string index $command $i]
after $letter_delay
puts -nonewline $channel $letter
if {$debug(dutConfig) == 1} {puts -nonewline $output "$letter"}
}
after $letter_delay
puts -nonewline $channel "\n"
if {$debug(dutConfig) == 1} {puts $output ""}
after 500
flush $channel
}

慢慢看吧~应该明白

你说呢...