TV Capture

TV Capture

• soumyac

  Never heard of it. What samples

  
  
  

• KanishK

  To do this, you probably want the platform SDK, seeing as DirectShow has been moved there from DirectX, where it used to live. Beyond that, I'm not sure.

  
  
  

• Seth Cohen

  I've encountered a webcam security app which picks up my TV card. I'll link you, but leave you to do what you think - http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp txtCodeId=3616&lngWId=10

  Perhaps this is too much I'm sure there are loads of examples somewhere..

  
  

• Exitboy

  tnx cgraus.

  have you encountered "vidcontrol" I've seen it in some sample codes but i can't get any information about it.

  
  

• JoelBarish

  I googled AnalogTVTuningSpace and discovered that it's part of DirectX9.

  
  
  

• nomad98736

  here is one of them samples i was referring to before with vidcontrol in it. i don't know if its a class or not.

  Private Sub Command1_Click()
  
  Dim objTuneRequest As IChannelTuneRequest
  Dim objTuneSpace As ITuningSpace
  Dim objTuneSpaces As ITuningSpaces
  Dim objInputVid As MSVidInputDevices

  Dim objAnalogTuneSpace As New AnalogTVTuningSpace
  ' Dim objAnalogTuneSpace As MSVidobjAnalogTuneSpacelogTunerDevice
  Dim vid As MSVidInputDevices
  
  ' Set objInputVid = New MSVidInputDevices
  
  ' Set objAnalogTuneSpace = New AnalogTVTuningSpace
  
  ' Set objTuneRequest = objTSContainer("Antenna").CreateTuneRequest
  'Set objTuneSpace = objTSContainer("Antenna")
  
  For Each objTuneSpace In objTSContainer
  Debug.Print objTuneSpace.UniqueName
  
  If objTuneSpace.UniqueName = "MyTV" Then
  objTSContainer.Remove "MyTV"
  End If
  Next
  
  
  ' objTSContainer.Remove "TEST"
  
  objAnalogTuneSpace.CountryCode = 44
  objAnalogTuneSpace.UniqueName = "MyTV"
  objAnalogTuneSpace.FriendlyName = "My Television"
  objAnalogTuneSpace.MaxChannel = 69
  objAnalogTuneSpace.MinChannel = 1
  objAnalogTuneSpace.NetworkType = "{00000000-0000-0000-0000-000000000000}"
  ' objAnalogTuneSpace.FrequencyMapping = "175312500"
  objAnalogTuneSpace.InputType = TunerInputAntenna
  
  ' Set objTuneSpace = objAnalogTuneSpace
  Set objTuneSpace = objAnalogTuneSpace
  
  
  objTSContainer.Add objAnalogTuneSpace
  
  Set objTuneRequest = objTSContainer("MyTV").CreateTuneRequest

  '
  
  objTuneRequest.Channel = 26
  
  ' objTuneRequest.Clone
  
  '
  ' On Error Resume Next
  VidControl.View objTuneRequest
  ' VidControl.Build
  ' VidControl.Run

  End Sub

  Private Sub Command2_Click()
  Dim objTuneRequest As IChannelTuneRequest
  Dim mobjTSContainer As New SystemTuningSpaces
  
  Set objTuneRequest = mobjTSContainer("MyTV").CreateTuneRequest
  
  
  If Not mblnRunned Then
  VidControl.View objTuneRequest
  
  
  On Error GoTo failed
  
  VidControl.Run
  
  
  mblnRunned = True
  End If
  
  Select Case Index
  Case 1
  objTuneRequest.Channel = 26
  Case 2
  objTuneRequest.Channel = 33
  Case 3
  objTuneRequest.Channel = 23
  Case 4
  objTuneRequest.Channel = 30
  Case 5
  objTuneRequest.Channel = 37
  Case 6
  objTuneRequest.Channel = 52
  End Select
  
  
  VidControl.View objTuneRequest
  
  
  
  
  Exit Sub
  '' VidControl.Build
  
  failed:
  Resume
  End Sub

  
  
• TV Capture