VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Begin VB.Form frmMain 
   Caption         =   "Filter and Pin Viewer"
   ClientHeight    =   6060
   ClientLeft      =   1245
   ClientTop       =   1935
   ClientWidth     =   7230
   LinkTopic       =   "frmMain"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6060
   ScaleWidth      =   7230
   Begin VB.Frame frameFilter 
      Caption         =   "Filter Graph"
      Height          =   2652
      Left            =   120
      TabIndex        =   12
      Top             =   120
      Width           =   6972
      Begin VB.CommandButton cmdSource 
         Caption         =   "Add &Source Filter..."
         Height          =   372
         Left            =   4560
         TabIndex        =   14
         Top             =   2160
         Width           =   1572
      End
      Begin VB.ListBox listFilters 
         Height          =   1425
         Left            =   3960
         TabIndex        =   4
         Top             =   480
         Width           =   2775
      End
      Begin VB.CommandButton cmdAddRegFilter 
         Caption         =   "&Add ->"
         Height          =   372
         Left            =   3120
         TabIndex        =   13
         Top             =   600
         Width           =   732
      End
      Begin VB.ListBox listRegFilters 
         Height          =   1425
         Left            =   240
         TabIndex        =   2
         Top             =   480
         Width           =   2775
      End
      Begin VB.Label lblFilters 
         Caption         =   "Filters in current filter &graph"
         Height          =   252
         Left            =   3960
         TabIndex        =   3
         Top             =   240
         Width           =   2052
      End
      Begin VB.Label lblRegFilters 
         Caption         =   "&Registered filters"
         Height          =   252
         Left            =   240
         TabIndex        =   1
         Top             =   240
         Width           =   2052
      End
   End
   Begin VB.Frame framePinInfo 
      Caption         =   "Filter"
      Height          =   3132
      Left            =   120
      TabIndex        =   0
      Top             =   2760
      Width           =   6972
      Begin VB.TextBox txtPinInfo 
         Height          =   1812
         Left            =   3720
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   17
         Text            =   "builder.frx":0000
         Top             =   1200
         Width           =   3012
      End
      Begin VB.CommandButton cmdConnect 
         Caption         =   "Co&nnect One Pin..."
         Height          =   372
         Left            =   1920
         TabIndex        =   8
         Top             =   2640
         Width           =   1692
      End
      Begin VB.CommandButton cmdRender 
         Caption         =   "&Connect Downstream"
         Height          =   372
         Left            =   120
         TabIndex        =   7
         Top             =   2640
         Width           =   1692
      End
      Begin VB.ListBox listPins 
         Height          =   1230
         Left            =   240
         TabIndex        =   6
         Top             =   1200
         Width           =   3255
      End
      Begin VB.Label lblFilterName 
         Height          =   255
         Left            =   1440
         TabIndex        =   16
         Top             =   240
         Width           =   4815
      End
      Begin VB.Label lblFilter 
         Caption         =   "Filter name:"
         Height          =   255
         Left            =   240
         TabIndex        =   15
         Top             =   240
         Width           =   975
      End
      Begin VB.Label lblVendor 
         Caption         =   "Vendor: "
         Height          =   255
         Left            =   240
         TabIndex        =   11
         Top             =   480
         Width           =   735
      End
      Begin VB.Label lblVendorInfo 
         Height          =   255
         Left            =   1440
         TabIndex        =   10
         Top             =   480
         Width           =   4935
      End
      Begin VB.Label lblPinListbox 
         Caption         =   "&Pins in selected filter"
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   840
         Width           =   2055
      End
      Begin VB.Label lblPinInfo 
         Caption         =   "Information for selected pin"
         Height          =   252
         Left            =   3720
         TabIndex        =   9
         Top             =   840
         Width           =   2172
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   8760
      Top             =   -120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   327680
      Flags           =   4096
   End
   Begin VB.Menu mnuFilterGraph 
      Caption         =   "&FilterGraph"
      Begin VB.Menu mnu_FilterGraphNew 
         Caption         =   "&New (empty)"
      End
      Begin VB.Menu mnu_FilterGraphGenerate 
         Caption         =   "&Generate from input file..."
      End
      Begin VB.Menu mnu_Separator1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_FilterGraphRun 
         Caption         =   "&Run"
      End
      Begin VB.Menu mnu_FilterGraphPause 
         Caption         =   "&Pause"
      End
      Begin VB.Menu mnu_FilterGraphStop 
         Caption         =   "&Stop"
      End
      Begin VB.Menu mnu_Separator2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_FilterGraphExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnu_Options 
      Caption         =   "&Options"
      Begin VB.Menu mnu_BuildCustomGraph 
         Caption         =   "&Build custom graph"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' global variables
