一 : 网页RM播放器代码

最简单有效的RM视频网页代码：

<embed src="http://文件地址.rm" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ImageWindow" height="420" width="560" autostart="1"><embed width="560" height="36" controls="ControlPanel" console="Clip1" type="audio/x-pn-realaudio-plugin" autostart="1" >

real放器代码

<object id="video4" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="320" height="240">

<param name="_ExtentX" value="8467">

<param name="_ExtentY" value="6350">

<param name="AUTOSTART" value="0">

<param name="SHUFFLE" value="0">

<param name="PREFETCH" value="0">

<param name="NOLABELS" value="0">

<param name="SRC" value="http://文件地址.rm"; ref>

<param name="CONTROLS" value="ImageWindow">

<param name="CONSOLE" value="Clip1">

<param name="LOOP" value="0">

<param name="NUMLOOP" value="0">

<param name="CENTER" value="0">

<param name="MAINTAINASPECT" value="0">

<param name="BACKGROUNDCOLOR" value="#000000"><embed SRC type="audio/x-pn-realaudio-plugin" CONSOLE="Clip1" CONTROLS="ImageWindow" HEIGHT="320" WIDTH="240" AUTOSTART="false">

</object>

rm播放器代码

<object ID="video1" CLASSID="clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" HEIGHT="300" WIDTH="400">

<param name="_ExtentX" value="22304">

<param name="_ExtentY" value="14288">

<param name="AUTOSTART" value="-1">

<param name="SHUFFLE" value="0">

<param name="PREFETCH" value="0">

<param name="NOLABELS" value="0">

<param name="SRC" value="http://文件地址.rm">

<param name="CONTROLS" value="ImageWindow">

<param name="CONSOLE" value="Clip1">

<param name="LOOP" value="0">

<param name="NUMLOOP" value="0">

<param name="CENTER" value="0">

<param name="MAINTAINASPECT" value="0">

<param name="BACKGROUNDCOLOR" value="#000000">

</object>

<object ID="video1" CLASSID="clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" HEIGHT="60" WIDTH="400">

<param name="controls" value="ControlPanel,StatusBar">

<param name="console" value="Clip1">

<embed type="audio/x-pn-realaudio-plugin" CONSOLE="Clip1" CONTROLS="ControlPanel,StatusBar" HEIGHT="60" WIDTH="400" AUTOSTART="true">

</object>

rm音乐播放器代码

<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA

width=240 height=50 align="middle" id=video1>

<param name="_ExtentX" value="16140">

<param name="_ExtentY" value="1588">

<param name="AUTOSTART" value="-1">

<param name="SHUFFLE" value="0">

<param name="PREFETCH" value="0">

<param name="NOLABELS" value="0">

<param name="SRC" value="http://文件地址.rm">

<param name="CONTROLS" value="StatusBar,ControlPanel">

<param name="CONSOLE" value="Clip1">

<param name="LOOP" value="-1">

<param name="NUMLOOP" value="0">

<param name="CENTER" value="0">

<param name="MAINTAINASPECT" value="0">

<param name="BACKGROUNDCOLOR" value="#000000">

<embed src="url"

type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ControlPanel,StatusBar"

height="45" width="240" autostart="true">

</OBJECT>

Real Player 网页播放器 参数含义

参数：autostart 属性：True或是False 作用：指定是否自动播放指定的源文件

参数：backgroundcolor 属性：任何用符号“#”开头的16进制数值或是任何预定义的颜色作用：指定图像窗口的背景颜色

参数：center 属性：True或是False 作用：指定片断使用初始编码大小播放，并且在图像窗口的中央。

参数：classid 属性："clsid：CFCDAA03-8BE4-1lcf-B84B0020AFBBCCFA:** 作用：用于指定ActiveX控件的唯一的字符串标示，可以认出嵌入的RealPalyer播放器。

参数：console 属性：任何字符串作用：可以将各种不同的RealPlayer控制聚集在网页上，这样它们可以交互使用或是保持独立，而且互相不影响

