|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Mita Mikheev 2:5020/194.113 10 Apr 2002 22:50:53
To : Denis Smirnov
Subject : чтение скриптом из COM-порта
--------------------------------------------------------------------------------
Wednesday April 10 2030 20:38, you wrote to me:
KF>>>> Попробуй tcl.
DS>>> А чем именно читать из порта в тикле?
MM>> set port [open "/dev/tty01"]
fconfigure $port -mode "9600,n,8,1" -blocking 0 -buffering none \
-translation binary
MM>> set res [catch {
MM>> set input [gets $port]
MM>> puts $input
MM>> } err]
MM>> if {$res !=0} {puts "Exiting: $err"}
MM>> catch {close $port}
MM>> или через fileevent
DS> А параметры порта чем тогда выставлять?
см. выше.
А через fileevent примерно так:
set port [open "/dev/tty01" r+]
fconfigure ... (как выше)
fileevent $port readable [list to_listen $port]
proc to_listen {chan} {
if {[eof $chan]} {
catch {close $chan}
puts "Port: closed"
return
}
set data [read $chan]
set size [string length $data]
puts "Got $size bytes: $data"
}
DS> --
DS> С уважением, Denis
Mita
... 2.000.000 Lemmings can't be wrong.
--- GoldED/W32 3.0.1
* Origin: Living in interesting times (2:5020/194.113)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
