映像分配するには

解決

---

DirectshowでカメラのLIVE映像を分配するのに「Infinite Pin Tee Filter」を使うところまでは分かったのですが、どの様にしたらいいのか分からず困っております。
分かる方が居られましたら教えて頂けませんでしょうか。
よろしく、お願いいたします。
---  環境  ---
VS2010
WIN7
DirectShowLib-2005.dll

編集 削除

---

カメラをInfinitePinTeeフィルタの入力ピンに接続し，InfinitePinTeeフィルタの空いている出力ピンを探して下流のフィルタと接続します。
なお，分配がキャプチャ用とプレビュー用の２つに分けるという意味なら，Smart Teeフィルタを使うという方法もあります。

編集 削除

---

YASさん回答ありがとうございます。

graphedtでは存在するのですが、DirectShowリファレンスのインターフェイスの中には無い様なのです。
もしかして、InfinitePinTeeフィルタとはIBaseFilterフィルタの事でしょうか。

それとgraphedtで確認したのですが、Smart Teeフィルタを使うとLIVE映像がコマ飛びしてしまうようです。

編集 削除

---

InfinitePinTeeフィルタを使ったサンプルを作りましたので，参考にしてください。
実行するとカメラの画像を５つ表示します。
なお，このサンプルはエラー処理やCOMオブジェクトの解放などの処理をしていませんので，注意してください。

Option Strict On
Option Explicit On

Imports DirectShowLib
Imports System.Runtime.InteropServices

Public Class Form1

    Private Const S_OK As Integer = 0
    Private comFilterGraph As New FilterGraph

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim GraphBuilder As IGraphBuilder = DirectCast(comFilterGraph, IGraphBuilder)
        'フィルタをグラフに追加する
        Dim comCamera As IBaseFilter = GetCameraFilter() 'カメラフィルタを取得する
        Dim comInfTee As IBaseFilter = DirectCast(New InfTee, IBaseFilter)
        GraphBuilder.AddFilter(comCamera, "Camera")
        GraphBuilder.AddFilter(comInfTee, "InfTee")
        'カメラとInfinitePinTeeを接続する
        Dim comCameraCaptureOut As IPin = DsFindPin.ByCategory(comCamera, PinCategory.Capture, 0) 'カメラフィルタのキャプチャ出力ピンを取得する
        Dim comInfTeeIn As IPin = DsFindPin.ByDirection(comInfTee, PinDirection.Input, 0)
        GraphBuilder.Connect(comCameraCaptureOut, comInfTeeIn)
        'InfinitePinTeeの出力をレンダリングする
        For i As Integer = 0 To 4
            Dim comInfTeeOut As IPin = Nothing
            comInfTeeOut = DsFindPin.ByDirection(comInfTee, PinDirection.Output, i)
            GraphBuilder.Render(comInfTeeOut)
        Next
        DirectCast(comFilterGraph, IMediaControl).Run()
    End Sub

    'カメラフィルタを取得する
    Private Function GetCameraFilter() As IBaseFilter
        Dim comDevEnum As ICreateDevEnum = DirectCast(New CreateDevEnum, ICreateDevEnum)
        Dim EnumMoniker As ComTypes.IEnumMoniker = Nothing
        Dim Moniker(0) As ComTypes.IMoniker
        Dim Camera As Object = Nothing
        DsError.ThrowExceptionForHR(comDevEnum.CreateClassEnumerator(FilterCategory.VideoInputDevice, EnumMoniker, CDef.None))
        While EnumMoniker.Next(1, Moniker, IntPtr.Zero) = S_OK And Camera Is Nothing
            Moniker(0).BindToObject(Nothing, Nothing, GetType(IBaseFilter).GUID, Camera)
        End While
        Return DirectCast(Camera, IBaseFilter)
    End Function

End Class

編集 削除

---

ありがとうございます。
とても参考になりました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。