参数：controls 属性：ImageWindow，All，ControlPanel，PlavButton，PlayOnlyButton， PauseButton,StopButton，FFCtrl，RWCtrl，MuteCtrl，MuteVolume，VolumeSlider，PositionSlider,TACCtrl，HomeCtrl，InfoVolumePanel，InfoPanel，StatusBar，StatusField，PositionField 作用：可以让你指定那些控制是可见的。

参数：height 属性：任何整数值作用：指定RealPlayer元素的高度，单位:像素

参数：id 属性：任何字符串作用：为标签中的RealPlayer元素指定名字。

参数：imagestatus 属性：True或是False 作用：指定是否在图像窗口中显示状态信息，默认值是true

参数：loop 属性：True或是False 作用：可以让你指定片断是否无限循环

参数：maintainaspect 属性：True或是False 作用：默认RealPlayer拉伸所有的片断来充满整个图像窗口。

参数：name 属性：任何字符串作用：为标签中的RealPlayer元素指定名字(在标签中使用id)

参数：nojava 属性：True或是False 作用：避免启动Java虚拟机

参数：nolabels 属性：True或是False 作用：可以禁止显示标题或是版权信息(realplayer5.0以上时，它是垃圾...)

参数：nologo 属性：True或是False 作用：避免RealPlayer启动时在图像窗口中显示

参数：numloop 属性：任何整数值作用：让你能够指定文件片循环的次数，不需要参数loop

参数：prefetch 属性：True或是False 作用：指定在播放前，RealPlayer是否可以获得流描述信息，默认值是False

参数：region 属性：任何字符串作用：同SMIL一起使用。允许你指定使用HTML代替SMIL

参数：scriptcallbacks 属性：用逗号分割的列表作用：指定浏览器的回调监控（好高级的东东！）

参数：shuffle 属性：True或是False 作用：同多文件片的ram文件或是SMIL文件一起使用。可以让RealPlayer随机播放列表中的文件

参数：src 属性：任何合法的相对或是完整的URL 作用：指定播放的文件或是源文件的地址

参数：type 属性：字符串作用：为嵌入插件指定MIME类型

参数：width 属性：任何整数值作用：指定RealPlayer元素的宽度

controls的属性含义...

组件：imagewindow

作用：视频显示区域

组件：All

作用：嵌入RealPlaver的所有按钮、滑动条和信息面板

组件：ControlPanel

作用：显示所有的控制按钮，以及位置滑动条和扬声器图标，和调节声音大小的滑动条

组件：PlayButton

作用：显示播放(play)按钮和暂停(pause)按钮

组件：PlayOnlyButton

作用：仅显示播放按钮

组件：PauseButton

作用：仅显示暂停按钮

组件：StopButton

作用：仅显示停止(stop)按钮

组件：FFCtrl

作用：仅显示快进(fastforward)按钮

组件：RWCtrl

作用：仅显示回放(rewind)按钮

组件：MuteCtrl

作用：仅显示扬声器图标，用作静音按钮

组件：MuteVolume

作用：显示小的扬声器图标(用于静音)和其上的用于调节音量的滑动条

组件：VolumeSlider

作用：仅显示竖直的音量滑动条

组件：PositionSlider

作用：显示水平的位置滑动条

组件：tacctrl

作用：显示水平的消息框，轮流显示标题、作者以及版权信息

组件：HomeCtrl

作用：显示小的Real标识

组件：infoVolumePanel

作用：显示黑的消息框，用绿色显示标题、作者以及版权信息，在右手方有扬声器图标和声音调节滑动条

组件：infoPanel

作用：同上面一样，但是没有静音按钮和声音调节滑动条

组件：StatusBar

作用：显示水平的消息框，显示片断信息，比如片断的时间，网络状况等等

组件：StatusField

作用：同StatusBar类似，但是只显示消息区域，显示网络消息，比如显示“Re-buffenng．．．”

组件：PositionField

作用：小的黑的消息框，显示整个文件片断长度以及当前帧在片内的位置

嵌入RealOne播放器

<object ID="rPlayer" CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" HEIGHT="100%" WIDTH="100%">

<param name="_ExtentX" value="23627">

<param name="_ExtentY" value="15187">

<param name="AUTOSTART" value="-1">

