Run a coax cable out of your cable or satellite set top box into a TV
tuner card in your PC. The below code works on older (analog, NTSC
maybe - not sure) setups, but not on more modern ones (ATSC, DVB-S
maybe - not sure).
<HTML>
<OBJECT ID="MSVidCtl"
CLASSID="CLSID:8A674B4D-1F63-11D3-B64C-00C04F79498E"></OBJECT>
<SCRIPT language=vbscript>
option explicit
dim tscontainer
dim ts
dim tr
set tscontainer = CreateObject("BDATuner.SystemTuningSpaces")
set ts = tscontainer("Cable")
set tr = ts.CreateTuneRequest
tr.Channel = 3
MSVidCtl.View tr
MSVidCtl.Run
</Script>
</HTML>
Microsoft's ActiveX Video Control has default tuning spaces to plug
in. In the below code, that class ID and "Cable" made it all work.
But changing "Cable" to "Digital Cable" and changing the class ID per
the link at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directshow/htm/defaulttuningspaces.asp
doesn't make it work.
If what I need is DVB-something or other, then
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directshow/htm/tuningspaces.asp
does mention writing one's own tuning space. I don't know.
If you need the ActiveX Video Control (MsVidCtl.dll), I put a copy at
http://www.westinis.com/rcook/msvidctl.dll. Just put in in your
C:\Windows\System32 folder.
I have VB.NET and C# versions of the above code (that I can share)
that also worked on the older setup and DID WORK.
Help me make this work and it's worth $500 to me.
Thanks,
Ron Cook
Ronald S. Cook, MCSD, MCT
Enterprise Applications Developer
Westinis, Inc.
P.O. Box 7420
Boulder, CO 80306
(303) 588-7224 -tel
(303) 568-0002 -fax
rcook@westinis.com
http://www.westinis.com |
