本论文是一篇关于歌词相关论文答辩开场白,关于利用Delphi开发LRC歌词编辑器相关函授毕业论文范文。免费优秀的关于歌词及参考文献及时间方面论文范文资料,适合歌词论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
摘 要：论述了如何利用Delphi开发LRC歌词编辑器,包括LRC歌词的编辑、显示以及保存.
关 键 词：LRC；Mp3；歌词编辑
中图分类号：TP311文献标识码：A文章编号：1009-3044(2007)18-31663-04
UsingDelphidevelopmentLRClyricsEditor
WUChao-bin
(FujianCollegeofWaterConservancyElectircPower,Yong'an366000,China)
Abstract:DiscusseshowtouseDelphidevelopmentLRClyricseditor,includinglyricsoftheLRCediting,displayandpreservation.
Keywords:LRC,MP3,lyricsediting
1引言
LRC歌词是一种包含着“[min:sec:msec]”形式的时间标签的、基于纯文本的歌词专用格式.因为是基于纯文本的格式,所以在电脑上能够方便的编辑.其中的时间标签“[min:sec:msec]”就是用于说明本句歌词在什么时候需要显示（min是分钟值、sec是秒钟值,msec是毫秒值）.例如,以下是阿杜《他一定很爱你》的LRC歌词
[ti:他一定很爱你]
[ar:阿杜]
[al:]
[offset:-100]
[00:03.31]他一定很爱你
[00:34.24]我躲在车里手握著香槟
[00:38.42]想要给你生日的惊喜
[00:43.44]你越走越近有两个声音
[00:47.62]我措手不及只得楞在那里
[00:56.81][01:53.65]我应该在车底不应该在车里
[01:01.83][01:57.83]看到你们有多甜蜜
[01:06.01][02:02.69]这样一来我也比较容易死心
这篇论文来源:http://www.sxsky.net/benkelunwen/060384962.html
[01:11.02][02:07.86]给我离开的勇气
[01:16.04][02:14.55][02:49.66]他一定很爱你别把我比下去
[01:22.72][02:19.57][02:54.68]分手也只用了一分钟而已
[01:27.74][02:23.75][02:58.86]他一定很爱你比我会讨好你
[01:32.76][02:28.76][03:03.87]不会像我这样孩子气为难着你
其中：offset表示时间整体偏移量,正值表示时间往后偏移,负值表示时间往前偏移.
2程序实现
2.1程序界面
图1
2.2歌词编辑方法
首先打开MP3文件,再打开对应的歌词文件（TXT或LRC格式）.单击“播放”按钮,开始播放歌曲,播放歌曲时,在相应的时间标签上单击,即可将当前时间添加至时间标签.歌曲播放完毕后,此时单击时间标签,不会将当前时间添加至时间标签,这样可以修改有错误的时间标签.
2.3MP3文件的播放以及LRC歌词的显示
为了便于歌词的编辑以及观察编辑的歌词的时间标签是否有误,程序要能够播放MP3文件并能显示LRC歌词.播放MP3文件,这里使用ActiveX控件中的WindowsMediaPlayer.安装方法为：单击“Component”菜单下的“ImportActiveXControl等”,在弹出的对话框中选择“WindowsMediaPlayer”,将类名改为“TMediaPlay”然后单击“install”按钮.
2.3.1以下是播放歌曲时将LRC歌词读到数组mgc中的代码.数组mgc中,mgc[i,1],mgc[i,2],mgc[i,3],mgc[i,4]用来存放时间标签,mgc[i,5]用来存放对应的歌词.
procedureTForm1.PlaySpeedButtonClick(Sender:TObject),
varfname,s,s1:string,
F:textFile,
min,sec,msec,i,j,l:integer,
begin
iffileexists(bobox1.Text)then
begin
try
Form1.MediaPlay1.FileName:等于ComboBox1.Text,
Form1.MediaPlay1.Play,
l:等于round(Form1.MediaPlay1.Duration*1000),
Trackbar1.Max:等于ldiv1000,
//显示歌曲总时间
min:等于ldiv1000div60,
sec:等于ldiv1000-min*60,
Form1.Label2.Caption:等于format('%2u:%2u',[min,sec]),
Timer1.Enabled:等于true,
canclick:等于true,
except
begin
timer1.Enabled:等于false,
canclick:等于false,
messagedlg('不支持的文件格式或其他程序占用音频设备！',mtError,[mbYes],0),
end,
end,
end
else
begin
showmessage('文件不存在！'),
timer1.Enabled:等于false,
end,
fname:等于changeFileExt(ComboBox1.text,'.lrc'),
iffileexists(fname)then
begin
toolbar2.Visible:等于true,
AssignFile(F,fname),
Reset(F),
//读歌词
mg:等于0,
moffset:等于0,
fori:等于1to100do
forj:等于1to5do
mgc[i,j]:等于'',
whilenoteof(F)do
begin
readln(F,s),
s:等于trim(s),
l:等于length(s),
s1:等于copy(s,2,6),moffset:等于0,
if(l>10)and(s1等于'offset')thenmoffset:等于StrToInt(copy(s,9,l-9)),
if(l>10)and(s[3]>等于'0')and(s[3]<='9')and(s[1]='[')and(s[10]=']')and(s[11]<>'[')then
本文为全文原貌未安装PDF浏览器用户请先下载安装原版全文begin
mg:等于mg+1,
msec:等于StrToInt(copy(s,2,2))*60*1000+StrToInt(copy(s,5,2))*1000+
StrToInt(copy(s,8,2))*10,
mgc[mg,1]:等于IntToStr(msec),
mgc[mg,5]:等于copy(s,11,l),
end,
if(l>20)and(s[1]等于'[')and(s[10]等于']')and
(s[11]等于'[')and(s[20]等于']')and(s[21]<>'[')then
begin
mg:等于mg+1,
msec:等于StrToInt(copy(s,2,2))*60*1000+StrToInt(copy(s,5,2))*1000+
StrToInt(copy(s,8,2))*10,
mgc[mg,1]:等于IntToStr(msec),
msec:等于StrToInt(copy(s,12,2))*60*1000+StrToInt(copy(s,15,2))*1000+
StrToInt(copy(s,18,2))*10,
mgc[mg,2]:等于IntToStr(msec),
mgc[mg,5]:等于copy(s,21,l),
end,
if(l>30)and(s[1]等于'[')and(s[10]等于']')and
(s[11]等于'[')and(s[20]等于']')and
(s[21]等于'[')and(s[30]等于']')and
(s[31]<>'[')then
begin
mg:等于mg+1,
msec:等于StrToInt(copy(s,2,2))*60*1000+StrToInt(copy(s,5,2))*1000+
StrToInt(copy(s,8,2))*10,
mgc[mg,1]:等于IntToStr(msec),
msec:等于StrToInt(copy(s,12,2))*60*1000+StrToInt(copy(s,15,2))*1000+
StrT
关于歌词相关论文范文素材,与利用Delphi开发LRC歌词编辑器相关论文答辩开场白参考文献资料：
13888888888
点击咨询 