PowerShellで動画を白黒でキャプチャー

投稿者 D.yamahata 時刻: 10:55 | 2009年10月31日土曜日
OpenCVSharpを使用して、動画を白黒でキャプチャーする。
グレースケールの時と同じで、読み込む→グレースケールに変換→白黒に変換の順に行う。
最後に変換したものをウィンドウに表示させる。
  1. [void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
  3. # カメラの情報を取得
  4. $camera = [OpenCvSharp.CvCapture]::FromCamera(0)
  5. $window = New-Object OpenCvSharp.CvWindow("SampleCapture")
  7. $threshold = 128 #　白色か黒色かのしきい値
  9. while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
  10. $iplImage = $camera.QueryFrame()
  11. $srcIplImage = New-Object OpenCvSharp.IplImage( $iplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
  12. #　グレースケールに変換
  13. [OpenCvSharp.Cv]::CvtColor($iplImage,$srcIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
  15. $dstIplImage = New-Object OpenCvSharp.IplImage( $srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
  16. # 白黒に変換
  17. $srcIplImage.Threshold($dstIplImage, $threshold, 255, [OpenCvSharp.ThresholdType]::Binary)
  19. $window.Image = $dstIplImage
  20. }
  22. $iplImage.Dispose()
  23. $srcIplImage.Dispose()
  24. $dstIplImage.Dispose()
  25. $window.Dispose()
  26. $camera.Dispose()
0 コメント ラベル: ,

PowerShellで動画をグレースケールでキャプチャー

投稿者 D.yamahata 時刻: 10:52 |
OpenCVSharpを使用して、動画をグレースケールでキャプチャーする。
静止画をグレースケールにするのと同じ方法で、一度、IplImage型でWebカメラの映像を読み込んでからグレースケールに変換し、変換したものをウィンドウに表示させる。
  1. [void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
  3. # カメラの情報を取得
  4. $camera = [OpenCvSharp.CvCapture]::FromCamera(0)
  5. $window = New-Object OpenCvSharp.CvWindow("SampleCapture")
  7. while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
  8. $srcIplImage = $camera.QueryFrame()
  9. $dstIplImage = New-Object OpenCvSharp.IplImage( $srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
  10. #　グレースケールに変換
  11. [OpenCvSharp.Cv]::CvtColor($srcIplImage,$dstIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
  12. $window.Image = $dstIplImage
  13. }
  15. $srcIplImage.Dispose()
  16. $dstIplImage.Dispose()
  17. $window.Dispose()
  18. $camera.Dispose()
0 コメント ラベル: ,

PowerShellで動画の顔検出をしてみる

投稿者 D.yamahata 時刻: 20:04 | 2009年10月29日木曜日
OpenCvSharpを使用して、Webカメラでキャプチャーしながら顔検出をしてみる。
基本的には静止画の時と同じで、その部分のコードを動画のキャプチャーに埋め込んだだけ。
  1. [void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
  3. #顔を検出するためにHaar分類器のカスケードを用いる
  5. $color = [OpenCvSharp.CvColor]::Red
  6. $scale = 1.04;
  7. $scaleFactor = 1.139;
  8. $minNeighbors = 2;
  10. $camera = [OpenCvSharp.CvCapture]::FromCamera(0)
  11. $window = New-Object OpenCvSharp.CvWindow("SampleCapture")
  13. $srcWidth = $camera.FrameWidth
  14. $srcHeight = $camera.FrameHeight
  15. $srcSize = New-Object OpenCvSharp.CvSize([int]$srcWidth, [int]$srcHeight)
  16. $srcIplImage = New-Object OpenCvSharp.IplImage( $srcSize, [OpenCvSharp.BitDepth]::U8, 1)
  18. $dstWidth = $camera.FrameWidth / $scale
  19. $dstHeight = $camera.FrameHeight / $scale
  20. $dstSize = New-Object OpenCvSharp.CvSize([int]$dstWidth, [int]$dstHeight)
  21. $dstIplImage = New-Object OpenCvSharp.IplImage( $dstSize, [OpenCvSharp.BitDepth]::U8, 1)
  23. while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
  24. $iplImage = $camera.QueryFrame()
  25. #顔検出用の画像の生成
  26. [OpenCvSharp.Cv]::CvtColor($iplImage,$srcIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
  27. [OpenCvSharp.Cv]::Resize($srcIplImage, $dstIplImage, [OpenCvSharp.Interpolation]::Linear)
  28. [OpenCvSharp.Cv]::EqualizeHist($dstIplImage,$dstIplImage)
  30. $cascade = [OpenCvSharp.CvHaarClassifierCascade]::FromFile((Join-Path $pwd "haarcascade_frontalface_alt.xml"))
  32. $storage = New-Object OpenCvSharp.CvMemStorage
  33. $storage.Clear()
  35. # 顔の検出
  36. $faces = [OpenCvSharp.Cv]::HaarDetectObjects($dstIplImage, $cascade, $storage, $scaleFactor, $minNeighbors, 0, (New-Object OpenCvSharp.CvSize(30, 30)));
  38. Write-Host $faces.Total
  39. # 検出された全ての顔位置に四角い枠を描画する
  40. for ($i = 0; $i -lt $faces.Total; $i++) {
  41. $r = $faces[$i].Rect
  42. $pt1 = New-Object OpenCvSharp.CvPoint($r.x, $r.y)
  43. $pt2 = new-object OpenCvSharp.CvPoint(($r.x + $r.Width),($r.y + $r.Height ))
  44. $iplImage.Rectangle($pt1, $pt2, $color,　3, 8, 0)
  45. }
  46. # 丸で囲む
  47. # for ($i = 0; $i -lt $faces.Total; $i++) {
  48. # $r = $faces[$i].Rect
  49. # $X = [OpenCvSharp.Cv]::Round(($r.X + $r.Width * 0.5) * $Scale)
  50. # $Y = [OpenCvSharp.Cv]::Round(($r.Y + $r.Height * 0.5) * $Scale)
  51. # $center = New-Object OpenCvSharp.CvPoint($X, $Y)
  52. # $radius = [OpenCvSharp.Cv]::Round(($r.Width + $r.Height) * 0.25 * $Scale)
  53. # $iplImage.Circle($center, $radius, $color, 3, [OpenCvSharp.LineType]::AntiAlias, 0)
  54. # }
  56. # ウィンドウに表示
  57. $window.Image = $iplImage
  58. }
  60. $srcIplImage.Dispose()
  61. $dstIplImage.Dispose()
  62. $iplImage.Dispose()
  63. $window.Dispose()
  64. $camera.Dispose()
0 コメント ラベル: ,

PowerShellで画像のRGBを調べてみる

投稿者 D.yamahata 時刻: 22:47 | 2009年10月27日火曜日
OpenCVSharpを使用して画像のRGBを調べてみる。
下のコードは読み込んだ画像の1ピクセル？づつのRGB情報を順番に出力していくもの。
  1. [void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
  3. $iplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "foo1.jpg"))
  5. for ($x = 0; $x -lt $iplImage.Width; $x++) {
  6. for ($y = 0; $y -lt $iplImage.Height; $y++) {
  7. $cvColor = [OpenCvSharp.CvColor]$iplImage.Get2D($y, $x)
  8. $line = [String]::Format("x = {0:000}, y = {1:000} : R = {2:000}, G = {3:000}, B = {4:000}", $x, $y, $cvColor.R, $cvColor.G, $cvColor.B)
  9. Write-Host $line
  10. }
  11. }
  13. $iplImage.Dispose()
0 コメント ラベル: ,

PowerShellで静止画の顔検出をしてみる

投稿者 D.yamahata 時刻: 20:58 | 2009年10月26日月曜日
OpenCvSharpを使用して、画像から顔を検出してみる。
顔があったらその周りを赤色の四角い枠で囲む。

顔検出には数千枚の画像ファイルから機械学習を行って、人間の顔とは？ってのを修めたデータが必要らしい…
でも、それをやるには時間がかかりすぎるので、Sampleに入っている学習済みのデータ「haarcascade_frontalface_alt.xml」を使用させてもらう。

利用させてもらっておいてどうかとは思うが、試したデータでは今一だった。
どうも余計なものまで顔と認識して検出してくる。もちろん、顔も検出してくれるからいいんだけどね。

いつものDLLと「haarcascade_frontalface_alt.xml」を同じフォルダーにコピーして、検出した元画像を「foo.jpg」として下のコードを実行する。
  1. [void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
  3. #　元データ
  4. $iplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "foo.jpg"))
  6. $color = [OpenCvSharp.CvColor]::Red
  7. $scale = 1.04;
  8. $scaleFactor = 1.139;
  9. $minNeighbors = 2;
  11. $srcWidth = $iplImage.Width
  12. $srcHeight = $iplImage.Height
  13. $srcSize = New-Object OpenCvSharp.CvSize([int]$srcWidth, [int]$srcHeight)
  14. $srcIplImage = New-Object OpenCvSharp.IplImage( $srcSize, [OpenCvSharp.BitDepth]::U8, 1)
  16. $dstWidth = $iplImage.Width / $scale
  17. $dstHeight = $iplImage.Height / $scale
  18. $dstSize = New-Object OpenCvSharp.CvSize([int]$dstWidth, [int]$dstHeight)
  19. $dst1IplImage = New-Object OpenCvSharp.IplImage( $dstSize, [OpenCvSharp.BitDepth]::U8, 1)
  21. #　顔検出用の画像の生成
  22. [OpenCvSharp.Cv]::CvtColor($iplImage,$srcIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
  23. [OpenCvSharp.Cv]::Resize($srcIplImage, $dst1IplImage, [OpenCvSharp.Interpolation]::Linear)
  24. [OpenCvSharp.Cv]::EqualizeHist($dst1IplImage,$dst1IplImage)
  26. $cascade = [OpenCvSharp.CvHaarClassifierCascade]::FromFile((Join-Path $pwd "haarcascade_frontalface_alt.xml"))
  28. $storage = New-Object OpenCvSharp.CvMemStorage
  30. $storage.Clear()
  32. #　顔の検出
  33. $faces = [OpenCvSharp.Cv]::HaarDetectObjects($dst1IplImage, $cascade, $storage, $scaleFactor, $minNeighbors, 0, (New-Object OpenCvSharp.CvSize(30, 30)));
  35. # 検出された全ての顔位置に四角い枠で囲む
  36. for ($i = 0; $i -lt $faces.Total; $i++) {
  37. $r = $faces[$i].Rect
  38. $pt1 = New-Object OpenCvSharp.CvPoint($r.x, $r.y)
  39. $pt2 = new-object OpenCvSharp.CvPoint(($r.x + $r.Width),($r.y + $r.Height ))
  40. $iplImage.Rectangle($pt1, $pt2, $color,　3, 8, 0)
  41. }
  43. # 丸で囲いたい場合はこっち
  44. #for ($i = 0; $i -lt $faces.Total; $i++) {
  45. # $r = $faces[$i].Rect
  46. # $X = [OpenCvSharp.Cv]::Round(($r.X + $r.Width * 0.5) * $Scale)
  47. # $Y = [OpenCvSharp.Cv]::Round(($r.Y + $r.Height * 0.5) * $Scale)
  48. # $center = New-Object OpenCvSharp.CvPoint($X, $Y)
  49. # $radius = [OpenCvSharp.Cv]::Round(($r.Width + $r.Height) * 0.25 * $Scale)
  50. # $iplImage.Circle($center, $radius, $color, 3, [OpenCvSharp.LineType]::AntiAlias, 0)
  51. #}
  53. #　赤枠で囲ったデータを保存する
  54. $iplImage.SaveImage((Join-Path $pwd "bar.jpg"))
  56. $iplImage.Dispose()
  57. $srcIplImage.Dispose()
  58. $dst1IplImage.Dispose()
0 コメント ラベル: ,

PowerShellで画像を白黒に変換する

投稿者 D.yamahata 時刻: 21:38 | 2009年10月19日月曜日
OpenCVSharpを使って画像を白黒（２値化）する。
最初にグレースケールにしておいて、しきい値以下だったら白色、以上だったら黒色の二色の画像にする。
少しぼかした方が、白い部分と黒い部分が分かれるのでいいかもしれない。
ぼかさないと、ノイズが多い感じになる。
サンプルはぼかし無しで、ぼかしの部分はコメントアウトしてある。
  1. [void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
  3. #　グレースケールで読み込む
  4. $srcIplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"), [OpenCvSharp.LoadMode]::GrayScale)
  6. #　ソース画像と同じサイズのグレースケールで初期化する
  7. $dstIplImage = New-Object OpenCvSharp.IplImage( $srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
  9. #　画像をすこしぼかすした方がいいかも
  10. #$smooth = 5
  11. #$srcIplImage.Smooth($srcIplImage, [OpenCvSharp.SmoothType]::Gaussian, $smooth)
  13. $threshold = 128 #　白色か黒色かのしきい値
  14. $srcIplImage.Threshold($dstIplImage, $threshold, 255, [OpenCvSharp.ThresholdType]::Binary)
  15. $dstIplImage.SaveImage((Join-Path $pwd "bar.jpg"))
  17. $srcIplImage.Dispose()
  18. $dstIplImage.Dispose()
0 コメント ラベル: ,

PowerShellで画像をグレースケールに変換する

投稿者 D.yamahata 時刻: 22:38 | 2009年10月18日日曜日
OpenCVSharpを使って画像をグレースケールにする。
グレースケールにする方法は下記の二つ。

①画像を読み込む時にグレースケールで読み込む方法。
②OpenCvSharp.IplImageオブジェクトを減色する方法。

①の方法だと一度ファイルに保存する必要があるので、Webカメラでキャプチャーしながらの解析には向かない。その時は、②を使えばいい。

まずは、①のコード
  1. [void][System.Reflection.Assembly]::LoadFrom((Join-Path $pwd OpenCvSharp.dll))
  3. #グレースケールで読み込む
  4. $iplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "foo.jpg"), [OpenCvSharp.LoadMode]::GrayScale)
  5. $iplImage.SaveImage((Join-Path $pwd "bar.jpg"))
  6. $iplImage.Dispose()
続いて、②のコード
  1. [void][System.Reflection.Assembly]::LoadFrom(( Join-Path $pwd OpenCvSharp.dll))
  3. #グレースケールに変換
  4. $srcIplImage = [OpenCvSharp.Cv]::LoadImage((Join-Path $pwd "foo.jpg"))
  5. $dstIplImage = New-Object OpenCvSharp.IplImage( $srcIplImage.Size, [OpenCvSharp.BitDepth]::U8, 1)
  6. [OpenCvSharp.Cv]::CvtColor($srcIplImage,$dstIplImage, [OpenCvSharp.ColorConversion]::BgraToGray)
  7. $dstIplImage.SaveImage((Join-Path $pwd "bar.jpg"))
  8. $srcIplImage.Dispose()
  9. $dstIplImage.Dispose()
0 コメント ラベル: ,

PowerShellで画像をぼかす

投稿者 D.yamahata 時刻: 21:07 | 2009年10月17日土曜日
OpenCVSharpを使って画像をぼかす（平滑化する）。
たぶん、一部だけぼかすこともできるとは思うけど、やり方がわからないので、まずは全体をぼかす。

ぼかし方は五種類、OpenCvSharp.SmoothTypeで定義されている。

・　BlurNoScale
・　Blur
・　Gaussian
・　Median
・　Bilateral

そのうちの一つ「Bilateral」は例がでて使えなかった。

以下、コード
  1. [void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
  3. $smooth = 5 #　ぼかし率？値が大きいほどぼかしが強い
  5. #　強い光を当てたみたいな画像になった
  6. $iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
  7. $iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::BlurNoScale, $smooth)
  8. $iplImage.SaveImage((Join-Path $pwd "BlurNoScale.jpg"))
  9. $iplImage.Dispose()
  11. #　全体的にぼゃ～って感じ
  12. $iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
  13. $iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::Blur, $smooth)
  14. $iplImage.SaveImage((Join-Path $pwd "Blur.jpg"))
  15. $iplImage.Dispose()
  17. #　全体的にぼゃっとしてるけどBlurよりははっきり
  18. $iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
  19. $iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::Gaussian, $smooth)
  20. $iplImage.SaveImage((Join-Path $pwd "Gaussian.jpg"))
  21. $iplImage.Dispose()
  23. #　油絵みたい
  24. $iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
  25. $iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::Median, $smooth)
  26. $iplImage.SaveImage((Join-Path $pwd "Median.jpg"))
  27. $iplImage.Dispose()
  29. #ぼかし方（平滑化）をBilateralにすると例外が発生してうまくいかない
  30. #$iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg"))
  31. #$iplImage.Smooth($iplImage, [OpenCvSharp.SmoothType]::Bilateral, $smooth)
  32. #$iplImage.SaveImage((Join-Path $pwd "Bilateral.jpg"))
  33. #$iplImage.Dispose()
0 コメント ラベル: ,

PowerShellで画像を回転させる

投稿者 D.yamahata 時刻: 2:13 |
OpenCVSharpを使って画像を回転したり反転したりしてみる。

OpenCvSharp.Cv.Flip()メソッドを使って、X軸かY軸か両軸で画像を反転させれる。

以下、コード
  1. [void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
  3. #画像を左右を入れ替える
  4. $iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg")　)
  5. [OpenCvSharp.Cv]::Flip($iplImage, $iplImage, [OpenCvSharp.FlipMode]::Y )
  6. $iplImage.SaveImage((Join-Path $pwd "bar1.jpg"))
  7. $iplImage.Dispose()
  9. #画像を180度回転させる
  10. $iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg")　)
  11. [OpenCvSharp.Cv]::Flip($iplImage, $iplImage, [OpenCvSharp.FlipMode]::XY )
  12. $iplImage.SaveImage((Join-Path $pwd "bar2.jpg"))
  13. $iplImage.Dispose()
  15. #画像を左右を入れ替えて180度回転させる
  16. $iplImage = [OpenCvSharp.Cv]::LoadImage( (Join-Path $pwd "foo.jpg")　)
  17. [OpenCvSharp.Cv]::Flip($iplImage, $iplImage, [OpenCvSharp.FlipMode]::X )
  18. $iplImage.SaveImage((Join-Path $pwd "bar3.jpg"))
  19. $iplImage.Dispose()
0 コメント ラベル: ,

PowerShellで動画を再生する

投稿者 D.yamahata 時刻: 20:31 | 2009年10月15日木曜日
前回保存した動画ファイルをOpenCVSharpを使って再生する。

今回も下記の５個のDLLが必要になるので、同じフォルダにコピーしておく。

・cv200.dll
・cxcore200.dll
・highgui200.dll
・opencv_ffmpeg200.dll
・OpenCvSharp.dll

Webカメラの映像を表示するのとあまり違いはなくて、単に読み込む対象がWebカメラからファイルに変えるだけで再生を行うことができる。
では、実際のコード
  1. [void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
  3. #　同じフォルダにある「foo.avi」を読み込む
  4. $aviFile = [OpenCvSharp.CvCapture]::FromFile( (Join-Path $pwd "foo.avi") )
  5. $window = New-Object OpenCvSharp.CvWindow("SamplePlayer")
  7. #読み込んだファイルのフレーム数分だけ再生したら終了する
  8. 0..$aviFile.FrameCount | % {
  9. [OpenCvSharp.CvWindow]::WaitKey(10)
  10. $window.Image = $aviFile.QueryFrame()
  11. }
  13. $window.Dispose()
  14. $aviFile.Dispose()
0 コメント ラベル: ,

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

投稿者 D.yamahata 時刻: 21:12 | 2009年10月14日水曜日
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()
0 コメント ラベル: ,

PowerShellからWebカメラを使って静止画をキャプチャーする

投稿者 D.yamahata 時刻: 1:09 |
OpenCVSharpを使って、WebカメラでJpeg形式の静止画を撮影する。
まずは、前回、前々回と同じようにDLLを同じフォルダに置いておく。

今回は、コマンドラインから直接入力してもOK。
（.ps1ファイルにした方が楽だろうけど…）

動作としては、Webカメラの映像を取得して、20フレーム目を静止画として保存している。
ここでは、「foo.jpg」という名前で同じフォルダに保存している。

実際のコードは以下
  1. [void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
  3. #　Webカメラを取得する。
  4. $camera = [OpenCvSharp.CvCapture]::FromCamera(0)
  6. # 撮影する静止画のサイズを指定する。
  7. # デフォルトサイズ？でよければ、指定しなくてもいい。
  8. $camera.FrameWidth = 640
  9. $camera.FrameHeight = 480
  11. #　起動して直ぐのは、真っ白だったり、暗かったりするから、20フレームくらい撮る。
  12. #　戻り値は　OpenCvSharp.IplImage型
  13. 1..20 | % { $iplImage = $camera.QueryFrame() }
  15. # OpenCvSharp.IplImage型をSystem.Drawing.Bitmap型へ変換する
  16. $bmp = [OpenCvSharp.BitmapConverter]::ToBitmap($iplImage)
  17. #　Jpegで保存する。
  18. $bmp.Save((Join-Path $pwd "foo.jpg"), [System.Drawing.Imaging.ImageFormat]::Jpeg)
  20. $bmp.Dispose()
  21. $iplImage.Dispose()
0 コメント ラベル: ,

PowerShellからWebカメラを使ってみる

投稿者 D.yamahata 時刻: 15:24 | 2009年10月10日土曜日
OpenCVSharpを使用して、Webカメラの映像を表示させてみる。
Sampleの中に「CaptureCamera.cs」っというのがあるので、それをPowerShellで書く。

前回と同じように、同じフォルダにDLLを置いてから下のコードを実行する。
PowerShellで直接コードを入力しても動かない（理由がわからないけど…）ので、ファイルに保存してから実行する。
実行するとウィンドウにカメラの映像が表示される。終了する時は、右上の×をクリックしても終わらないので、アクティブな状態にしておいてキーボードの「q」を押すと終了できる。

-- CaptureCamera.ps1 --
  1. [void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
  3. $cap = [OpenCvSharp.CvCapture]::FromCamera(0)
  4. $w = New-Object OpenCvSharp.CvWindow("SampleCapture")
  6. while ( [OpenCvSharp.CvWindow]::WaitKey(10) -lt 0 ) {
  7. $w.Image = $cap.QueryFrame()
  8. }
0 コメント ラベル: ,

PowerShellからOpenCVSharpを使ってみる

投稿者 D.yamahata 時刻: 22:58 | 2009年10月9日金曜日
PowerShellで画像処理なるものをやってみたいので、まずはここを参考にOpenCVSharpを使ってみる。

なにはともあれ、DLLが必要なのでOpenCVSharpのダウンロードページから下の2つを落としてくる。

・OpenCvSharp-Jp-2.0-20091007.zip
・Sample-2.0-20091007.zip

どちらも、展開して今回必要な4つのDLLを適当なフォルダにコピーする。

[Sampleの方に入っているOpenCVのDLL]
・cv200.dll
・cxcore200.dll
・highgui200.dll

[OpenCVSharpの方に入っているDLL]
・OpenCvSharp.dll

コピーしたフォルダに移動して下のコードを実行する。
小さなウィンドウが表示されればOK。
  1. [void][System.Reflection.Assembly]::LoadFrom( ( Join-Path $pwd OpenCvSharp.dll) )
  3. $size = New-Object OpenCvSharp.CvSize(128, 128)
  4. $img = [OpenCvSharp.Cv]::CreateImage($size, [OpenCvSharp.BitDepth]::U8, 1)
  6. for ($y = 0; $y -lt $img.Height; $y++) {
  7. for ($x = 0; $x -lt $img.Width; $x++) {
  8. [OpenCvSharp.Cv]::Set2D($img, $y, $x, $x + $y)
  9. }
  10. }
  12. [OpenCvSharp.Cv]::NamedWindow("window")
  13. [OpenCvSharp.Cv]::ShowImage("window", $img)
  14. [OpenCvSharp.Cv]::WaitKey()
  15. [OpenCvSharp.Cv]::DestroyWindow("window")
  17. [OpenCvSharp.Cv]::ReleaseImage($img)
0 コメント ラベル: ,

PowerShellで8.3形式の短いファイル名を取得する

投稿者 D.yamahata 時刻: 23:03 | 2009年10月1日木曜日
短いファイル名を取得するには、kernel32.dllのGetShortPathNameメソッドを呼べばわかるんだけど、それをPowerShellからやると面倒そうなので、Scripting.FileSystemObjectを利用してみる。

ここでは、Excelの実行ファイルを取得してみる。


> $fso = New-Object -comObject Scripting.FileSystemObject
> $fso.GetFile("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE")

Path : C:\Program Files\Microsoft Office\Office12\EXCEL.EXE
Name : EXCEL.EXE
ShortPath : C:\PROGRA~1\MICROS~2\Office12\EXCEL.EXE
ShortName : EXCEL.EXE
Drive : System.__ComObject
ParentFolder : System.__ComObject
Attributes : 32
DateCreated : 2009/05/04 8:40:04
DateLastModified : 2009/05/04 8:40:04
DateLastAccessed : 2009/06/11 7:18:21
Size : 18333536
Type : アプリケーション


> ($fso.GetFile("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE")).ShortPath

C:\PROGRA~1\MICROS~2\Office12\EXCEL.EXE


短いファイル名を取得したかった理由はレジストリに設定するためだったのでこれで十分いけそうだ。
0 コメント ラベル:

VBScriptでネットワークドライブを使う

投稿者 D.yamahata 時刻: 22:40 |
ドライブ名を”なし”で使いたかったので、MapNetworkDriveメソッドの最初の引数は空にする。

Dim objNet
Set objNet = WScript.CreateObject("WScript.Network")
objNet.MapNetworkDrive "", "\\ServerName", True, "UserName", "Password"

切断するのはRemoveNetworkDriveメソッドで行う。

objNet.RemoveNetworkDrive "\\ServerName", True, True
0 コメント ラベル:
登録: 投稿 (Atom)