ぷろぐらむノート

AForgeを使用して、特定のUSBカメラのサポートするフレームレート、画像サイズを全て、取得する方法を記載します。

フレームレートは、画像に対する最大フレームレートが取得されます。

USBカメラのサポート情報の取得する

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

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ComboBox1.Items.Clear()

    Dim videoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)

    Dim videoSource = New VideoCaptureDevice(videoDevices(0).MonikerString)     '最初に見つかったビデオデバイスを使用

    Dim videoCapabilities = videoSource.VideoCapabilities                       'ビデオデバイスの提供する機能一覧を配列に格納

    For Each v In videoCapabilities
        Dim s = String.Format("{0} {1}×{2}", v.MaximumFrameRate, v.FrameSize.Width, v.FrameSize.Height)
        ComboBox1.Items.Add(s)
    Next

    ComboBox1.SelectedIndex = 0
End Sub

AForgeを使用して、USB接続カメラの画像を動画保存する方法を記載します。

動画ファイルの作成には、AVIWriter クラスを使用します。

AForge.Video.VFWをインポートします。
 

AVI形式動画ファイル作成

Dim _aviWriter As AVIWriter = New AVIWriter()        '"MSVC"などコーディック可能

Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click
    Dim FilePath = "d:\test.avi"

    Dim videoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)
    
    Dim videoSource = New VideoCaptureDevice(videoDevices(0).MonikerString)    '最初に見つかったビデオデバイスを使用
    AddHandler videoSource.NewFrame, AddressOf Me.Video_NewFrame

    Dim videoCapabilities = videoSource.VideoCapabilities                      'ビデオデバイスの提供する機能一覧を配列に格納
    videoSource.VideoResolution = videoCapabilities(8)                         'フレームサイズ設定

    _aviWriter.FrameRate = videoSource.VideoResolution.FrameRate               'aviフレームレート設定
    _aviWriter.Open(FilePath,
                    videoSource.VideoResolution.FrameSize.Width,
                    videoSource.VideoResolution.FrameSize.Height)              'aviファイルストリームを生成

    videoSource.Start()            'ビデオデバイスの開始

    For i = 0 To 10000
        System.Threading.Thread.Sleep(1)
        System.Windows.Forms.Application.DoEvents()
    Next

    videoSource.SignalToStop()     'ビデオデバイスの停止
    videoSource.WaitForStop()      '完全に停止するまで待つ
    videoSource = Nothing

    _aviWriter.Close()
End Sub

Private Sub Video_NewFrame(sender As Object, eventArgs As NewFrameEventArgs)
    Dim img = DirectCast(eventArgs.Frame.Clone(), Bitmap)
    _aviWriter.AddFrame(img)        'ファイル書き込み
    PictureBox1.Image = img
End Sub

※New AVIWriter() の際、引数にcodecを指定することが出来ます。