test-tv.txt

简单的vc视频捕捉

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 capture_tv {} {
	#set f [tk_getSaveFile -initialdir g:/ -initialfile toto.avi]
	set f toto.avi
	if {$f==""} {return}
	if {[.avi compressdlg]=="DIB "} {return}
	.avi begincompression
	.avi overlay 0
	.avi preview 100
	.avi capture $f
	.b configure -text stop -command stop_capture
}
proc stop_capture {} {
	.avi preview 0
	.avi stopcapture
	after 1000 ".avi endcompression;.avi overlay;.b configure -text capturer -command capture_tv"
}
cd d:/vfwtcl/release
load vfwtcl.dll
avicap .avi 800 600
pack .avi
.avi connect 1
.avi cbkonerror onerror
.avi setcapturesetup -thread 1 -captureaudio 0 -rightbuttonaborts 0 -leftbuttonaborts 0
pack [button .b -text capturer -command capture_tv]
.avi overlay