您的位置：首页 > 移动开发 > Objective-C

在网页中插入MediaPlayer控件

2006-02-09 15:25 211 查看

第一种：


<OBJECT id=Player style="LEFT: 0px; POSITION: relative; height:62px;width:100%"
type=application/x-oleobject
standby="Loading.... Microsoft Windows Media Player"
classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6>
<PARAM NAME="URL" VALUE="Song.pls">
<PARAM NAME="autoStart" VALUE="true">
<PARAM NAME="playCount" VALUE="2">
</OBJECT>

曲目列表页：song.pls
<ASX Version="3.0" PREVIEWMODE="NO">
<entry>
<ref href="DownLoad/Music/cxjd.mp3" />
    <param name="singer_name" value="李圣洁"/>
    <param name="song_name" value="痴心绝对"/>
</entry>
<entry>
<ref href="DownLoad/Music/jsb.mp3" />
    <param name="singer_name" value="周传雄"/>
    <param name="song_name" value="记事本"/>
</entry>

<entry>
<ref href="DownLoad/Music/mlxq.mp3" />
    <param name="singer_name" value="本都RuRu"/>
    <param name="song_name" value="美丽心情"/>
</entry>

<entry>
<ref href="DownLoad/Music/TakeMeToYourHeart.mp3" />
    <param name="singer_name" value="摇滚麦克合唱团"/>
    <param name="song_name" value="TakeMeToYourHeart"/>
</entry>
</ASX>


第二种：


网页上的播放器相关参数说明
(默认0为否,-1或1为是)

<object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" id="MediaPlayer1" width="286" height="225">
    <param name="AudioStream" value="-1">
    <param name="AutoSize" value="-1">
    
    <param name="AutoStart" value="-1">
    
    <param name="AnimationAtStart" value="-1">
    <param name="AllowScan" value="-1">
    <param name="AllowChangeDisplaySize" value="-1">
    <param name="AutoRewind" value="0">
    <param name="Balance" value="0">
    
    <param name="BaseURL" value>
    <param name="BufferingTime" value="15">
    
    <param name="CaptioningID" value>
    <param name="ClickToPlay" value="-1">
    <param name="CursorType" value="0">
    <param name="CurrentPosition" value="0">
    
    <param name="CurrentMarker" value="0">
    <param name="DefaultFrame" value>
    <param name="DisplayBackColor" value="0">
    <param name="DisplayForeColor" value="16777215">
    <param name="DisplayMode" value="0">
    <param name="DisplaySize" value="0">
    
    <param name="Enabled" value="-1">
    <param name="EnableContextMenu" value="-1">
    <!-是否用右键弹出菜单控制-->
    <param name="EnablePositionControls" value="-1">
    <param name="EnableFullScreenControls" value="-1">
    <param name="EnableTracker" value="-1">
    
    <param name="Filename" value="http://01.wma" valuetype="ref">
  
    <param name="InvokeURLs" value="-1">
    <param name="Language" value="-1">
    <param name="Mute" value="0">
    
    <param name="PlayCount" value="10">
    
    <param name="PreviewMode" value="-1">
  <param name="Rate" value="1">
    
    <param name="SAMIStyle" value>
    
    <param name="SAMILang" value>
    
    <param name="SAMIFilename" value>
    
    <param name="SelectionStart" value="-1">
    <param name="SelectionEnd" value="-1">
    <param name="SendOpenStateChangeEvents" value="-1">
    <param name="SendWarningEvents" value="-1">
    <param name="SendErrorEvents" value="-1">
    <param name="SendKeyboardEvents" value="0">
    <param name="SendMouseClickEvents" value="0">
    <param name="SendMouseMoveEvents" value="0">
    <param name="SendPlayStateChangeEvents" value="-1">
    <param name="ShowCaptioning" value="0">
    
    <param name="ShowControls" value="-1">
    
    <param name="ShowAudioControls" value="-1">
    
    <param name="ShowDisplay" value="0">
    
    <param name="ShowGotoBar" value="0">
    
    <param name="ShowPositionControls" value="-1">
    
    <param name="ShowStatusBar" value="-1">
    
    <param name="ShowTracker" value="-1">
    
    <param name="TransparentAtStart" value="-1">
    <param name="VideoBorderWidth" value="0">
    
    <param name="VideoBorderColor" value="0">
   
    <param name="VideoBorder3D" value="0">
    <param name="Volume" value="0">
    
    <param name="WindowlessVideo" value="0">
    
