ぷろぐらむノート

AForgeのVideoSourcePlayer コントロールを使用して、USB接続のカメラの画像を画面に表示方法を記載します。

VideoSourcePlayerは、AForge.Controls.dll に入っています。

コントロールのインストール手順

１．NugetでAForge.Controlsをインストールします。

２．ツールボックスの適当なところで右クリック「アイテムの選択(I)…」を選択

３．「.NET Framework コンポーネント」タブの「参照(B)…」ボタンを押して、「AForge.Controls.dll」を選択し「開く(O)」で読み込みます。

４．ツールボックスに「VideoSourcePlayer」というコントロールが追加されます。

 

VideoSourcePlayer コントロールによるUSBカメラ画像表示

フォームに ボタン２つ と VideoSourcePlayer コントロールを配置します。

'ビデオデバイス開始
Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click
    'ビデオキャプチャデバイスを選択するダイアログを生成
    Dim VForm = New VideoCaptureDeviceForm()
   
    'ビデオデバイス選択ダイアログを開く
    If VForm.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
        VideoSourcePlayer1.VideoSource = VForm.VideoDevice    'デバイスを設定
        VideoSourcePlayer1.Start()                            'ビデオキャプチャ開始
    End If
End Sub

'ビデオデバイス停止
Private Sub StopButton_Click(sender As Object, e As EventArgs) Handles StopButton.Click
    If Not VideoSourcePlayer1.VideoSource Is Nothing & VideoSourcePlayer1.VideoSource.IsRunning Then
        VideoSourcePlayer1.VideoSource.SignalToStop()          'ビデオデバイスの停止
        VideoSourcePlayer1.VideoSource.WaitForStop()           '完全に停止するまで待つ
        VideoSourcePlayer1.VideoSource = Nothing
    End If
End Sub

 

AForgeでUSB接続のビデオデバイスを全て、取得する方法を記載します。

AForgeを使用すると簡単に、ビデオデバイスを取得することが出来ます。

全ビデオデバイスの取得

フォームにボタン１つ、ComboBox１つ配置します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim videoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)

    ComboBox1.Items.Clear()
    If videoDevices.Count <> 0 Then
        For Each device In videoDevices
            ComboBox1.Items.Add(device.Name)
        Next

        ComboBox1.SelectedIndex = 0
    End If
End Sub

※ComboBoxには、USBデバイスの名称が表示されます。AForgeでビデオ接続する場合は、デバイスの名前ではなく、モニカストリングを使用します。

'最初にみつかったビデオデバイスのモニカストリング
Dim MonikerString = videoDevices(0).MonikerString