test.txt

G729语音压缩的很好的离子和示范 大家来下载吧

toplevel .dbg
pack [text .dbg.t]
proc Debug {t} {
	.dbg.t insert end "$t\n"
}
proc onerror {w id t} {
	if {$id} {tk_messageBox -message "$id:$t" -title error -icon error}
}
proc toto {} {
	.avi begincompression
	.avi capture toto.avi
	set clk [clock seconds]
	tk_messageBox -message Stop
	.avi stopcapture
	.avi endcompression
	puts "Dur閑=[expr [clock seconds]-$clk] secondes"
}
set framenumber 0
proc cb {args} {
	global framenumber
	incr framenumber
	puts "cb ([llength $args] args) : $framenumber"
}
cd d:/vfwtcl/release;load vfwtcl.dll;avicap .avi;pack .avi;.avi connect 0
.avi cbkonerror onerror
.avi setcapturesetup -thread 1 -captureaudio 0 -rightbuttonaborts 0 -leftbuttonaborts 0
.avi compressdlg
.avi cbkonvideostream cb
.avi begincompression