</object>

上面的这个播放器是老式的那种,新式播放器是在MediaPlayer9.0以后出现的,也就是说只有装了9.0或9.0以上的播放器才能正常使用的.

--------------------------------------------------------------------------------
下面是新式播放器代码,相对以前的来说要简单很多:

<object id="player" height="64" width="260" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6">
    <param NAME="AutoStart" VALUE="-1">
    
    <param NAME="Balance" VALUE="0">
    
    <param name="enabled" value="-1">
    
    <param NAME="EnableContextMenu" VALUE="-1">
    
    <param NAME="url" VALUE="http://1.wma">
    
    <param NAME="PlayCount" VALUE="1">
    
    <param name="rate" value="1">
    
    <param name="currentPosition" value="0">
    
    <param name="currentMarker" value="0">
    
    <param name="defaultFrame" value="">
    
    <param name="invokeURLs" value="0">
    
    <param name="baseURL" value="">
    
    <param name="stretchToFit" value="0">
    
    <param name="volume" value="50">
    
    <param name="mute" value="0">
    
    <param name="uiMode" value="mini">
    
    <param name="windowlessVideo" value="0">
    
    <param name="fullScreen" value="0">
    
    <param name="enableErrorDialogs" value="-1">
    
    <param name="SAMIStyle" value>
    
    <param name="SAMILang" value>
    
    <param name="SAMIFilename" value>
    
</object>


第三种：
'Yxplaylist.asp

<%
picrnd=4
randomize
picrnd="player"&Int((picrnd*rnd)+1)
%>
<%
if request("checked")="" then
response.write"<SCRIPT language=JavaScript>alert('哈哈! 出错啦! 至少要选择歌曲一首以上才能连播!');"
response.write"javascript:window.close();</SCRIPT>"
else
end if
ListenUrl=request("checked")
dim ListenUrlArray(20)
randomize
ListenUrl=trim(ListenUrl)
if instr(ListenUrl,",")=0 then
ListenUrlArray(0)=ListenUrl
else
ListenUrl=replace(ListenUrl," ","")
ListenUrlArrayNew=split(ListenUrl,",")
FoundNew=1
end if
if FoundNew=1 then
for intI=0 to ubound(ListenUrlArrayNew)
set rs=server.CreateObject("adodb.recordset")
sql="select hits from MusicList where id="&ListenUrlArrayNew(intI)&""
rs.open sql,conn,1,3
if not rs.eof then
rs("hits")=rs("hits")+1
rs.update
end if
next
end if
conn.close
set conn=nothing
%>

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>TZVOD音乐连播</title>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" onkeydown="KeyDown()" onselectstart="return false" oncontextmenu="event.returnValue=false">

<table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">

<table width="350" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#f7f7f7" class="bk" height="10">
<tr>
            <td width="350"><img src="images/<%=picrnd&".gif"%>" width="350" height="205" border="0"></td>
</tr>
<tr>
<td><div align="center">
<iframe border=0 frameborder=0 framespacing=0 height=200 width=350 marginheight=1 marginwidth=1 name=list noResize src="playL.asp?id=<%=ListenUrl%>" vspale=0 scrolling="no">||你的浏览器不支持嵌入式框架||</iframe></div></td></tr>
</table>
</td>
</tr>
</table>

</body>
</html>

'playl.asp

<%
if request("id")="" then
              response.write"<SCRIPT language=JavaScript>alert('哈哈! 出错啦! 至少要选择歌曲一首以上才能连播!');"
              response.write"javascript:window.close();</SCRIPT>"
       else
end if
conn.close
set conn=nothing
ListenUrl=replace(request("id"),"","")
ListenUrl=ListenUrl
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>音乐频道</title>
<style type="text/css">

</style>
<SCRIPT language=javascript>
var AutoPlay=true;
var Real
Real="document.MPlayer."
var CanPlay=true;
var CanStop=false;
var CanPause=false;
var Mute=false;
var CanSetPos=false;
var SetPosStart=false;
var GetLenStart=false
var CanSetVol=true;
var SetVolStart=false
function fullscreen()
{
document.MPlayer.DisplaySize=3
}
function left()
{
document.MPlayer.Balance=-9640
}
function center()
{
document.MPlayer.Balance=0
}
function right()
{
document.MPlayer.Balance=9640
}

