eyeanand
Junior Member level 1
I am stuck at one point .....need help.
WE have installed ezvidcap activeX control and can access the webcam(Intex 400k). however when we try to grab multiple images using the SaveDIB method and load it into a picture box....this does not work. the Images are getting stored in the given path with sequential numbers however it is not geting loaded into the picture box....need help please.
thanking everyone. sending the code as well if any glitches please suggest remedy.
Option Explicit
Dim y As Integer
Dim x As Integer
Dim w As Double
Dim p As Picture
Dim t As Integer
Private Sub ezVidCap1_StatusMessage(ByVal StatCode As Long, ByVal StatString As String)
''ezVidCap1.ShowDlgVideoFormat
End Sub
Private Sub Form_Load()
ezVidCap1.ShowDlgVideoFormat
For y = 1 To 10
'ezVidCap1.CapSingleFrame
ezVidCap1.PreciseCaptureStart
ezVidCap1.SaveDIB ("C:\Documents and Settings\Comp4\Desktop\Project software\pic" & y & ".dib")
For x = 1 To 10000
w = w * 2 / 3 + 1
Next x
Set p = LoadPicture("C:\Documents and Settings\Comp4\Desktop\Project software\pic" & y & ".dib")
Picture2.Picture = p
'Image1.Picture = p
Next y
End Sub
WE have installed ezvidcap activeX control and can access the webcam(Intex 400k). however when we try to grab multiple images using the SaveDIB method and load it into a picture box....this does not work. the Images are getting stored in the given path with sequential numbers however it is not geting loaded into the picture box....need help please.
thanking everyone. sending the code as well if any glitches please suggest remedy.
Option Explicit
Dim y As Integer
Dim x As Integer
Dim w As Double
Dim p As Picture
Dim t As Integer
Private Sub ezVidCap1_StatusMessage(ByVal StatCode As Long, ByVal StatString As String)
''ezVidCap1.ShowDlgVideoFormat
End Sub
Private Sub Form_Load()
ezVidCap1.ShowDlgVideoFormat
For y = 1 To 10
'ezVidCap1.CapSingleFrame
ezVidCap1.PreciseCaptureStart
ezVidCap1.SaveDIB ("C:\Documents and Settings\Comp4\Desktop\Project software\pic" & y & ".dib")
For x = 1 To 10000
w = w * 2 / 3 + 1
Next x
Set p = LoadPicture("C:\Documents and Settings\Comp4\Desktop\Project software\pic" & y & ".dib")
Picture2.Picture = p
'Image1.Picture = p
Next y
End Sub