TVideoGrabber simple demo
Function IsVideoGrabberCreated ()
IsVideoGrabberCreated = not (document.getElementById("VideoGrabber") is nothing)
End Function
sub CreateVideoGrabber()
if not IsVideoGrabberCreated then
dim m_vidgrab
set m_vidgrab = document.createElement("object")
with m_vidgrab
.classID = "clsid:B7A1B3FE-59CB-4C8E-81CC-FFC6EC6834DE"
.id = "VideoGrabber"
.width = 320
.height = 240
end with
document.body.appendChild m_vidgrab
set m_vidgrab = nothing
end if
end sub
Sub RemoveVideoGrabber
if IsVideoGrabberCreated then
document.body.removeChild document.getElementById("VideoGrabber")
end if
End Sub
Sub StartPreview
if IsVideoGrabberCreated then
if CInt (document.all("VideoDeviceIndex").Value) >= VideoGrabber.VideoDevicesCount then
MsgBox "there are only " & VideoGrabber.VideoDevicesCount & " video capture devices on this platform"
else
VideoGrabber.StopPreview
VideoGrabber.VideoDevice = CInt (document.all("VideoDeviceIndex").Value)
VideoGrabber.StartPreview
end if
end if
End Sub
Sub NearestSize (VideoWidth, VideoHeight)
if IsVideoGrabberCreated then
VideoGrabber.UseNearestVideoSize VideoWidth, VideoHeight, true
VideoGrabber.Width = VideoWidth
VideoGrabber.Height = VideoHeight
end if
end sub
Sub StopPreview
if IsVideoGrabberCreated then
VideoGrabber.StopPreview
end if
End Sub
MsgBox "Preview started!"
TVideoGrabber ActiveX component
This is a simple demo of TVideoGrabber dynamically created or removed from a
HTML page
Video device index: