Yosvany Llerena Rodríguez ha scritto:
Hi All. I'm using Snack Audio 2.2 and Tcl/Tk to develop some
application, I need to record a few seconds of voice but it's
impossible y record an empty file.
-- Snack Audio
-- vtcl(GUI for Tcl/tk)
-- Suse Linux 10.1
I use this Tcl code.
package require snack
snack :: sound s
proc ::Record {} {
global widget
snack::sound s
proc sstop {} {
s stop
set filename "tmpwave.wav"
s write $filename
s destroy
// Extract
}
after 5000 sstop
s record
best regards
Yosvany
Some things relate to the tcl-language not much clear :)
This is a code that would work as you want:
#start example
package require snack
snack::sound s
proc Record {} {
s record
after 5000 sstop
}
proc sstop {} {
s stop
set filename "tmpwave.wav"
s write $filename
s destroy
puts "this goes well"
exit
}
Record
#end example
hope help
--
Lazzaro
