映像分配するには (ID:147349)

名前

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

本文 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