' use the prefix "g_obj" to indicate a global object
Dim g_objMC As IMediaControl ' object  'IMediaControl
Dim g_objSelFilter As Object 'IFilterInfo
Dim g_objRegFilters As Object ' IFilterInfo collection
Dim g_objLocalRegFilter As Object ' IFilterInfo
Dim g_objSelPin As Object  ' IPinInfo; pin selected from listbox
Dim g_fRunning As Boolean  ' indicates whether the video is running or not

Private Sub RefreshRegFilters()
' update the listbox of registered filters
' using the global variable g_objRegFilters
    Dim filter As IRegFilterInfo
    listRegFilters.Clear
    If Not g_objRegFilters Is Nothing Then
        For Each filter In g_objRegFilters
            listRegFilters.AddItem filter.Name
        Next filter
    End If
    If listRegFilters.ListCount > 0 Then
        listRegFilters.ListIndex = 0  ' select first in list
    End If
End Sub

Private Sub AddFilter(FName As String, f As IFilterInfo)
' call IRegFilterInfo::filter
    Dim LocalRegFilters As Object
    
    Set LocalRegFilters = g_objMC.RegFilterCollection
    Dim filter As IRegFilterInfo
    For i = 0 To (LocalRegFilters.Count - 1) Step 1
        LocalRegFilters.Item i, filter
        If filter.Name = FName Then
            filter.filter f
            Exit For
        End If
    Next i
    RefreshFilters

End Sub

Private Sub cmdAddRegFilter_Click()
' IMediaControl property RegFilterCollection is an
' an IAMCollection interface
    Dim filter As IRegFilterInfo
    For Each filter In g_objRegFilters ' listRegFilters
        If filter.Name = listRegFilters.Text Then
            Dim f As IFilterInfo
            filter.filter f
            If f.IsFileSource Then
               CommonDialog1.ShowOpen
               ' handle user cancel
               f.filename = CommonDialog1.filename
            End If
            Exit For
        End If
    Next filter

    ' Set frmRegFilters = g_objMC.RegFilterCollection
    RefreshFilters
End Sub



Private Sub cmdConnect_Click()
' connects the current selected pin, indicated by
' g_objSelPin , g_objMC, and g_objSelFilter
    On Error Resume Next ' if already connected, connect fails
    frmSelectPin.OtherDir = g_objSelPin.Direction
    Set frmSelectPin.g_objMC = g_objMC
    Set frmSelectPin.g_objFI = g_objSelFilter
    frmSelectPin.RefreshFilters
    frmSelectPin.Show 1
    If frmSelectPin.bOK Then
        Dim objPI As IPinInfo
        Set objPI = frmSelectPin.g_objPI
        g_objSelPin.Connect objPI
        RefreshFilters  ' sub in this VB app that updates display
    End If
End Sub







Private Sub Form_Load()
' initialize the display
    listFilters.Clear
    listPins.Clear
    txtPinInfo.Text = ""
' create the global object used throughout the app
    Set g_objMC = New FilgraphManager
' update the display for registered filters
    Set g_objRegFilters = g_objMC.RegFilterCollection
    RefreshRegFilters
End Sub




Private Sub cmdRender_Click()
' call IPinInfo::Render
' complete the graph downstream from this pin
    On Error Resume Next  ' if already connected, this fails
    g_objSelPin.Render
    RefreshFilters
End Sub




Private Sub cmdSource_Click()
' calls IMediaControl::AddSourceFilter
' adds to the graph the source filter that can read the given filename
' Returns an IFilterInfo object.

    Dim objFilter As Object  ' tmp object for valid syntax; not used here
    
    On Error GoTo cmdsourceclick_cancelerror
    CommonDialog1.CancelError = True
    CommonDialog1.filter = "ActiveMovie files (*.mpg;*.avi;*.mov)|*.mpg;*.avi;*.mov|"
    CommonDialog1.ShowOpen  ' open the source filter
    g_objMC.AddSourceFilter CommonDialog1.filename, objFilter
    
    ' we don't actually use the returned IFilterInfo object here...
    
    RefreshFilters  ' update all info displayed by this VB app
    ' the app displays filters, pins, and detailed pin info
    Exit Sub

