Захват двух камер одновременно с использованием библиотеки AForge и библиотеки VB.NET - PullRequest
Новая
       27

Захват двух камер одновременно с использованием библиотеки AForge и библиотеки VB.NET

0 голосов
/ 09 октября 2018

Мне нужно обработать две USB-камеры через VB.NET.Я использовал библиотеку AForge для этого.Проблема в том, что запускается только обработчик события camera2.

Как активировать обе камеры? 

Dim camera1
Dim camera2

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim Cameras = New FilterInfoCollection(FilterCategory.VideoInputDevice)
    Dim camera1 = New VideoCaptureDevice(Cameras(0).MonikerString)
    Dim camera2 = New VideoCaptureDevice(Cameras(1).MonikerString)

    AddHandler camera1.NewFrame, AddressOf NewFrameHandler1
    AddHandler camera2.NewFrame, AddressOf NewFrameHandler2

    camera1.Start()
    camera2.Start()

End Sub

Private Sub NewFrameHandler1(sender As Object, eventArgs As NewFrameEventArgs)
    Console.WriteLine("Camera 1 captured")
End Sub

Private Sub NewFrameHandler2(sender As Object, eventArgs As NewFrameEventArgs)
    Console.WriteLine("Camera 2 captured")
End Sub
...