<param name="SHUFFLE" value="0">

<param name="PREFETCH" value="0">

<param name="NOLABELS" value="0">

<param name="SRC" value="http://www.61k.comaddress.asp?num=24009987&id=10019">

<param name="CONTROLS" value="ImageWindow">

<param name="CONSOLE" value="Clip1">

<param name="LOOP" value="0">

<param name="NUMLOOP" value="0">

<param name="CENTER" value="0">

<param name="MAINTAINASPECT" value="0">

<param name="BACKGROUNDCOLOR" value="#000000">

</object>

RealPlayer的一些函数、方法和过程

这是 Real Player ActiveX Control Library (Version 1.0) 的所有函数与方法，有兴趣可以研究一下。

function GetSource: WideString;

procedure SetSource(const lpszNewValue: WideString);

function GetConsole: WideString;

procedure SetConsole(const lpszNewValue: WideString);

function GetControls: WideString;

procedure SetControls(const lpszNewValue: WideString);

function GetNoLabels: WordBool;

procedure SetNoLabels(bNewValue: WordBool);

function GetAutoStart: WordBool;

procedure SetAutoStart(bNewValue: WordBool);

function GetAutoGotoURL: WordBool;

procedure SetAutoGotoURL(bNewValue: WordBool);

function GetVolume: Smallint;

procedure SetVolume(nVol: Smallint);

function GetMute: WordBool;

procedure SetMute(bMute: WordBool);

function GetLoop: WordBool;

procedure SetLoop(bVal: WordBool);

function GetImageStatus: WordBool;

procedure SetImageStatus(bEnable: WordBool);

function GetPacketsTotal: Integer;

function GetPacketsReceived: Integer;

function GetPacketsOutOfOrder: Integer;

function GetPacketsMissing: Integer;

function GetPacketsEarly: Integer;

function GetPacketsLate: Integer;

function GetBandwidthAverage: Integer;

function GetBandwidthCurrent: Integer;

procedure DoPlayPause;

procedure DoStop;

procedure DoNextItem;

procedure DoPrevItem;

function CanPlayPause: WordBool;

function CanStop: WordBool;

function HasNextItem: WordBool;

function HasPrevItem: WordBool;

function HasNextEntry: WordBool;

function HasPrevEntry: WordBool;

procedure DoNextEntry;

procedure DoPrevEntry;

procedure AboutBox;

procedure EditPreferences;

procedure HideShowStatistics;

function IsStatisticsVisible: WordBool;

procedure DoGotoURL(const url: WideString; const target: WideString);

procedure DoPlay;

procedure DoPause;

function GetPosition: Integer;

function GetPlayState: Integer;

function GetLength: Integer;

function GetTitle: WideString;

function GetAuthor: WideString;

function GetCopyright: WideString;

function GetClipWidth: Integer;

function GetClipHeight: Integer;

function CanPlay: WordBool;

function CanPause: WordBool;

procedure SetPosition(lPosition: Integer);

function GetNumLoop: Integer;

procedure SetNumLoop(lVal: Integer);

function GetCenter: WordBool;

procedure SetCenter(bVal: WordBool);

function GetNoLogo: WordBool;

procedure SetNoLogo(bVal: WordBool);

function GetMaintainAspect: WordBool;

procedure SetMaintainAspect(bVal: WordBool);

function GetBackgroundColor: WideString;

procedure SetBackgroundColor(const pVal: WideString);

function GetStereoState: WordBool;

function GetLiveState: WordBool;

function GetShowStatistics: WordBool;

procedure SetShowStatistics(bVal: WordBool);

function GetShowPreferences: WordBool;

procedure SetShowPreferences(bVal: WordBool);

function GetShowAbout: WordBool;

procedure SetShowAbout(bVal: WordBool);

function GetOriginalSize: WordBool;

procedure SetOriginalSize;

function GetDoubleSize: WordBool;

procedure SetDoubleSize;

function GetFullScreen: WordBool;

procedure SetFullScreen;

function GetEnableContextMenu: WordBool;

procedure SetEnableContextMenu(bVal: WordBool);

function GetEnableOriginalSize: WordBool;

