|
分類:[VB6 以前]
いつもお世話様になります。 風夏と申します。
VB5でUSBカメラを利用して静止画を撮影する機能を作っています。 下記のようにコーディングしているのですが、 カメラの機種が変わる度に、フィルタ名が変わってしまい、 その都度修正を行なっております。 何か良い方法はありませんでしょうか?
宜しくお願い申し上げます。
Dim regflt As IRegFilterInfo Dim flt As IFilterInfo Set mGraph = New FilgraphManager
'キャプチャフィルタを探してグラフに追加 For Each regflt In mGraph.RegFilterCollection If regflt.name = "USB ビデオ デバイス" Then 'カメラのフィルタ名 regflt.Filter flt Exit For ElseIf regflt.name = "USB2.0 UVC VGA WebCam" Then regflt.Filter flt Exit For ElseIf regflt.name = "USB2.0 Camera" Then regflt.Filter flt Exit For End If Next
'これ以降でカメラ起動・撮影処理を行ってます。
|