TVideoGrabber simple demo



Sub StartPreview
VideoGrabber.StopPreview
VideoGrabber.VideoDevice = CInt (document.all("VideoDeviceIndex").Value)
VideoGrabber.StartPreview
End Sub

Sub NearestSize (VideoWidth, VideoHeight)
VideoGrabber.UseNearestVideoSize VideoWidth, VideoHeight, false
end sub

Sub StopPreview
VideoGrabber.StopPreview
End Sub

Sub VideoGrabber_OnPreviewStarted
MsgBox "Preview started!"
end sub

Sub VideoGrabber_OnResize
VideoGrabber.Width = VideoGrabber.VideoWidth
VideoGrabber.Height = VideoGrabber.VideoHeight
end sub







TVideoGrabber ActiveX component

This is a simple demo of TVideoGrabber embedded within a HTML page



Video device index: