利用Helix Server的SMIL支持在ASP中生成媒体流的播放列表
2004-08-26 15:22
288 查看
开发视频点播网站时或许会需要连续播放一系列流媒体文件,我的经验是可以使用SMIL语言动态生成需要的播放列表文件。以下将对这种方法作出说明。我感觉这并不是一个很好的方法,但可作为一种思路供大家参考。
首先我们应该了解一下SMIL语言的结构。SMIL是专用于流媒体服务器的一种语言,它是符合XML语言规范的。以下是一个典型的用于Helix Server的SMIL文件:
113.smi
--------------
<smil>
<head>
<meta name="title" content="连续播放"/>
<meta name="author" content="C.C在线视听娱乐网 - C.C.M.C."/>
<meta name="copyright" content="网站所有资源版权归其原作者所有,请于下载试用后24小时内删除"/>
</head>
<body>
<par>
<ref src="rtsp://192.168.0.100/D/200485627_24.mp3" title="Whos Who"/>
</par>
<par>
<ref src="rtsp://192.168.0.100/D/200485624_22.mp3" title="Two-Lane Blacktop"/>
</par>
<par>
<ref src="rtsp://192.168.0.100/D/200485618_20.mp3" title="The Wonders of You"/>
</par>
</body>
</smil>
<head>内的title是指显示在RealPlayer播放机播放列表最上部的标题。author是作者,copyright是版本信息,这些信息可以在点击RealPlayer跑马灯字幕的时候看到。<par>内的<ref>中,scr指的是流媒体文件的位置,title是指此媒体显示在播放列表中的名称。每个<par>定义一个文件,这样就实现媒体流的连续播放。使用这种办法还能很方便的向网站中的媒体文件添加广告或自定义片头片尾。知道文件结构剩下的就好办了。不过注意生成smi文件之前先对字符进行过滤,因为XML中有些字符是不能随意出现的。
代码例:
其中有几个自定义函数不多作介绍(GetExtName为获取文件扩展名)
xRMExtNames="rm,ram,rmvb,mp3,mpeg,mpa"
rmPlayList="smil/a.smi"
Sub WritePlayListRM
dim strTmpSrc,sql
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(server.MapPath(rmPlayList) , True)
tf.WriteLine("<smil>")
tf.WriteLine("<head>")
tf.WriteLine("<meta name=" & chr(34) & "title" & chr(34) & " content=" & chr(34) & XMLFilter(strQuery) & chr(34) & "/>")
tf.WriteLine("<meta name=" & chr(34) & "author" & chr(34) & " content=" & chr(34) & XMLFilter(xSiteName) & chr(34) & "/>")
tf.WriteLine("<meta name=" & chr(34) & "copyright" & chr(34) & " content=" & chr(34) & XMLFilter(xCopyRight) & chr(34) & "/>")
tf.WriteLine("</head>")
tf.WriteLine("<body>")
set rsServer=Server.CreateObject("ADODB.Recordset")
do while not rs.eof
if instr(xRMExtNames,lcase(GetExtName(rs("fileName"))))>0 then
sql="select * from site_servers where UID=" & rs("serverID")
rsServer.open sql,conn,1,1
strTmpSrc=rsServer("RMServer") & rs("fileName")
tf.WriteLine("<par>")
tf.WriteLine("<ref src=" & chr(34) & strTmpSrc & chr(34) & " title=" & chr(34) & XMLFilter(rs("title")) & chr(34) & "/>")
tf.WriteLine("</par>")
rsServer.close
rmNum=rmNum+1
end if
rs.movenext
loop
rs.movefirst
tf.WriteLine("</body>")
tf.WriteLine("</smil>")
tf.Close
set tr=nothing
set rsServer=nothing
End Sub
Function XMLFilter(strInput)
XMLFilter=replace(strInput,"<","(")
XMLFilter=replace(XMLFilter,">",")")
XMLFilter=replace(XMLFilter,chr(34),"")
XMLFilter=replace(XMLFilter,"'","")
End Function
这就是我的方法,欢迎大家批评指正。
首先我们应该了解一下SMIL语言的结构。SMIL是专用于流媒体服务器的一种语言,它是符合XML语言规范的。以下是一个典型的用于Helix Server的SMIL文件:
113.smi
--------------
<smil>
<head>
<meta name="title" content="连续播放"/>
<meta name="author" content="C.C在线视听娱乐网 - C.C.M.C."/>
<meta name="copyright" content="网站所有资源版权归其原作者所有,请于下载试用后24小时内删除"/>
</head>
<body>
<par>
<ref src="rtsp://192.168.0.100/D/200485627_24.mp3" title="Whos Who"/>
</par>
<par>
<ref src="rtsp://192.168.0.100/D/200485624_22.mp3" title="Two-Lane Blacktop"/>
</par>
<par>
<ref src="rtsp://192.168.0.100/D/200485618_20.mp3" title="The Wonders of You"/>
</par>
</body>
</smil>
<head>内的title是指显示在RealPlayer播放机播放列表最上部的标题。author是作者,copyright是版本信息,这些信息可以在点击RealPlayer跑马灯字幕的时候看到。<par>内的<ref>中,scr指的是流媒体文件的位置,title是指此媒体显示在播放列表中的名称。每个<par>定义一个文件,这样就实现媒体流的连续播放。使用这种办法还能很方便的向网站中的媒体文件添加广告或自定义片头片尾。知道文件结构剩下的就好办了。不过注意生成smi文件之前先对字符进行过滤,因为XML中有些字符是不能随意出现的。
代码例:
其中有几个自定义函数不多作介绍(GetExtName为获取文件扩展名)
xRMExtNames="rm,ram,rmvb,mp3,mpeg,mpa"
rmPlayList="smil/a.smi"
Sub WritePlayListRM
dim strTmpSrc,sql
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(server.MapPath(rmPlayList) , True)
tf.WriteLine("<smil>")
tf.WriteLine("<head>")
tf.WriteLine("<meta name=" & chr(34) & "title" & chr(34) & " content=" & chr(34) & XMLFilter(strQuery) & chr(34) & "/>")
tf.WriteLine("<meta name=" & chr(34) & "author" & chr(34) & " content=" & chr(34) & XMLFilter(xSiteName) & chr(34) & "/>")
tf.WriteLine("<meta name=" & chr(34) & "copyright" & chr(34) & " content=" & chr(34) & XMLFilter(xCopyRight) & chr(34) & "/>")
tf.WriteLine("</head>")
tf.WriteLine("<body>")
set rsServer=Server.CreateObject("ADODB.Recordset")
do while not rs.eof
if instr(xRMExtNames,lcase(GetExtName(rs("fileName"))))>0 then
sql="select * from site_servers where UID=" & rs("serverID")
rsServer.open sql,conn,1,1
strTmpSrc=rsServer("RMServer") & rs("fileName")
tf.WriteLine("<par>")
tf.WriteLine("<ref src=" & chr(34) & strTmpSrc & chr(34) & " title=" & chr(34) & XMLFilter(rs("title")) & chr(34) & "/>")
tf.WriteLine("</par>")
rsServer.close
rmNum=rmNum+1
end if
rs.movenext
loop
rs.movefirst
tf.WriteLine("</body>")
tf.WriteLine("</smil>")
tf.Close
set tr=nothing
set rsServer=nothing
End Sub
Function XMLFilter(strInput)
XMLFilter=replace(strInput,"<","(")
XMLFilter=replace(XMLFilter,">",")")
XMLFilter=replace(XMLFilter,chr(34),"")
XMLFilter=replace(XMLFilter,"'","")
End Function
这就是我的方法,欢迎大家批评指正。
相关文章推荐
- 利用Helix Server的SMIL支持在ASP中生成媒体流的播放列表
- ASP利用数据表生成多级联动下拉列表框
- 在ASP.NET网站中实现带列表(其由xml文件控制生成)的视频播放
- 基于Python SimpleHTTPServer.py的修改脚本:HTTP文件服务器,修正中文目录列表,支持视频文件在线播放
- ASP.NET Web API 使用Swagger生成在线帮助测试文档,支持多个GET
- asp.net 服务器推送(Server Push) 支持 IE、火狐、谷歌等 仅供参考
- FC6 下更改设置使得totem支持播放多种媒体格式
- 在ASP.NET网站中实现带列表的视频播放
- 利用UrlRewrite,asp.net动态生成htm页面(补充说明2)
- asp生成html文章列表(带分页)的例子
- 在asp.net中无需服务器安装word,利用xml生成word文档
- asp.net(C#)利用QRCode生成二维码(续)-在二维码图片中心加Logo或图像
- [收藏]利用SQL Server Reporting Services 从应用程序生成用户友好的报表
- 利用doxygen生成说明文档(支持C、C++、Java、Objective-C和IDL语言,部分支持PHP、C#)
- [收藏]利用SQL Server Reporting Services 从应用程序生成用户友好的报表
- [收藏]利用SQL Server Reporting Services 从应用程序生成用户友好的报表
- ASP.NET技巧:利用模版生成html页
- asp.net(C#)利用QRCode生成二维码
- 转载:windiws server 2008R2 IIS7.5 设置win7 IIS7设置,文件夹权限配置,Authenticated Users,支持asp temp
- ASP.NET技巧:利用模版生成html页