We help IT Professionals succeed at work.

We've partnered with Certified Experts, Carl Webster and Richard Faulkner, to bring you two Citrix podcasts. Learn about 2020 trends and get answers to your biggest Citrix questions!Listen Now

x

# image grab from webcam

on
Medium Priority
340 Views
Hi....I am quite new to VB6 and am playing about with code from a motion detection program.where this code plays a wav
file when motion is detected i would like to grab the image and store it when motion is detected.Any pointers on how i would go about this would be greatly appreciated.
Below is part of the code that i am using........thanks in advance.

Function OnMotion(M_Percent As Long)
If M_Percent > intruder.Slider1.Value Then
If (Count_Of_Motions_Flag = True) Then
Count_Of_Motions = Count_Of_Motions + 1
intruder.Text1 = Count_Of_Motions
Count_Of_Motions_Flag = False
sndPlaySound "alarm.wav", SND_ASYNC Or SND_NODEFAULT
End If
End If
If M_Percent <= intruder.Slider2.Value Then
Count_Of_Motions_Flag = True
End If
End Function
Comment
Watch Question

## View Solution Only

Yash Infinite Solutions Private Limited
Commented:

Not the solution you were looking for? Getting a personalized solution is easy.

Commented:
Hi thanks for the quick response.......this is what i have now after playing about with it but am still having problems with it.......as i said my vb is very basic but would appreciate any help/pointers.....many thanks in advance

Function capGrabFrame(ByVal hCapWnd As Long) As Boolean
capGrabFrame = SendMessageAsLong(hCapWnd, WM_CAP_GRAB_FRAME, 0&, 0&)
End Function

--------------------------------------------------------------
Function OnMotion(M_Percent As Long)
If M_Percent > Watchman.Slider1.Value Then
If (Count_Of_Motions_Flag = True) Then
Count_Of_Motions = Count_Of_Motions + 1
Watchman.Text1 = Count_Of_Motions
Count_Of_Motions_Flag = False
Call capGrabFrame(hCapWnd)

FileName = App.Path & "\pic.bmp"
retval = capFileSaveDIB(hCapWnd, FileName)
If (retval = False) Then
MsgBox "Problem saving frame", vbInformation, App.Title
End If

End If
If M_Percent <= Watchman.Slider2.Value Then
Count_Of_Motions_Flag = True
End If
End Function

Commented:
p@ing

Commented:
thanks navstar16.......will have a look and maybe post a new question...........thanks again
##### Thanks for using Experts Exchange.

• View three pieces of content (articles, solutions, posts, and videos)
• Ask the experts questions (counted toward content limit)
• Customize your dashboard and profile