本文整理自网络，侵删。
现在拿出来吧。也没有什么好保留的，呵呵。
主要封装了两个函数
function LrcListLink(Atrist,Title:string;Server:Integer):string;
function LrcDownLoadLink(LrcId:Integer;Atrist,Title:string;Server:Integer):string;
Atrist,Title就不用多说了，歌手和歌曲名。 Server参数是用来指定电信或网通歌词服务器的。0代表电信，1代表网通。
LrcDownLoadLink函数中的LrcID是通过LrcListLink函数获取到的一个XML中查找到得对应歌词的ID。
整个操作过程是这样的.
第一步，调用LrcListLink函数，返回的是一个String类型的URL，该地址为歌词服务器搜索到的歌词列表(XML格式)，idhttp.Get即可获取。。
第二步，从XML歌词列表中选取歌词，将歌词对应的LrcID记录下来传给LrcDownLoadLink。
第三步，调用LrcDownLoadLink函数，返回URL，该地址即为第二步中选择的歌词的下载地址，idhttp.Get即可获取。
具体操作方法详见附件中的Demo
说明：由于Delphi7不支持Unicode所以做了GB2Unicode转码，而Delphi2009以上就支持Unicode了，直接使用了TEncoding类。
再一点，Delphi7中虽然转Unicode码实现了获取地址，但是歌词文件中若是包含Unicode字符时，则无法显示。如果有谁能解决Delphi7下
Unicode字符显示，烦请发一份Demo给我，在此先感谢了。
Demo中本人由于不太了解XML的操作类型，所以只是简单的字符串提取。??TL。以后再改吧，不影响地址解析单元的使用。
源码下载：http://pan.baidu.com/s/1EFGkE
http://www.cnblogs.com/lahcs/archive/2010/01/23/1654666.html
相关阅读 >>
Delphi xe5实现按android的back键无法退出关闭程序
Delphi 编写activex控件（ocx控件）的知识和样例
Delphi中inputbox 和inputquery 函数的使用
更多相关阅读请进入《Delphi》频道 >>