procedure SetEnableOriginalSize(bVal: WordBool);

function GetEnableDoubleSize: WordBool;

procedure SetEnableDoubleSize(bVal: WordBool);

function GetEnableFullScreen: WordBool;

procedure SetEnableFullScreen(bVal: WordBool);

function GetEnableMessageBox: WordBool;

procedure SetEnableMessageBox(bVal: WordBool);

procedure SetTitle(const pVal: WideString);

procedure SetAuthor(const pVal: WideString);

procedure SetCopyright(const pVal: WideString);

function GetWantKeyboardEvents: WordBool;

procedure SetWantKeyboardEvents(bWantsEvents: WordBool);

function GetWantMouseEvents: WordBool;

procedure SetWantMouseEvents(bWantsEvents: WordBool);

function GetNumEntries: Smallint;

function GetCurrentEntry: Smallint;

function GetEntryTitle(uEntryIndex: Smallint): WideString;

function GetEntryAuthor(uEntryIndex: Smallint): WideString;

function GetEntryCopyright(uEntryIndex: Smallint): WideString;

function GetEntryAbstract(uEntryIndex: Smallint): WideString;

procedure SetCanSeek(bCanSeek: WordBool);

function GetCanSeek: WordBool;

function GetBufferingTimeElapsed: Integer;

function GetBufferingTimeRemaining: Integer;

function GetConnectionBandwidth: Integer;

function GetPreferedLanguageString: WideString;

function GetPreferedLanguageID: Integer;

function GetUserCountryID: Integer;

function GetNumSources: Smallint;

function GetSourceTransport(nSourceNum: Smallint): WideString;

function GetWantErrors: WordBool;

procedure SetWantErrors(bVal: WordBool);

function GetShuffle: WordBool;

procedure SetShuffle(bVal: WordBool);

function GetVersionInfo: WideString;

function GetLastMessage: WideString;

function GetLastErrorSeverity: Integer;

function GetLastErrorRMACode: Integer;

function GetLastErrorUserCode: Integer;

function GetLastErrorUserString: WideString;

function GetLastErrorMoreInfoURL: WideString;

procedure SetPreFetch(bVal: WordBool);

function GetPreFetch: WordBool;

procedure SetRegion(const pVal: WideString);

function GetRegion: WideString;

function GetIsPlus: WordBool;

function GetConsoleEvents: WordBool;

procedure SetConsoleEvents(bVal: WordBool);

function GetDRMInfo(const pVal: WideString): WideString;

property ControlInterface: IRealAudio read GetControlInterface;

property DefaultInterface: IRealAudio read GetControlInterface;

全屏：

1、real player全屏的方法一

realplayer播放4(带视频)

<SCRIPT language=javascript>

Real='document.RAOCX.'

function DoPlay()

{eval(Real+'DoPlay()');}

function DoStop()

{eval(Real+'DoStop()');}

function DoPlayPause()

{eval(Real+'DoPlayPause()');}

function SetFullScreen()

{

eval(Real+'SetFullScreen()');

fullscreen=true;

DoPlayPause();

DoPlay();

}

function GetFullScreen()

{

if(eval(Real+'GetFullScreen()'))

return true;

else

return false;

}

</SCRIPT>

<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=376 height=248>

<PARAM NAME=SRC VALUE="../upload/<%=rsp("path")%>">

<PARAM NAME=CONSOLE VALUE=Clip1>

<PARAM NAME=CONTROLS VALUE=imagewindow>

<PARAM NAME=AUTOSTART VALUE=true></OBJECT><br/>

<OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=24 id=video2 width=376>

<PARAM NAME=SRC VALUE="../upload/<%=rsp("path")%>">

<PARAM NAME=AUTOSTART VALUE=-1>

<PARAM NAME=CONTROLS VALUE=controlpanel>

<PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>

<a href="#" title="全屏幕欣赏，按ESC键还原。" style="CURSOR: hand" onclick=SetFullScreen()>□全屏播放□</a>

2、real player全屏的方法二

<html>

<head>

<title>在线播放</title>

<SCRIPT>

<!--

function bookmarkit(){window.external.addFavorite('http://lipingtao.jblog.cn/','魔幻天空')}