function DoPlay()
{
       eval(Real+'Play()');
}
function DoStop()
{
       eval(Real+'Stop()');
       eval(Real+'CurrentPosition=0');
}
function DoPlayPause()
{
       eval(Real+'Pause()');
}
function SetPosition(Pos)
{
       eval(Real+'CurrentPosition='+Pos);
}
function SetVolume(Pos)
{
       eval(Real+'Volume=Pos');
}
function SetMute(Status)
{
       if (Status)
              eval(Real+'Mute=true')
       else
              eval(Real+'Mute=false');
}
function SetSource(srcname)
{
       eval(Real+'FileName=srcname')
}

function ClickPlay()
{

       if (CanPlay)
       {
              CanPlay=false;
              CanPause=true;
              if (!CanStop)
                     CanStop=true;
              if (!Mute)
                     SetMute(false)
              DoPlay();
       }
}

function ClickPause()
{
       if (CanPause)
       {
              CanPause=false;
              CanPlay=true;
              CanSetPos=false;
              DoPlayPause();
       }
}

function ClickStop()
{
       if (CanStop)
       {
              CanStop=false;
              CanPlay=true;
              if (CanPause)
                     CanPause=false;
              if(CanSetPos)
                     CanSetPos=false;
              DoStop();
       }
}

function ClickSound()
{
       if (Mute)
       {
              Mute=false;
              SetMute(Mute);
       }
       else
       {
              Mute=true;
              SetMute(Mute);
       }
}

function SetSrc(File)
{
       if (CanStop)
              ClickStop();

       SetSource(File);

       if (AutoPlay)
              ClickPlay();
}

</SCRIPT>
<script language=JavaScript>

</script>
</head>
<body leftMargin=0 topMargin=0 scroll=no onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<div align="center">
<center>
    <table width="400" border="0" cellspacing="0" cellpadding="0">
      



                  <tr>
                    <td><object id="mPlayer1" width=100% height=64
classid="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6" type=application/x-oleobject standby="Loading Windows Media Player components...">
                        <param name="URL" value="52artListenUrl.asp?id=<%=ListenUrl%>">
                        <param name="Album" value="www.tzvod.com">
                        <param name="rate" value="1">
                        <param name="balance" value="0">
                        <param name="currentPosition" value="0">
                        <param name="defaultFrame" value="">
                        <param name="playCount" value="100">
                        <param name="autoStart" value="-1">
                        <param name="currentMarker" value="0">
                        <param name="invokeURLs" value="-1">
                        <param name="baseURL" value="">
                        <param name="volume" value="100">
                        <param name="mute" value="0">
                        <param name="uiMode" value="full">
                        <param name="stretchToFit" value="0">
                        <param name="windowlessVideo" value="0">
                        <param name="enabled" value="-1">
                        <param name="enableContextMenu" value="0">
                        <param name="fullScreen" value="0">
                        <param name="SAMIStyle" value="">
                        <param name="SAMILang" value="">
                        <param name="SAMIFilename" value="">
                        <param name="captioningID" value="">
                        <param name="BufferingTime" value="5">
                      </object></td>
                  </tr>


    </table>
    </center>
</div>
</body>
</html>

'52artlistenurl.asp

<ASX version = "3.0">
<%
if request("id")<>"" then
set rs=server.createobject("adodb.recordset")
id=request("id")
sql="select * from MusicList where id in ("&id&")"
rs.open sql,conn,1,3
while not rs.eof
%>
<entry SKIPIFREF="YES">
<title><%=rs("Musicname")%>--www.tzvod.com</title>
<author> http://www.tzvod.com</author> <copyright>http://www.tzvod.com</copyright>
<ref href="<%=rs("listenurl")%>"/>
<param name="Artist" value="<%=rs("Singer")%>"/>
<param name="Album" value="www.tzvod.com"/>
<param name="Title" value="<%=rs("Musicname")%>"/>
</ENTRY>
<%
rs.movenext
wend
rs.Close
set rs=nothing
end if
conn.close
set conn=nothing
%></ASX>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签： function border javascript microsoft object file

相关文章推荐

新的分享

章节导航