标签归档:采集

[转载][分享]歌词同步显示功能

摘要:相信每个音乐Fans都对“千千静听”这个播放器非常熟悉了,她的歌词自动下载与同步显示功能,算是同类播放器中的靓点。今天,我们将浅析“千千静听”同步显示歌词的编程原理和编程模拟,并实现音频文件的自动播放。
  
【编程原理】
   
    要实现歌词与音频同步显示并让音频文件自动播放,我们首先要从网上下载音频文件(本文以MP3为例)和歌词文件(LRC格式),然后用VB制作一个简易的音频播放器,实现音频与歌词的同步播放,最后用WinRar或VB-PowerWrap工具实现音频文件与歌词的封装并自动播放。
  
【编程分析】
   
一、歌词同步原理
   
    千千静听的歌词文件扩展名为LRC,歌词是以句为单位进行显示,歌词文件中包含了歌词内容及歌词显示时的音频播放时间,歌词在后,时间在前,时间放在一对中括号内。在播放的时候,实时获取播放位置对应的播放时间,并从歌词文件中查找当前时刻对应的歌词并显示出来,这就是千千静听播放器的同步显示原理。在一首歌中,重复的歌词将对应两个或多个音频播放时间,如图1所示。歌词文件格式从本质上讲是文本格式,因此,我们可以用记事本对歌词进行编辑,如果从网上下载的歌词文件在播放时不能与音频同步,那么我们可以修改其中的时间,在歌曲的前奏音乐时间内,可以加入一些信息,如:专辑名称、词曲作者、歌手名称等等。  
  继续阅读

[转载][分享]一个asp采集程序类

网上找到的,用到近期开发的一个网站里面了。

‘==================================================
‘函数名:GetHttpPage
‘作 用:获取网页源码
‘参 数:HttpUrl ——网页地址
‘==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl="$False$" Then
GetHttpPage="$False$"
Exit Function
End If
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage="$False$"
Exit function
End if
GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function 继续阅读