//-->

</SCRIPT>

</head>

<body marginwidth="0" leftmargin="0" topmargin="0" bgcolor="#000000" scroll="no" oncontextmenu="window.event.returnValue=false" ondragstart="window.event.returnValue=false" onselectstart="event.returnValue=false">

<script language="JAVASCRIPT">

<!-- Begin

var ap_name = navigator.appName;

var ap_vinfo = navigator.appVersion;

var ap_ver = parseFloat(ap_vinfo.substring(0,ap_vinfo.indexOf('(')));

var time_start = new Date();

var clock_start = time_start.getTime();

var dl_ok=false;

function init ()

{

if(ap_name=="Netscape" && ap_ver>=3.0)

dl_ok=true;

return true;

}

function get_time_spent ()

{

var time_now = new Date();

return((time_now.getTime() - clock_start)/1000);

}

function show_secs ()

{

var i_total_secs = Math.round(get_time_spent());

var i_secs_spent = i_total_secs % 60;

var i_mins_spent = Math.round((i_total_secs-30)/60);

var s_secs_spent = "" + ((i_secs_spent>9) ? i_secs_spent : "0" + i_secs_spent);

var s_mins_spent = "" + ((i_mins_spent>9) ? i_mins_spent : "0" + i_mins_spent);

document.fm0.time_spent.value = s_mins_spent + ":" + s_secs_spent;

window.setTimeout('show_secs()',1000);

}

init();

window.setTimeout('show_secs()',1);

// End -->

</script>

<center>

<p></p>

</center>

<div align="center">

<center>

<table border="0" cellspacing="0" width="337" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">

<tr>

<td width="100%">

<table border="0" cellspacing="0" style="border-collapse: collapse" width="108%" id="AutoNumber1" bgcolor="#F0F0F0" cellpadding="0">

<tr>

<td width="55%" height="1" bgcolor="#E0E0E0">

<p align="left"> <font size="2">谢谢你的访问！！！！！</font></td>

<form name="fm0" onSubmit="0">

<td width="7%" height="1" bgcolor="#E0E0E0">

<input type="text" name="time_spent" size="5" onFocus="this.blur()" style="border-style: groove; border-width: 1; background-color: #EEEEEE"></td>

</form>

<script language="JavaScript">

<!--

var Real;

Real='document.RP1.';

var Mute=false;

var CanSetPos=true;

var SetPosStart=false;

var SetVolStart=false;

var loop, timer, initialised;

var speed=50;

var oldwidth=566,oldheight=502;

function DoFull()

{//全屏播放

eval(Real+'SetFullScreen()');

}

NetShowServer = "" ;

var mPath = NetShowServer + "";

function LoadVideo(c1,c2) {

if (c1=="") return;

video_filename = c1;

MusicPlayer.Cancel()

timer=window.setTimeout("video_play()",2000)

}

function video_play(fn) {

var mName = mPath + video_filename;

MusicPlayer.Open(mName)

}

//-->

</script>

<td width="38%" height="1" bgcolor="#E0E0E0">

<input type="button" onMouseDown="DoFull()" value="全屏显示" style="border-style: ridge; border-width: 1">

<span lang="en-us"><font size="2">ESC</font></span><font size="2">返回</font></td>

</tr>

</table>

</td>

</tr>

<tr>

<td width="100%"> <p align="center">

<object id="RP1" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width=468 height=358>

<param name="_ExtentX" value="4445">

<param name="_ExtentY" value="3334">

<param name="AUTOSTART" value="-1">

<param name="SHUFFLE" value="0">

<param name="PREFETCH" value="0">

<param name="NOLABELS" value="-1">

<param name="SRC" value="rtsp://61.177.95.61:554/ent/2005/promise_1104.rm">

<param name="CONTROLS" value="Imagewindow,StatusBar,ControlPanel">

<param name="CONSOLE" value="clip1">

<param name="LOOP" value="0">

<param name="NUMLOOP" value="0">

<param name="CENTER" value="0">

<param name="MAINTAINASPECT" value="0">

