So-net無料ブログ作成
検索選択

ノート(Macbook12)のカメラ画像をVS2017(VB)でキャプチャー

NuGet.png
VB.NETをツールのNuGetでライブラリをインストールします。
AForge.Video
AForge.Video.DtrectShow
AForge.Video.Controls
FormにVideo.Sorce.Playerを貼り付けます(探すのに苦労しました。ツールボックスの中で検索するのが簡単。)ボタンを2個を貼り付けます。

Imports AForge.Video
Imports AForge.Video.DirectShow
Partial Public Class frmCapture
Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
' ビデオキャプチャデバイスを選択するダイアログの生成
Dim var = New VideoCaptureDeviceForm()
' 選択ダイアログを開く
If var.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
VideoSourcePlayer1.VideoSource = var.VideoDevice
VideoSourcePlayer1.Start()
End If
End Sub
Private Sub btnCapture_Click(sender As Object, e As EventArgs) Handles btnCapture.Click
Dim video_bmp As Bitmap = VideoSourcePlayer1.GetCurrentVideoFrame()
video_bmp.Save("video.bmp")
End Sub
End Class

こんなに短いコードでキャプチャーできるなんて。

nice!(0)  コメント(0)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この記事のトラックバックURL: