![]() |
Previous | Next |
This topic applies to Windows Media Player version 6.4 only.
By combining the elements previously discussed in this article, you can see how the pieces fit together in the following sample code.
Try the following sample code to showcase the Windows Media Player control's capabilities on a system with DVD-Video capabilities. Copy and paste the code into a text file and save it with the .htm extension.
<HTML>
<HEAD>
<TITLE>DVD_Demo</TITLE>
</HEAD>
<BODY BGCOLOR="#000000" TEXT="#00FFFF">
<CENTER>
<TABLE>
<TR>
<TD VALIGN="TOP" WIDTH="10%">
</TD>
<TD>
<P ALIGN="center">
<OBJECT
CLASSID="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95"
WIDTH="652"
HEIGHT="382"
ID="MediaPlayer1">
<PARAM NAME="AutoStart" value="0">
<PARAM NAME="Filename" value="DVD:">
<PARAM NAME="ShowControls" value="0">
</OBJECT>
</P>
</TD>
<TD VALIGN="TOP" WIDTH="10%">
Menu Select
<BR>
<INPUT TYPE="BUTTON" STYLE="WIDTH:70"
NAME="cmdTopSelect" VALUE="Top">
<BR>
<INPUT TYPE="BUTTON" STYLE="WIDTH:70"
NAME="cmdLeftSelect" VALUE="Left">
<BR>
<INPUT TYPE="BUTTON" STYLE="WIDTH:70"
NAME="cmdRightSelect" VALUE="Right">
<BR>
<INPUT TYPE="BUTTON" STYLE="WIDTH:70"
NAME="cmdBottomSelect" VALUE="Bottom">
<P>
<INPUT TYPE="BUTTON" STYLE="WIDTH:70"
NAME="cmdButtonActivate" VALUE="Select">
<P>
</TD>
</TR>
</TABLE>
</CENTER>
<CENTER>
<INPUT TYPE="BUTTON" STYLE="WIDTH:60" NAME="cmdPlay" VALUE="Play">
<INPUT TYPE="BUTTON" STYLE="WIDTH:60" NAME="cmdPause" VALUE="Pause">
<INPUT TYPE="BUTTON" STYLE="WIDTH:60" NAME="cmdStop" VALUE="Stop">
<INPUT TYPE="BUTTON" STYLE="WIDTH:60" NAME="cmdResume" VALUE="Resume">
<INPUT TYPE="BUTTON" STYLE="WIDTH:60" NAME="cmdShowMenu" VALUE="Menu">
<P>
<INPUT TYPE="BUTTON" NAME="cmdPrevChapter" VALUE="| < <">
<INPUT TYPE="BUTTON" NAME="cmdRewind" VALUE=" < <">
<INPUT TYPE="BUTTON" NAME="cmdFastForward" VALUE=" > >">
<INPUT TYPE="BUTTON" NAME="cmdNextChapter" VALUE=" > >|">
</CENTER>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim isScanning
isScanning = False
Sub cmdPlay_OnClick()
If isScanning Then
MediaPlayer1.DVD.ForwardScan(1)
Else
MediaPlayer1.Play()
End If
isScanning = False
End Sub
Sub cmdPause_OnClick()
MediaPlayer1.Pause()
End Sub
Sub cmdStop_OnClick()
MediaPlayer1.Stop()
End Sub
Sub cmdResume_OnClick()
MediaPlayer1.DVD.ResumeFromMenu()
End Sub
Sub cmdShowMenu_OnClick()
MediaPlayer1.DVD.MenuCall(3)
End Sub
Sub cmdPrevChapter_OnClick()
MediaPlayer1.DVD.PrevPGSearch()
End Sub
Sub cmdNextChapter_OnClick()
MediaPlayer1.DVD.NextPGSearch()
End Sub
Sub cmdFastForward_OnClick()
isScanning = True
MediaPlayer1.DVD.ForwardScan(5)
End Sub
Sub cmdRewind_OnClick()
isScanning = True
MediaPlayer1.DVD.BackwardScan(5)
End Sub
Sub cmdTopSelect_OnClick()
MediaPlayer1.DVD.UpperButtonSelect()
End Sub
Sub cmdLeftSelect_OnClick()
MediaPlayer1.DVD.LeftButtonSelect()
End Sub
Sub cmdRightSelect_OnClick()
MediaPlayer1.DVD.RightButtonSelect()
End Sub
Sub cmdBottomSelect_OnClick()
MediaPlayer1.DVD.LowerButtonSelect()
End Sub
Sub cmdButtonActivate_OnClick()
Dim buttonNumber
buttonNumber = MediaPlayer1.DVD.CurrentButton
MediaPlayer1.DVD.ButtonSelectAndActivate(buttonNumber)
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
Previous | Next |