利用Ｄｅｌｐｈｉ开发ＬＲＣ歌词编辑器_歌词编辑器

发布时间：2019-01-11 03:59:33　影响了：人

　　摘要：论述了如何利用Delphi开发LRC歌词编辑器，包括LRC歌词的编辑、显示以及保存。　　关键词：LRC；Mp3；歌词编辑　　中图分类号：TP311文献标识码：A 文章编号：1009-3044(2007)18-31663-04
　　Using Delphi development LRC lyrics Editor
　　WU Chao-bin
　　(Fujian College of Water Conservancy Electirc Power,Yong"an 366000,China)
　　Abstract: Discusses how to use Delphi development LRC lyrics editor, including lyrics of the LRC editing, display and preservation.
　　Key words:LRC; MP3; lyrics editing
　　
　　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]这样一来我也比较容易死心
　　[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.3 MP3文件的播放以及LRC歌词的显示
　　为了便于歌词的编辑以及观察编辑的歌词的时间标签是否有误，程序要能够播放MP3文件并能显示LRC歌词。播放MP3文件，这里使用ActiveX控件中的Windows Media Player。安装方法为：单击“Component”菜单下的“Import ActiveX Control …”，在弹出的对话框中选择“Windows Media Player”，将类名改为“TMediaPlay”然后单击“install”按钮。
　　2.3.1 以下是播放歌曲时将LRC歌词读到数组mgc中的代码。数组mgc中，mgc[i,1]，mgc[i,2]，mgc[i,3]，mgc[i,4]用来存放时间标签，mgc[i,5]用来存放对应的歌词。
　　procedure TForm1.PlaySpeedButtonClick(Sender: TObject);
　　varfname,s,s1:string;
　　 F:textFile;
　　 min,sec,msec,i,j,l:integer;
　　begin
　　if fileexists(combobox1.Text) then
　　begin
　　try
　　Form1.MediaPlay1.FileName:=ComboBox1.Text;
　　Form1.MediaPlay1.Play;
　　l:=round(Form1.MediaPlay1.Duration*1000);
　　Trackbar1.Max:=l div 1000;
　　//显示歌曲总时间
　　min:=ldiv 1000 div 60;
　　sec:=l div 1000 -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");
　　if fileexists(fname) then
　　begin
　　toolbar2.Visible:=true;
　　 AssignFile(F, fname);
　　 Reset(F);
　　//读歌词
　　mgcn:=0;
　　moffset:=0;
　　for i:=1 to 100 do
　　for j:=1 to 5 do
　　mgc[i,j]:="";
　　while not eof(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") then moffset:=StrToInt(copy(s,9,l-9));
　　if (l>10)and (s[3]>="0") and (s[3]"[") then
本文为全文原貌未安装PDF浏览器用户请先下载安装原版全文　　begin
　　mgcn:=mgcn+1;
　　msec:=StrToInt(copy(s,2,2))*60*1000+StrToInt(copy(s,5,2))*1000+
　　StrToInt(copy(s,8,2))*10;
　　mgc[mgcn,1]:=IntToStr(msec);
　　mgc[mgcn,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
　　mgcn:=mgcn+1;
　　msec:=StrToInt(copy(s,2,2))*60*1000+StrToInt(copy(s,5,2))*1000+
　　StrToInt(copy(s,8,2))*10;
　　mgc[mgcn,1]:=IntToStr(msec);
　　msec:=StrToInt(copy(s,12,2))*60*1000+StrToInt(copy(s,15,2))*1000+
　　StrToInt(copy(s,18,2))*10;
　　mgc[mgcn,2]:=IntToStr(msec);
　　mgc[mgcn,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
　　mgcn:=mgcn+1;
　　msec:=StrToInt(copy(s,2,2))*60*1000+StrToInt(copy(s,5,2))*1000+
　　StrToInt(copy(s,8,2))*10;
　　mgc[mgcn,1]:=IntToStr(msec);
　　msec:=StrToInt(copy(s,12,2))*60*1000+StrToInt(copy(s,15,2))*1000+
　　StrToInt(copy(s,18,2))*10;
　　mgc[mgcn,2]:=IntToStr(msec);
　　 msec:=StrToInt(copy(s,22,2))*60*1000+StrToInt(copy(s,25,2))*1000+
　　StrToInt(copy(s,28,2))*10;
　　mgc[mgcn,3]:=IntToStr(msec);
　　mgc[mgcn,5]:=copy(s,31,l);
　　end;
　　if (l>40)and(s[1]="[") and (s[10]="]") and
　　(s[11]="[") and (s[20]="]") and
　　(s[21]="[") and (s[30]="]") and
　　(s[31]="[") and (s[40]="]") and
　　(s[41]<>"[") then
　　begin
　　mgcn:=mgcn+1;
　　msec:=StrToInt(copy(s,2,2))*60*1000+StrToInt(copy(s,5,2))*1000+
　　StrToInt(copy(s,8,2))*10;
　　mgc[mgcn,1]:=IntToStr(msec);
　　msec:=StrToInt(copy(s,12,2))*60*1000+StrToInt(copy(s,15,2))*1000+
　　StrToInt(copy(s,18,2))*10;
　　mgc[mgcn,2]:=IntToStr(msec);
　　msec:=StrToInt(copy(s,22,2))*60*1000+StrToInt(copy(s,25,2))*1000+
　　StrToInt(copy(s,28,2))*10;
　　mgc[mgcn,3]:=IntToStr(msec);
　　msec:=StrToInt(copy(s,32,2))*60*1000+StrToInt(copy(s,35,2))*1000+
　　StrToInt(copy(s,38,2))*10;
　　mgc[mgcn,4]:=IntToStr(msec);
　　
　　mgc[mgcn,5]:=copy(s,41,l);
　　end;
　　end;
　　//读歌词结束
　　closefile(F);
　　Timer2.Enabled:=true;
　　end
　　else
　　begin
　　toolbar2.Visible:=false;
　　Timer2.Enabled:=false;
　　end;
　　end;
　　2.3.2 歌词编辑是否正确，需要进行验证，以下是利用时间控件，在label3标签中显示LRC歌词的代码
　　procedure TForm1.Timer2Timer(Sender: TObject);
　　var msec,i,j,l:integer;
　　begin
　　l:=round(Form1.MediaPlay1.CurrentPosition*1000);
　　//在Label3中显示歌词
　　for i:=1 to mgcn do
　　for j:=1 to 4 do
　　begin
　　if mgc[i,j]<>"" then
　　begin
　　msec:=StrToInt(mgc[i,j]);
　　if abs(msec-l-moffset) 本文为全文原貌未安装PDF浏览器用户请先下载安装原版全文　　end;
　　end;
　　end;
　　2.4 编辑LRC歌词的代码
　　2.4.1 将歌词读入网格中
　　procedure TForm1.OpenFSpeedButtonClick(Sender: TObject);
　　var F:textfile;
　　s,s1,ti,ar,al,offset:string;
　　gc:array [1..100,1..5] of string;
　　i,j,l,gcn:integer;
　　begin
　　 OpenDialog1.Filter:="文本文件(*.txt)|*.txt|歌词文件(*.lrc)|*.lrc";
　　if OpenDialog1.Execute then
　　begin
　　if Opendialog1.FilterIndex=1 then
　　begin
　　//读取txt文件格式，将歌词放到网格中
　　AssignFile(F, OpenDialog1.FileName);
　　Reset(F);
　　for i:=1 to StringGrid1.RowCount-1 do
　　for j:=0 to StringGrid1.ColCount-1 do
　　StringGrid1.Cells[j,i]:="";
　　i:=1;
　　while not eof(F) do
　　begin
　　readln(F,s);
　　s:=trim(s);
　　if s<>"" then
　　begin
　　i:=i+1;
　　StringGrid1.RowCount:=i;
　　StringGrid1.Cells[4,i-1]:=s;
　　end;
　　end;
　　closefile(F);
　　end
　　else
　　begin
　　AssignFile(F, OpenDialog1.FileName);
　　Reset(F);
　　//读LRC歌词，将时间标签和歌词读到数组 gc 中
　　 gcn:=0;
　　ar:=""; ti:=""; al:=""; offset:="";
　　for i:=1 to 100 do
　　for j:=1 to 5 do
　　gc[i,j]:="";
　　while not eof(F) do
　　begin
　　readln(F,s);
　　s:=trim(s);
　　l:=length(s);
　　s1:=copy(s,2,2) ;
　　if s1="ar" then ar:=copy(s,5,l-5);
　　if s1="ti" then ti:=copy(s,5,l-5);
　　if s1="al" then al:=copy(s,5,l-5);
　　s1:=copy(s,2,6);
　　if s1="offset" then offset:=copy(s,9,l-9);
　　if (l>10)and(s[1]="[") and (s[10]="]") and (s[11]<>"[") then
　　begin
　　gcn:=gcn+1;
　　gc[gcn,1]:=copy(s,1,10);
　　gc[gcn,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
　　gcn:=gcn+1;
　　gc[gcn,1]:=copy(s,1,10);
　　gc[gcn,2]:=copy(s,11,10);
　　gc[gcn,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
　　gcn:=gcn+1;
　　gc[gcn,1]:=copy(s,1,10);
　　gc[gcn,2]:=copy(s,11,10);
　　gc[gcn,3]:=copy(s,21,10);
　　gc[gcn,5]:=copy(s,31,l);
　　end;
　　if (l>40)and(s[1]="[") and (s[10]="]") and
　　(s[11]="[") and (s[20]="]") and
　　(s[21]="[") and (s[30]="]") and
　　(s[31]="[") and (s[40]="]") and
　　(s[41]<>"[") then
　　begin
　　gcn:=gcn+1;
　　gc[gcn,1]:=copy(s,1,10);
　　gc[gcn,2]:=copy(s,11,10);
　　gc[gcn,3]:=copy(s,21,10);
　　gc[gcn,4]:=copy(s,31,10);
　　gc[gcn,5]:=copy(s,41,l);
　　end;
　　end;
　　//读歌词结束，将时间标签和歌词文件放入网格中
　　Edit2.Text:=ti;
　　Edit3.Text:=ar;
　　Edit4.Text:=al;
　　Edit5.Text:=offset;
　　StringGrid1.RowCount:=gcn+1;
　　for i:=1 to gcn do
　　forj:=0 to 4 do
　　StringGrid1.Cells[j,i]:=gc[i,j+1];
本文为全文原貌未安装PDF浏览器用户请先下载安装原版全文　　closeFile(F);
　　end;
　　end;
　　end;
　　2.4.2 将歌曲播放的当前时间放到文本框中。
　　procedure TForm1.Timer1Timer(Sender: TObject);
　　var min,sec,msec,len:integer;
　　s:string;
　　t:TDateTime;
　　begin
　　 len:=round(Form1.MediaPlay1.CurrentPosition*1000);
　　 Form1.TrackBar1.Position:=len div 1000;
　　 oldpos:=len div 1000;
　　 min:=len div 1000 div 60;
　　 sec:=len div 1000-min*60;
　　 msec:=len mod 1000;
　　 s:=format("%2d:%2d:%2d.%3d",[0,min,sec,msec]);
　　 t:=StrToDatetime(s);
　　 Form1.Edit1.text:=formatDateTime("nn:ss.zzz",t);
　　 //播放结束时的操作
　　 if (Form1.MediaPlay1.Duration*1000-len) 本文为全文原貌未安装PDF浏览器用户请先下载安装原版全文

上一篇：【校园网上商城订单处理部分系统分析和设计】订单管理系统

下一篇：[ＪＳＦ与ＥＪＢ３．０集成应用研究]应用研究

猜你想看

[浅谈在大学公共英语教学中慎用任务型教学模式] 公共英语(2019-01-17)
浅谈工作过程导向教学在妇产科诊断技术课程教学中的应用|核心素养导向的国家课程校本化(2019-01-17)
浅谈新课改下的高中生物实验教学_浅谈新课改认识(2019-01-15)
实现英语 [论如何实现生物学教学的素质教育] (2019-01-15)
化学中的哲学思想【刍议哲学思想在化学知识中的体现和运用】(2019-01-17)
孩子他爸过来txt百度_孩子他爸(2019-01-16)
环境影响评价法_城市规划环境影响评价课程及其教学重点剖析(2019-01-17)
传感器实验教学改革的探讨外语教学改革探讨(2019-01-11)
老师课堂教学评价模板 [课堂教学是构建和谐中职语文教育的关键] (2019-01-13)
幼儿学汉字_关于对华裔儿童汉语汉字教学的思考(2019-01-17)

利用Ｄｅｌｐｈｉ开发ＬＲＣ歌词编辑器_歌词编辑器

上一篇：【校园网上商城订单处理部分系统分析和设计】订单管理系统

下一篇：[ＪＳＦ与ＥＪＢ３．０集成应用研究]应用研究

猜你想看

最新文章

优化美术课堂什么意思_关于优化美术课堂教学中的“趣”的

【建立和谐的师生关系,提高小学数学课堂教学效率】如何

2018年小学语文新课标新课标下小学语文高年级教材的更新

【物理实验教学中三维目标的体现】虚拟物理实验室下载

如何管理乱哄哄的课堂 [浅议合作教学在初中数学课堂中的

【浅谈新时期小学教师教育观念的转变】新课改中教育观念

【浅谈如何在教学中培养学生的语感】浅谈如何培养学生的

用心灵感动学生_感动学生心灵故事

浅析儿童美术教育中人文精神的培养人文精神的理解800字

【职业学校数学模块教学实践探索】中等职业数学基础模块

相关文章

利用Ｄｅｌｐｈｉ开发ＬＲＣ歌词编辑器_歌词编辑器

上一篇：【校园网上商城订单处理部分系统分析和设计】 订单管理系统

下一篇：[ＪＳＦ与ＥＪＢ３．０集成应用研究]应用研究

猜你想看

最新文章

相关文章

上一篇：【校园网上商城订单处理部分系统分析和设计】订单管理系统