cmdsourceclick_cancelerror:
    ' user canceled out of the Open File dialog; just exit
    Exit Sub
End Sub




Public Sub RefreshFilters()
' update the contents of the "Filters" combo box
' using the current IMediaControl.FilterCollection
    Dim objFI As IFilterInfo
    
    listFilters.Clear
    For Each objFI In g_objMC.FilterCollection
        listFilters.AddItem objFI.Name
    Next objFI
    
    If listFilters.ListCount > 0 Then
        listFilters.ListIndex = 0  ' select first in list
    End If
End Sub


Private Sub listFilters_Click()
' user clicked on a filter in the filters combo box
' or entry 0 was selected by default when filling the
' "listFilters" listbox
' update the pins listbox to show all of its pins
    Dim objFI As IFilterInfo
    For Each objFI In g_objMC.FilterCollection
        If objFI.Name = listFilters.Text Then
            Set g_objSelFilter = objFI
            lblFilterName.Caption = objFI.Name
            lblVendorInfo.Caption = objFI.VendorInfo
            ' add all of this filter's pins to the combo box
            listPins.Clear
            Dim objPI As IPinInfo
            For Each objPI In objFI.Pins
                listPins.AddItem objPI.Name
            Next objPI
        End If
    Next objFI   ' next filter info
    listPins.ListIndex = 0  ' select the first in the combobox

End Sub

Private Sub listPins_Click()
' Add detailed pin information to the listbox on the right
' when the user clicks on a pin in the listbox on the left
  Dim strTemp As String
  On Error Resume Next
  Dim objPin As IPinInfo
  For Each objPin In g_objSelFilter.Pins
    If objPin.Name = listPins.Text Then ' selected in listbox?
      Set g_objSelPin = objPin  'yes, get all info
      strTemp = ""
      Dim objPinOther As IPinInfo
      Set objPinOther = objPin.ConnectedTo
      If Err.Number = 0 Then
        strTemp = "Connected to pin: " + objPinOther.Name + " "
        Dim objPeer As IFilterInfo
        Set objPeer = objPinOther.FilterInfo
        strTemp = strTemp + " on filter: " + objPeer.Name + " "
        Dim objMTI As IMediaTypeInfo
        Set objMTI = objPin.ConnectionMediaType
        strTemp = strTemp + vbCrLf + "Media Type: " + objMTI.Type
      End If
      If objPin.Direction = 0 Then
        strTemp = strTemp + " " + vbCrLf + "Direction: Input"
      Else
        strTemp = strTemp + " " + vbCrLf + "Direction: Output"
      End If
    txtPinInfo.Text = strTemp
    End If
  Next objPin
  Exit Sub
 
End Sub


Private Sub listRegFilters_DblClick()
    cmdAddRegFilter_Click
End Sub


Private Sub mnu_BuildCustomGraph_Click()

' This routine demonstrates a likely common use
' of these methods in Visual Basic applications:
' Directly creating the filter graph needed
' for a specific multimedia file.

' The graph has the following filters: AVI Source, AVI Decompressor,
' Video Renderer, AVI Splitter, and Audio Renderer.
' Note that these filters can be connected by reusing just
' two pin object variables, but for clarity of the example,
' all are defined using names that reflect their position
' in the filter graph.

' The filters are declared with their pins, as follows:

Dim pSourceFilter As IFilterInfo  ' AVI source filter; has two pins
Dim SourceOutputPin As IPinInfo  'Source Filter output pin

Dim pAVISplitter As IFilterInfo ' AVI splitter
Dim SplitterInPin As IPinInfo   ' AVI splitter pin "Input"
Dim SplitterOut00Pin As IPinInfo  ' AVI splitter pin "Stream 00"
Dim SplitterOut01Pin As IPinInfo  ' AVI splitter pin "Stream 01"

Dim pDECFilter As IFilterInfo  ' AVI Decompressor; has two pins
Dim DECInPin As IPinInfo   'AVI Decompressor pin "XForm In"
Dim DECOutPin As IPinInfo   ' AVI Decompressor pin "XForm Out"
    
