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

Sccfc
Sccfc asked
on
Medium Priority
340 Views
Last Modified: 2008-01-09
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

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

Ask the Experts

Author

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
  picCapture2.Picture = LoadPicture(FileName)
 
  End If
  If M_Percent <= Watchman.Slider2.Value Then
    Count_Of_Motions_Flag = True
  End If
End Function

Commented:
p@ing

Author

Commented:
thanks navstar16.......will have a look and maybe post a new question...........thanks again
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

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

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.