蓝雨 发表于 2008-6-4 10:17:21

FLV播放器

由于8.2的编辑器跟原来不同,所以上述帖子中只需要改动部分关于编辑器的内容即可(dv_edit/toolbar.js)。




一、新增文件列表:
inc/FlvPlayer.swf
二、文件修改:
①inc/Dv_ubbcode.asp
找到

If xml.loadxml(\"<div>\" & replace(s,\"&\",\"&\") &\"</div>\") Then
在上面一行添加

\'--------------------------------------------------
\'add FlvPlayer by xintiao
If InStr(Ubblists,\",43,\")>0 Or sType=1 Then
s=Dv_UbbCode_iS2(s,\"flv\",_
\"<object type=\"\"application/x-shockwave-flash\"\" classid=\"\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\"\" data=\"\"inc/FlvPlayer.swf? file=$3&showfsbutton=false&autostart=true\"\" width=\"\"$1\"\" height=\"\"$2\"\">\"&_
\"<param name=\"\"movie\"\" value=\"\"inc/FlvPlayer.swf?file=$3&showfsbutton=true&autostart=true\"\" />\"&_
\"<param name=\"\"wmode\"\" value=\"\"window\"\" />\"&_
\"<param name=\"\"quality\"\" value=\"\"high\"\" />\"&_
\"<param name=\"\"allowfullscreen\"\" value=\"\"true\"\" />\"&_
\"</object>\",_
\"<object type=\"\"application/x-shockwave-flash\"\" classid=\"\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\"\" data=\"\"inc/FlvPlayer.swf? file=$3&showfsbutton=false&autostart=false\"\" width=\"\"$1\"\" height=\"\"$2\"\">\"&_
\"<param name=\"\"movie\"\" value=\"\"inc/FlvPlayer.swf?file=$3&showfsbutton=true&autostart=false\"\" />\"&_
\"<param name=\"\"wmode\"\" value=\"\"window\"\" />\"&_
\"<param name=\"\"quality\"\" value=\"\"high\"\" />\"&_
\"<param name=\"\"allowfullscreen\"\" value=\"\"true\"\" />\"&_
\"</object>\"& replace(Mtinfo,\"$4\",\"$3\"),_
PostUserGroup,Cint(Board_Setting(9) * mt),\"=*(*),*(*)\")
\'Dv8.0 FlvPlaayer自定义播放模式;
s=Dv_UbbCode_iS2(s,\"flv\",_
\"<object type=\"\"application/x-shockwave-flash\"\" classid=\"\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\"\" data=\"\"inc/FlvPlayer.swf? file=$4&showfsbutton=false&autostart=$3\"\" width=\"\"$1\"\" height=\"\"$2\"\">\"&_
\"<param name=\"\"movie\"\" value=\"\"inc/FlvPlayer.swf?file=$4&showfsbutton=true&autostart=$3\"\" />\"&_
\"<param name=\"\"wmode\"\" value=\"\"window\"\" />\"&_
\"<param name=\"\"quality\"\" value=\"\"high\"\" />\"&_
\"<param name=\"\"allowfullscreen\"\" value=\"\"true\"\" />\"&_
\"</object>\",_
\"<object type=\"\"application/x-shockwave-flash\"\" classid=\"\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\"\" data=\"\"inc/FlvPlayer.swf? file=$4&showfsbutton=false&autostart=false\"\" width=\"\"$1\"\" height=\"\"$2\"\">\"&_
\"<param name=\"\"movie\"\" value=\"\"inc/FlvPlayer.swf?file=$4&showfsbutton=true&autostart=false\"\" />\"&_
\"<param name=\"\"wmode\"\" value=\"\"window\"\" />\"&_
\"<param name=\"\"quality\"\" value=\"\"high\"\" />\"&_
\"<param name=\"\"allowfullscreen\"\" value=\"\"true\"\" />\"&_
\"</object>\"&_
Mtinfo,PostUserGroup,Cint(Board_Setting(9) * mt),\"=*(*),*(*),*(*)\")
End If
\'--------------------------------------------------

②inc/Ubblist.asp
找到


改为

Dim Dv_ubb(55),i
找到


下面一行添加

Dv_ubb(55)=\"\"
找到


改为

For i=14 to 55

③dv_edit/toolbar.js
找到

case \'swf\':ubb=\'flash\';au=\'\';break;

上面一行添加

case\'flv\':ubb=\'flv\';break;

找到
<input id=\"\'+this.p.x.w+\'_media_autostart\" type=\"checkbox\" class=\"dveditborder\" checked=\"checked\" />自动播放

后面添加

<select id=\"\'+this.p.x.w+\'_media_type\" class=\"dveditborder\" /><option value=\"\">类型</option><option value=\"flv\">flv</option><option value=\"swf\">flash</option><option value=\"mp\">mp3</option><option value=\"mp\">wmv</option><option value=\"mp\">avi</option><option value=\"mp\">asf</option><option value=\"mp\">mov</option><option value=\"rm\">rm</option><option value=\"rm\">rmvb</option><option value=\"rm\">ram</option><option value=\"rm\">ra</option></select>

④dv_plus/indivgroup/js/dv_form.js
找到

case \'RM\':

上面一行添加

case \'FLV\':
txt1 = \"Flv影音文件宽度,高度,播放参数\\r(播放参数:false=手动播放,true=自动播放)\";
val1 = \"500,350,true\";
txt2 = \"Flv 影音文件的地址\";
val2 = \"http://\"
break;


有兴趣的可以试验一下,我本机测试是成功了。

btw:服务器无法播放下载flv(2003+iis6)
Internet 信息服务(IIS管理器)-网站右击-属性-HTTP头-MIME类型-新建-在“扩展名”框内输入“.flv”,“MIME类型”框中输入“flv-application/octet-stream”-确定即可。


原来没注意,post那个步骤没用了……编辑器变化了,所以直接改toolbar那个就行了

再改:查到原来的安装包,有些地方不一样,于是重新修改了一下toolbar里面的内容
页: [1]
查看完整版本: FLV播放器