подключение веб-камеры с помощью aforge.net в vb.net
Всем привет,
Я новичок на этом форуме и начинающий программист.
Я хочу разработать программу детектора движения в визуальном Basic.NET. Я попробовал Windows API для подключения веб-камеры к моему проекту.
Во время серфинга в сети я наткнулся на этот форум и нашел проект, который использует AForge.net. Я скачал и установил фреймворк и попробовал определенный проект, чтобы узнать, что есть что.
Я решил переписать код сам, но столкнулся с ошибкой в строке
If VideoSourcePlayer1.Isrunning = True Then
В нем говорится, что
VideoSourcePlayer1
не объявленный. Он может быть недоступен из-за своего уровня защиты.Вот код, который я пытаюсь переписать. То
VideoSourcePlayer1
нет никакой ошибки.Я просто переписываю код, так почему же я сталкиваюсь с ошибкой, когда кажется, что она отлично работает в другом проекте?
Пожалуйста, помогите мне.
Заранее спасибо.
Imports AForge.Video Imports AForge.Video.DirectShow Public Class MainWindow Dim VideoCaptureSource As VideoCaptureDevice Dim WCdevices As New FilterInfoCollection(FilterCategory.VideoInputDevice) Private Sub MainWindow_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim MyWebcam As FilterInfo If WCdevices.Count = 0 Then lstWCdevices.Items.Add("No Webcam Device Detected") Else For Each MyWebcam In WCdevices lstWCdevices.Items.Add(MyWebcam.Name) Next End If lstWCdevices.SelectedIndex = 0 End Sub Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click If lstWCdevices.SelectedItem <> "No Video Devices" Then If VideoSourcePlayer1.IsRunning = True Then VideoSourcePlayer1.SignalToStop() VideoSourcePlayer1.WaitForStop() End If VideoCaptureSource = New VideoCaptureDevice(VideoDevices(cboVideoSource.SelectedIndex).MonikerString) VideoSourcePlayer1.VideoSource = VideoCaptureSource VideoSourcePlayer1.Start() End If End Sub End Class