|
'最近發(fā)現(xiàn)老有人問及在線播放器的問題
'在下做了一個利用MS Media Player的組件的在線播放器，
'并且可以隨時下載MS最新有播放組件
'這是一個在線媒體播放器的代碼
<html>
<head>
在線Media Player
</head>
<body>
<script language="VBScript">
sub setFullScreen(x)
MediaPlayer.DisplaySize = x
end sub
sub Player_Click( Button, ShiftState, x, y )
if MediaPlayer.DisplaySize=3 then
MediaPlayer.DisplaySize = 4
end if
end sub
</script>
<p align="center">
<OBJECT ID="MediaPlayer" width=160 height=182align=absmiddle border=0
classid="CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95"
codebase=
"http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701"
standby="正在下載播放控件..."
type="application/x-oleobject">
<PARAM NAME="FileName" VALUE="ftp://ftp.pcvr2000.net/pub/game/movie/WorldSoccer.mpg">
<PARAM NAME="ShowStatusBar" VALUE="True">
<PARAM NAME="ShowCaptioning" VALUE="True">
<PARAM NAME="ShowPositionControls" VALUE="True">
<EMBED type="application/x-mplayer2"
pluginspage = "http://www.microsoft.com/Windows/MediaPlayer/"
SRC="demo.asx"
name="MediaPlayer"
width=160
height=182
ShowStatusBar=-1
ShowPositionControls=0
ShowCaptioning=-1>
</EMBED>
</OBJECT>
<br>
<input type="button" value="全屏播放"
onclick="setfullscreen('3')"> <input type="button"
value="100%播放" onclick="setfullscreen('2')"> <input
type="button" value="50%播放" onclick="setfullscreen('1')">
<br>
<A HREF="demo.asx">打開外部播放器</A>
</p>
</body>
</html>
'下面是外掛播放器的信息文件(demo.asx)
<ASX version = "3.0">
<TITLE>External Captioning Demo</TITLE>
<Entry>
<TITLE>Media Player Demo</TITLE>
<AUTHOR>Netnerd(歪書生)</AUTHOR>
<COPYRIGHT>2001 B6212.net</COPYRIGHT>
<Ref href = "mms://netshow.microsoft.com/ms/sbnasfs/wmt/shamu_28.asf" />
</Entry>
</ASX>
|