Dim pVidRenderer As IFilterInfo ' Video renderer, has one pin
Dim VidRendInPin As IPinInfo  ' Video Renderer pin "Input"

Dim pAudioRenderer As IFilterInfo 'Audio renderer, has one pin
Dim AudioRendInPin As IPinInfo ' Audio Renderer pin "Input"

Dim pPin As IPinInfo
    Set SVideoPin = Nothing
    Set SAudioPin = Nothing
    Set DECInPin = Nothing
    Set DECOutPin = Nothing
    Set VidRendInPin = Nothing
    Set AudioRendInPin = Nothing
' reinitialize all global variables
    Set g_objRegFilters = Nothing
    Set g_objSelFilter = Nothing
    Set g_objSelPin = Nothing
    Set g_objMC = Nothing
' create a new IMediaControl object
    Set g_objMC = New FilgraphManager
    ' reset the listRegFilters again
    Set g_objRegFilters = g_objMC.RegFilterCollection
    RefreshRegFilters
' reinitialize the display
    listFilters.Clear
    lblFilterName.Caption = ""
    lblVendorInfo.Caption = ""
    listPins.Clear
    txtPinInfo.Text = ""
    g_fRunning = False
        
'Add source filter for an AVI file
    On Error GoTo err_CustomGraph_Cancel
    CommonDialog1.CancelError = True
    CommonDialog1.filter = "AVI files (*.avi)|*.avi"
    CommonDialog1.ShowOpen  ' get the name of the source or filter graph file
    g_objMC.AddSourceFilter CommonDialog1.filename, pSourceFilter
    
    On Error GoTo err_CustomGraph  ' handle other errors
    ' Get the pins we need to connect
    For Each pPin In pSourceFilter.Pins
      Debug.Print pPin.Name
      If pPin.Name = "Output" Then
          Set SourceOutputPin = pPin
      End If
    Next pPin
    
    'Add DEC filter
    AddFilter "AVI Decompressor", pDECFilter
    'Print out list of pins on decompressor filter
    For Each pPin In pDECFilter.Pins
      Debug.Print pPin.Name
      ' save specific pins to connect them
      If pPin.Name = "XForm In" Then
          Set DECInPin = pPin
      End If
      If pPin.Name = "XForm Out" Then
          Set DECOutPin = pPin
      End If
    Next pPin
 
    'Add AVI Splitter
    AddFilter "AVI Splitter", pAVISplitter
    'Print out list of pins on decompressor filter
    For Each pPin In pAVISplitter.Pins
      Debug.Print pPin.Name
      ' save specific pins to connect them
      ' pin 0, pin 1
      If pPin.Name = "input pin" Then
          Set SplitterInPin = pPin
      ElseIf pPin.Name = "Stream 00" Then
          Set SplitterOut00Pin = pPin
      ElseIf pPin.Name = "Stream 01" Then
          Set SplitterOut01Pin = pPin
      End If
    Next pPin
    
    'Connect Source video output pin to AVI splitter input pin
    If Not SourceOutputPin Is Nothing And Not SplitterInPin Is Nothing Then
        SourceOutputPin.Connect SplitterInPin
    End If
 
    ' Splitter now knows how many output pins it needs
    For Each pPin In pAVISplitter.Pins
      Debug.Print pPin.Name
      ' save specific pins to connect them
      ' pin 0, pin 1
      If pPin.Name = "Stream 00" Then
          Set SplitterOut00Pin = pPin
      ElseIf pPin.Name = "Stream 01" Then
          Set SplitterOut01Pin = pPin
      End If
    Next pPin
 
    'Add Video Renderer filter and set its pin variables
    AddFilter "Video Renderer", pVidRenderer
    'Print out list of pins on video renderer filter
    For Each pPin In pVidRenderer.Pins
      Debug.Print pPin.Name
      If pPin.Name = "Input" Then
          Set VidRendInPin = pPin
      End If
    Next pPin
    
    'Add Audio Renderer filter and set its pin variables
    AddFilter "Audio Renderer", pAudioRenderer
    'Print out list of pins on audioo renderer filter
    For Each pPin In pAudioRenderer.Pins
      Debug.Print pPin.Name
      If InStr(pPin.Name, "Input") Then
          Set AudioRendInPin = pPin
      End If
    Next pPin
    
    
    ' Connect AVI splitter stream 01 to AVI decompressor
    If Not DECInPin Is Nothing And Not SplitterOut00Pin Is Nothing Then
        SplitterOut00Pin.Connect DECInPin
    End If
    
    'Connect DEC filter output pin to Video Renderer input pin
    If Not DECOutPin Is Nothing And Not VidRendInPin Is Nothing Then
        DECOutPin.Connect VidRendInPin
    End If
    
    ' Connect AVI splitter stream 01 to audio renderer
    ' continue if there is no audio connection for the source AVI file
    On Error Resume Next
    If Not AudioRendInPin Is Nothing And Not SplitterOut01Pin Is Nothing Then
        SplitterOut01Pin.Connect AudioRendInPin
    End If
    
    RefreshFilters
    Exit Sub