<param name="BACKGROUNDCOLOR" value="#000000"><embed src="rtsp://61.177.95.61:554/ent/2005/promise_1104.rm" type="audio/x-pn-realaudio-plugin">

</object>

</td>

</tr>

</table>

</center>

</div>

</body>

</html>

3、real player全屏的方法三

如果是realone要全屏只要HEAD加入以下这段JS代码

<script>

function setFull()

{

if(!document.playfull.CanStop())

{

alert("影片未开始播放无法切换为全屏模式")

}

else

{

alert("点击确定按钮后进入全屏播放模式,在全屏播放模式中按 Esc 键退出全屏模式")

document.playfull.SetFullScreen()

}

}

//-->

</script>

在body入面

<a href="#" onclick="setFull();">全屏</a>

二 : 网页视频播放器程序代码（通用代码）

***********************************************

'函数名：SelPlay

'作用：在网页中播放视频

'参数：strUrl－－－－视频地址

strWidth－－－显示视频宽

strHeight－－－显示视频高

'***********************************************

SubSelPlay(strUrl,strWidth,StrHeight)

DimExts,isExt

IfstrUrl<>""Then

isExt=LCase(Mid(strUrl,InStrRev(strUrl,".")+1))

Else

isExt=""

EndIf

Exts="avi,wmv,asf,mov,rm,ra,ram"

IfInstr(Exts,isExt)=0Then

Response.write"非法视频文件"

Else

SelectCaseisExt

Case"avi","wmv","asf","mov"

Response.write"<EMBEDid=MediaPlayersrc="&strUrl&"width="&strWidth&"height="&strHeight&"loop=""false""autostart=""true""></EMBED>"

Case"mov","rm","ra","ram"

Response.Write"<OBJECTheight="&strHeight&"width="&strWidth&"classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"

Response.Write"<PARAMNAME=""_ExtentX""VALUE=""12700"">"

Response.Write"<PARAMNAME=""_ExtentY""VALUE=""9525"">"

Response.Write"<PARAMNAME=""AUTOSTART""VALUE=""-1"">"

Response.Write"<PARAMNAME=""SHUFFLE""VALUE=""0"">"

Response.Write"<PARAMNAME=""PREFETCH""VALUE=""0"">"

Response.Write"<PARAMNAME=""NOLABELS""VALUE=""0"">"

