How Can We Help?
Private Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
VideoGrabber1.OpenURLAsync = False ‘ True for asynchrone capture
VideoGrabber1.SetAuthentication(VidGrab.TAuthenticationType.at_IPCamera, “user”, “password”)
VideoGrabber1.IPCameraURL = “onvif://192.168.6.122”
AddHandler VideoGrabber1.OnRawVideoSample, AddressOf OnRawVideoSample_JpegSnapshot
VideoGrabber1.ONVIFSnapShot(True, False, “”)
End Sub
Private Sub OnRawVideoSample_JpegSnapshot(sender As Object, e As VidGrab.TOnRawVideoSampleEventArgs)
If e.formatType = VidGrab.TFormatType.ft_Unknown Then
Dim JpgImg(e.sampleDataLength) As Byte
Dim i As Integer
For i = 0 To e.sampleDataLength – 1
JpgImg(i) = Marshal.ReadByte(e.pSampleBuffer, i)
Next
Dim oFileStream As System.IO.FileStream
oFileStream = New System.IO.FileStream(“snapshot.jpg”, System.IO.FileMode.Create)
oFileStream.Write(JpgImg, 0, e.sampleDataLength)
oFileStream.Close()
End If
End Sub