当前位置:甜馍馍地理信息网 >> 网站开发 >> 综合知识 >> 正文 >>  [阅读资讯:在线媒体播放器全新揭密]

在线媒体播放器全新揭密

[ 来源:Internet | 时间:2005年08月12日 | 收藏本文 ] 【

'最近发现老有人问及在线播放器的问题
'在下做了一个利用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=182 align=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>

【推荐本文】 【打印本页】 【返回顶部

>> 相关文章:

● 上一篇文章:用VS.NET创建.NET可复用数据库组件
● 下一篇文章:给ASP增加绘图功能
最新文章
推荐文章