Response.Write"<PARAMNAME=""SRC""VALUE="""&strUrl&""">"

Response.Write"<PARAMNAME=""CONTROLS""VALUE=""ImageWindow"">"

Response.Write"<PARAMNAME=""CONSOLE""VALUE=""Clip"">"

Response.Write"<PARAMNAME=""LOOP""VALUE=""0"">"

Response.Write"<PARAMNAME=""NUMLOOP""VALUE=""0"">"

Response.Write"<PARAMNAME=""CENTER""VALUE=""0"">"

Response.Write"<PARAMNAME=""MAINTAINASPECT""VALUE=""0"">"

Response.Write"<PARAMNAME=""BACKGROUNDCOLOR""VALUE=""#000000"">"

Response.Write"</OBJECT>"

Response.Write"<BR>"

Response.Write"<OBJECTheight=32width="&strWidth&"classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"

Response.Write"<PARAMNAME=""_ExtentX""VALUE=""12700"">"

Response.Write"<PARAMNAME=""_ExtentY""VALUE=""847"">"

Response.Write"<PARAMNAME=""AUTOSTART""VALUE=""0"">"

Response.Write"<PARAMNAME=""SHUFFLE""VALUE=""0"">"

Response.Write"<PARAMNAME=""PREFETCH""VALUE=""0"">"

Response.Write"<PARAMNAME=""NOLABELS""VALUE=""0"">"

Response.Write"<PARAMNAME=""CONTROLS""VALUE=""ControlPanel,StatusBar"">"

Response.Write"<PARAMNAME=""CONSOLE""VALUE=""Clip"">"

Response.Write"<PARAMNAME=""LOOP""VALUE=""0"">"

Response.Write"<PARAMNAME=""NUMLOOP""VALUE=""0"">"

Response.Write"<PARAMNAME=""CENTER""VALUE=""0"">"

Response.Write"<PARAMNAME=""MAINTAINASPECT""VALUE=""0"">"

Response.Write"<PARAMNAME=""BACKG(www.61k.com]ROUNDCOLOR""VALUE=""#000000"">"

Response.Write"</OBJECT>"

EndSelect

EndIf

EndSub

调用程序代码

CallSelPlay(DvUrl,280,220)

三 : 网页视频播放器程序代码通用代码

在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手...

思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用..

现发布源代码如下：

以下为引用的内容： Sub SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt If strUrl <> "" Then    isExt = LCase(Mid(strUrl,InStrRev(strUrl, ".")+1)) Else    isExt = "" End If Exts = "avi,wmv,asf,mov,rm,ra,ram" If Instr(Exts,isExt)=0 Then  Response.write "非法视频文件" Else  Select Case isExt   Case "avi","wmv","asf","mov"    Response.write "<EMBED id=MediaPlayer src="&strUrl&" width="&strWidth&" height="&strHeight&" loop=""false"" autostart=""true""></EMBED>"   Case "mov","rm","ra","ram"    Response.Write "<OBJECT height="&strHeight&" width="&strWidth&" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"    Response.Write "<PARAM NAME=""_ExtentX"" VALUE=""12700"">"    Response.Write "<PARAM NAME=""_ExtentY"" VALUE=""9525"">"    Response.Write "<PARAM NAME=""AUTOSTART"" VALUE=""-1"">"    Response.Write "<PARAM NAME=""SHUFFLE"" VALUE=""0"">"    Response.Write "<PARAM NAME=""PREFETCH"" VALUE=""0"">"    Response.Write "<PARAM NAME=""NOLABELS"" VALUE=""0"">"    Response.Write "<PARAM NAME=""SRC"" VALUE="""&strUrl&""">"    Response.Write "<PARAM NAME=""CONTROLS"" VALUE=""ImageWindow"">"    Response.Write "<PARAM NAME=""CONSOLE"" VALUE=""Clip"">"    Response.Write "<PARAM NAME=""LOOP"" VALUE=""0"">"    Response.Write "<PARAM NAME=""NUMLOOP"" VALUE=""0"">"    Response.Write "<PARAM NAME=""CENTER"" VALUE=""0"">"    Response.Write "<PARAM NAME=""MAINTAINASPECT"" VALUE=""0"">"    Response.Write "<PARAM NAME=""BACKGROUNDCOLOR"" VALUE=""#000000"">"    Response.Write "</OBJECT>"    Response.Write "<BR>"    Response.Write "<OBJECT height=32 width="&strWidth&" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"    Response.Write "<PARAM NAME=""_ExtentX"" VALUE=""12700"">"    Response.Write "<PARAM NAME=""_ExtentY"" VALUE=""847"">"    Response.Write "<PARAM NAME=""AUTOSTART"" VALUE=""0"">"    Response.Write "<PARAM NAME=""SHUFFLE"" VALUE=""0"">"    Response.Write "<PARAM NAME=""PREFETCH"" VALUE=""0"">"    Response.Write "<PARAM NAME=""NOLABELS"" VALUE=""0"">"    Response.Write "<PARAM NAME=""CONTROLS"" VALUE=""ControlPanel,StatusBar"">"    Response.Write "<PARAM NAME=""CONSOLE"" VALUE=""Clip"">"    Response.Write "<PARAM NAME=""LOOP"" VALUE=""0"">"    Response.Write "<PARAM NAME=""NUMLOOP"" VALUE=""0"">"    Response.Write "<PARAM NAME=""CENTER"" VALUE=""0"">"    Response.Write "<PARAM NAME=""MAINTAINASPECT"" VALUE=""0"">"    Response.Write "<PARAM NAME=""BACKGROUNDCOLOR"" VALUE=""#000000"">"    Response.Write "</OBJECT>"  End Select End If End Sub

调用方式:

以下为引用的内容： Call SelPlay(DvUrl,280,220)

本文收集整理自互联网,若您是原文作者,请来信更改作者及出处Post#61k.com（把#改为@） 本文标题：网页播放器代码-网页RM播放器代码
本文地址： http://www.61k.com/1168590.html