Windows Media Player SDK banner art
PreviousNext

Creating a DVD-Enabled Web Page

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>
PreviousNext


© 2000-2001 Microsoft Corporation. All rights reserved.