err_CustomGraph:
    MsgBox "Could not create the custom filter graph. Please select an .AVI file that uses the AVI splitter and AVI decompressor filters."
    Exit Sub
err_CustomGraph_Cancel:
    ' user cancelled out of File Open dialog; just exit
    Exit Sub
End Sub

Private Sub mnu_FilterGraphExit_Click()
    Set g_objLocalRegFilter = Nothing
    Set g_objRegFilters = Nothing
    Set g_objSelFilter = Nothing
    Set g_objSelPin = Nothing
    Set g_objMC = Nothing
    End
End Sub

Private Sub mnu_FilterGraphGenerate_Click()
' User is initializing the filter graph based on a source file
' Create a new filter graph and then get all filters, connections

' reset the application's global objects
    Set g_objRegFilters = Nothing
    Set g_objSelFilter = Nothing
    Set g_objSelPin = Nothing
    Set g_objMC = Nothing
' initialize the display
    listFilters.Clear
    listPins.Clear
    txtPinInfo.Text = ""
' create a new IMediaControl object
    Set g_objMC = New FilgraphManager
' refresh the display for registered filters
    Set g_objRegFilters = g_objMC.RegFilterCollection
    RefreshRegFilters
    
    ' use the common dialog to let the user select the input file
    On Error GoTo filtergraphgenerate_cancelerror
    CommonDialog1.CancelError = True
    CommonDialog1.filter = "ActiveMovie files (*.mpg;*.avi;*.mov;*.wav)|*.mpg;*.avi;*.mov;*.wav|"
    CommonDialog1.ShowOpen
    
    ' call IMediaControl::RenderFile to add all filters and connect all pins
    g_objMC.RenderFile CommonDialog1.filename
    ' update and display the list of registered filters
    ' update and display all active filters for this filter graph
    RefreshFilters  ' local subroutine to update the listbox
    Exit Sub
filtergraphgenerate_cancelerror:
    ' user cancelled out of the File Open dialog
    Exit Sub
End Sub

Private Sub mnu_FilterGraphNew_Click()
' user wants to start with a fresh filter graph
' reset the global objects
    Set g_objRegFilters = Nothing
    Set g_objSelFilter = Nothing
    Set g_objSelPin = Nothing
    Set g_objMC = Nothing
' create a new IMediaControl object
    Set g_objMC = New FilgraphManager
    ' reset the listRegFilters again
    Set g_objRegFilters = g_objMC.RegFilterCollection
    RefreshRegFilters
' clear the contents of the listboxes, textboxes, and labels
    listFilters.Clear
    lblFilterName.Caption = ""
    lblVendorInfo.Caption = ""
    listPins.Clear
    txtPinInfo.Text = ""
' set the current playback state to stopped
    g_fRunning = False
End Sub


Private Sub mnu_FilterGraphPause_Click()
' sets the playback state to pause
    g_objMC.Pause
End Sub

Private Sub mnu_FilterGraphRun_Click()
' sets the playback state to run and starts the filter graph if it wasn't running
    If Not g_fRunning Then
      Dim pPosition As IMediaPosition
      Set pPosition = g_objMC
      If Err.Number = 0 Then
        On Error Resume Next
        pPosition.CurrentPosition = 0
      End If
    End If
    g_objMC.Run
    g_fRunning = True
End Sub


Private Sub mnu_FilterGraphStop_Click()
' stops the filter graph playback
    g_objMC.Stop
    g_fRunning = False
End Sub