2005 07 08
补丁:
直接输入[WMV][/WMV]则被默认为:[WMV=480,360,0][/WMV]
直接输入[RM][/RM]则被默认为:[RM=480,360,0][/RM]
插件名称:贴内支持多媒体在线播放{自定义大小/是否自动播放}{添加专用按扭}
适用版本:2.X /2.5F /SP1
作 者:oytktk
修改文件:include\discuzcode.php
修改模板:post_bbinsert.htm
安装需求:无
插件功能简介:
用户发贴时,若有音乐及视频部分,可以让其在贴子内以播放器的形式播放出来,
这个版本已经加入了:
发表音乐及视频时自定义播放器的大小
发表音乐及视频时及时选择是否在线播放
演示:
http://www.huasa.org/bbs/index.php
以前发布的一个版本没有自定义大小的功能,后来看到很多朋友在问,都没有相关的功能再发布出来,所以抽空弄了一个,请大家测试,有什么问题及时反馈给我,以便及时更正.
由于本人对JSP不熟,所以就用了VBS的代码完成了相关的功能.请体谅.
[P.S JS版在31楼于cuijun发布.]
以下是截图:
=================================
安装方法:
=================================
include\discuzcode.php
查找:
- "/\[img\]\s*([^\[]+?)\s*\[\/img\]/ies",
复制代码
注意:如果上面这后面没有逗号,请加上
下面加
- "/\[wmv\]\s*(.+?)\s*\[\/wmv\]/ies",
- "/\[rm\]\s*(.+?)\s*\[\/rm\]/ies",
- "/\[wmv=(\d+?)[x|\,](\d+?)[x|\,](\d+?)\]\s*(.+?)\s*\[\/wmv\]/ies",
- "/\[rm=(\d+?)[x|\,](\d+?)[x|\,](\d+?)\]\s*(.+?)\s*\[\/rm\]/ies",
复制代码
再查找
- "bbcodeurl('\\1', '<img src="%s" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt=\'Click here to open new window\';}" onmouseover="if(this.resized) this.style.cursor=\'hand\';" onclick="if(this.resized) {window.open(this.src);}">')",
复制代码
注意:如果上面这后面没有逗号,请加上
下面加入
- "bbcodeurl('\\1', '<object align="middle" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" class="OBJECT" id="MediaPlayer" width="480" height="360" ><PARAM NAME="AutoStart" VALUE="0" ><param name="ShowStatusBar" value="-1"><param name="Filename" value="%s"><embed type="application/x-oleobject" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" flename="mp" src="%s" width="480" height="360"></embed></object>')",
- "bbcodeurl('\\1', '<object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" id="Player" width="480" height="360" viewastext><param name="Autostart" value="0"><param name="CONTROLS" value="ImageWindow"><param name="CONSOLE" value="_master"><param name="LOOP" value="-1"><param name="CENTER" value="0"></object><br><object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=64 id=Player width=480 VIEWASTEXT><param name="_ExtentX" value="18256"><param name="_ExtentY" value="794"><param name="Autostart" value="0"><param name="LOOP" value="0"><param name="CENTER" value="0"><param name="BACKGROUNDCOLOR" value="#000000"><param name="SRC" value="\\1"></object>')",
- "bbcodeurl('\\4', '<br><object align="middle" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" class="OBJECT" id="MediaPlayer" width="\\1" height="\\2" ><PARAM NAME="AutoStart" VALUE="\\3" ><param name="ShowStatusBar" value="-1"><param name="Filename" value="%s"><embed type="application/x-oleobject" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" width="\\1" height="\\2"></embed></object>')",
- "bbcodeurl('\\4', '<br><br><object width="\\1" height="\\2" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" id="Player" viewastext><param name="Autostart" value="\\3"><param name="CONTROLS" value="ImageWindow"><param name="CONSOLE" value="_master"><param name="LOOP" value="-1"><param name="CENTER" value="0"></object><br><object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=64 id=Player width="\\1" VIEWASTEXT><param name="_ExtentX" value="18256"><param name="_ExtentY" value="794"><param name="Autostart" value="\\3"><param name="LOOP" value="-1"><param name="CENTER" value="0"><param name="SRC" value="%s"></object>')",
复制代码
post_bbinsert.htm
查找
- <a href="javascript:code()"><img src="{IMGDIR}/bb_code.gif" border="0" alt="{lang post_discuzcode_code}"></a>
复制代码
下面加:
- <img src="{IMGDIR}/vod.gif" style="Cursor:hand" onclick="autowmv()" border="0" alt="插入WMV类型的视频或音频文件"></a>
- <img src="{IMGDIR}/rm.gif" style="Cursor:hand" onclick="autorm()" border="0" alt="插入RM类型的视频或音频文件"></a>
复制代码
到最下面加入
- <script LANGUAGE="VBscript">
- Sub AutoWmv()
- Dim hs1,hs2,hs3,wz
- wz=inputbox("请输入WMV音乐的URL,可选类型包含:Mp3,Mid,Wmv,Wma……","正在插入在线视频或音乐","http://")
- hs1=inputbox("请输入播放器的宽度,推荐值为(200-800)。","正在插入在线视频或音乐","480")
- hs2=inputbox("请输入播放器的高度,推荐值为(200-800)。","正在插入在线视频或音乐","360")
- hs3=inputbox("请选择是否让播放器自动播放 (1-自动),(0-手动)。","正在插入在线视频或音乐","0")
- If wz="" or hs1="" or hs2="" or hs3="" then
- document.input.message.focus()
- Exit Sub
- End If
- document.input.message.value=document.input.message.value+"[Wmv="+hs1+","+hs2+","+hs3+"]"+wz+"[/Wmv]"
- document.input.message.focus()
- End Sub
-
- Sub AutoRm()
- Dim hs1,hs2,hs3,wz
- wz=inputbox("请输入RM音乐的URL,可选类型包含:RM,RMVB,RA,RAM……","正在插入在线视频或音乐","http://")
- hs1=inputbox("请输入播放器的宽度,推荐值为(200-800)。","正在插入在线视频或音乐","480")
- hs2=inputbox("请输入播放器的高度,推荐值为(200-800)。","正在插入在线视频或音乐","360")
- hs3=inputbox("请选择是否让播放器自动播放: (1-自动),(0-手动)。","正在插入在线视频或音乐","0")
- If wz="" or hs1="" or hs2="" or hs3="" then
- document.input.message.focus()
- Exit Sub
- End If
- document.input.message.value=document.input.message.value+"[Rm="+hs1+","+hs2+","+hs3+"]"+wz+"[/Rm]"
- document.input.message.focus()
- End Sub
- </script>
复制代码
下载附件中的两个图片,分别以RM.GIF/VOD.GIF命名并存入IMAGES/模板名/
[ 本帖最后由 oytktk 于 2007-8-24 08:38 编辑 ] |