PowerShellでWebカメラの映像を保存する

OpenCVSharpを使ってWebカメラの映像を動画ファイルで保存してみる。

動画の保存は、OpenCVSharpのサンプルで「VideoWriter.cs」というのがあるのでそれを参考にする。

今回は、OpenCVSharpとサンプルに入っている下記の５個のDLLが必要になる。

・cv200.dll

・cxcore200.dll

・highgui200.dll

・opencv_ffmpeg200.dll

・OpenCvSharp.dll

これらのDLLを同じフォルダにコピーしておく。

サンプルでは200フレーム分を保存している。

実際のコードは以下

1. [void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
3. $camera = [OpenCvSharp.CvCapture]::FromCamera(0)
5. $size = New-Object OpenCvSharp.CvSize($camera.FrameWidth, $camera.FrameHeight)
7. #　「foo.avi」で保存する
8. $videoWriter = New-Object OpenCvSharp.CvVideoWriter("foo.avi","XVID", 15, $size)
10. $font = New-Object OpenCvSharp.CvFont([OpenCvSharp.FontFace]::HersheyComplex, 0.7, 0.7)
11. $point = New-Object OpenCvSharp.CvPoint(10,20)
12. $color = New-Object OpenCvSharp.CvColor(0,255,100)
14. #　(1) 画面に表示しなくてよければ、必要ない
15. $window = New-Object OpenCvSharp.CvWindow("Capture", [OpenCvSharp.WindowMode]::AutoSize)
17. #　200フレーム分キャプチャーする
18. 1..200 | % {
19. [OpenCvSharp.CvWindow]::WaitKey(10)
20. $frame = $camera.QueryFrame()
21. $str = [String]::Format("{0}[frame]",$_)
23. #　左上に緑色でフレーム数が表示される
24. $frame.PutText($str, $point, $font, $color)
25. $videoWriter.WriteFrame($frame)
27. $window.ShowImage($frame) #　(1)
28. }
30. $frame.Dispose()
31. $window.Dispose() #　(1)
32. $videoWriter.Dispose()
33. $camera.Dispose()