unit searchMusic;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdTCPClient, IdHTTP, StdCtrls,msxml,ExtCtrls,IdURI,Httpapp,UrlMon,ShellAPI,sLabel, xmldom, XMLIntf, msxmldom, XMLDoc,StrUtils;typeTsearchForm = class(TForm)edt1: TEdit;lbl2: TLabel;lv1: TListView;slb1: TsLabel;xmldcmnt1: TXMLDocument;btn1: TButton;btn2: TButton;btn3: TButton;btn4: TButton;btn5: TButton;btn6: TButton;btn7: TButton;btn8: TButton;slb2: TsLabel;lbl1: TLabel;procedure lv1DblClick(Sender: TObject);procedure btn1Click(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure btn2Click(Sender: TObject);procedure btn3Click(Sender: TObject);procedure phbMusicList();procedure btn4Click(Sender: TObject);procedure btn5Click(Sender: TObject);procedure btn6Click(Sender: TObject);procedure btn7Click(Sender: TObject);procedure btn8Click(Sender: TObject);private{ Private declarations }public{ Public declarations }    HttpReq: IXMLHttpRequest;end;varsearchForm: TsearchForm;phbType:string;implementationuses superobject,download,Constant;
{$R *.dfm}//文件下载
function DownloadFile(Source, Dest: string): Boolean;
begin   try   Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;   except   Result := False;   end;   end;  procedure TsearchForm.lv1DblClick(Sender: TObject);
varsongid:string;
begintrysongid:=lv1.Items.Item[lv1.Selected.Index].Caption;Constant.download_songid:=songid;if dlForm<>nil thendlForm.hide;application.CreateForm(TdlForm, dlForm);dlForm.Show;exceptShowMessage('请选择要下载的歌曲!');end;
end;
function ReversePos(SubStr, S: String): Integer;
vari : Integer;
begini := Pos(SubStr, ReverseString(S));if i > 0 then i := Length(S) - i - Length(SubStr) + 2;Result := i;
end;procedure TsearchForm.btn1Click(Sender: TObject);
vari,count,EndPos,len: Integer;url,content,musicName,p,m,path,param: string;WItem:TListItem;jo: ISuperObject;songList:TSuperArray;
beginif edt1.Text<>'' thenbeginlv1.Clear;slb2.Caption:='';musicName:=HTTPEncode(UTF8Encode(edt1.Text));HttpReq:=CoXMLHTTPRequest.Create;url := 'http://sug.music.baidu.com/info/suggestion?word='+musicName+'&format=json&version=2&from=0';HttpReq.open('get', Url, False, EmptyParam, EmptyParam);HttpReq.send(EmptyParam);//开始搜索content := HttpReq.responseText;jo := SO(content);songList := jo['data'].o['song'].AsArray; if songList.Length=0 thenbeginShowMessage('未找到歌曲【'+edt1.Text+'】');lv1.Clear;end;if songList.Length>0 thenbeginfor i := 0 to songList.Length-1 dobegin   WItem:=lv1.Items.Add;WItem.Caption:=songList[i].O['songid'].AsString;WItem.SubItems.Add(songList[i].O['songname'].AsString);WItem.SubItems.Add(songList[i].O['artistname'].AsString);end;end;endelsebeginShowMessage('请输入歌曲名称！');end;
end;procedure TsearchForm.FormClose(Sender: TObject; var Action: TCloseAction);
beginif dlForm<>nil thendlForm.Hide;
end;procedure TsearchForm.phbMusicList();vari,count,EndPos,len: Integer;url,content,musicName,p,m,path,param: string;WItem:TListItem;jo: ISuperObject;songList:TSuperArray;
beginlv1.Clear;musicName:=HTTPEncode(UTF8Encode(edt1.Text));HttpReq:=CoXMLHTTPRequest.Create;url := 'http://tingapi.ting.baidu.com/v1/restserver/ting?size=100&type='+phbType+'&format=json&method=baidu.ting.billboard.billList';HttpReq.open('get', Url, False, EmptyParam, EmptyParam);HttpReq.send(EmptyParam);//开始搜索content := HttpReq.responseText;jo := SO(content);slb2.Caption:= '更新时间:'+jo['billboard'].o['update_date'].AsString;songList := jo['song_list'].AsArray;if songList.Length=0 thenbeginShowMessage('未找到歌曲【'+edt1.Text+'】');lv1.Clear;end;if songList.Length>0 thenbeginfor i := 0 to songList.Length-1 dobeginWItem:=lv1.Items.Add;WItem.Caption:=songList[i].O['song_id'].AsString;WItem.SubItems.Add(songList[i].O['title'].AsString);WItem.SubItems.Add(songList[i].O['artist_name'].AsString);end;end;
end;
procedure TsearchForm.btn2Click(Sender: TObject);
beginphbType:='1';searchForm.phbMusicList();
end;procedure TsearchForm.btn3Click(Sender: TObject);
beginphbType:='2';searchForm.phbMusicList();
end;
procedure TsearchForm.btn4Click(Sender: TObject);
beginphbType:='21';searchForm.phbMusicList();
end;procedure TsearchForm.btn5Click(Sender: TObject);
beginphbType:='22';searchForm.phbMusicList();
end;procedure TsearchForm.btn6Click(Sender: TObject);
beginphbType:='23';searchForm.phbMusicList();
end;procedure TsearchForm.btn7Click(Sender: TObject);
beginphbType:='24';searchForm.phbMusicList();
end;procedure TsearchForm.btn8Click(Sender: TObject);
beginphbType:='25';searchForm.phbMusicList();
end;end.

download.pas 下载界面

unit download;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdTCPClient, IdHTTP, StdCtrls,msxml,ExtCtrls,IdURI,Httpapp,UrlMon,ShellAPI,sLabel, xmldom, XMLIntf, msxmldom, XMLDoc,StrUtils, sEdit, sGroupBox,sButton, acImage,Jpeg;typeTdlForm = class(TForm)slb1: TsLabel;slb3: TsLabel;grp1: TsGroupBox;edt1: TsEdit;btn1: TsButton;grp2: TsGroupBox;edt2: TsEdit;btn2: TsButton;grp3: TsGroupBox;btn3: TsButton;btn4: TsButton;btn5: TsButton;img1: TsImage;idhtp1: TIdHTTP;slb2: TsLabel;btn6: TsButton;procedure FormCreate(Sender: TObject);procedure btn1Click(Sender: TObject);procedure btn2Click(Sender: TObject);procedure getMusicInfo();procedure btn3Click(Sender: TObject);procedure btn4Click(Sender: TObject);procedure btn5Click(Sender: TObject);procedure btn6Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;vardlForm: TdlForm;musicPath,lyPath:string;HttpReq: IXMLHttpRequest;rate:string;musicType:string;
implementationuses Constant,superobject;
{$R *.dfm}//文件下载
function DownloadFile(Source, Dest: string): Boolean;
begin   tryResult := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;   except   Result := False;end;   end;
function change_length(songlength: integer): string;//将单位为秒的时间长度转化
var                                                        //为00:00:00的时间格式的字符串
s:string; //定义S为字符串变量
hours,minutes,seconds:integer;//定义hours,minutes,seconds为整形变量
beginsonglength:=songlength div 1000;seconds:= songlength mod 60;songlength:=songlength div 60;minutes:=songlength mod 60;hours:=songlength div 60;if strlen(pchar(inttostr(hours)))=1 then   //若小时数为个位数s:='0'+inttostr(hours)                   //则在前面补0，即0X形式elses:=inttostr(hours);                     //不然，为xx形式s:=s+':';if strlen(pchar(inttostr(minutes)))=1 thens:=s+'0'+inttostr(minutes)elses:=s+inttostr(minutes);s:=s+':';if strlen(pchar(inttostr(seconds)))=1 thens:=s+'0'+inttostr(seconds)elses:=s+inttostr(seconds);change_length:=s;
end;
procedure TdlForm.getMusicInfo();
vari,count,EndPos,size: Integer;url,content,sizeStr,p,m,path,param,songid,downloadurl,timeStr: string;jo: ISuperObject;songList:TSuperArray;imagestream:TMemoryStream;jpg:TJpegImage;
beginsongid:=Constant.download_songid;      HttpReq:=CoXMLHTTPRequest.Create;url := 'http://music.baidu.com/data/music/fmlink?songIds='+songid+'&rate='+rate+'&format=json&type='+musicType;HttpReq.open('get', Url, False, EmptyParam, EmptyParam);HttpReq.send(EmptyParam);//开始搜索content := HttpReq.responseText;jo := SO(content);if jo['errorCode'].AsString='22000' thenbeginsongList := jo['data'].o['songList'].AsArray;if songList.Length=0 thenbeginShowMessage('未找下载链接!');end;if songList.Length>0 thenbeginfor i := 0 to songList.Length-1 dobeginslb1.Caption:=songList[i].O['songName'].AsString;if songList[i].O['size'].AsString<>'' thenbegin                                    size:= strtoint(songList[i].O['size'].AsString);sizeStr:=formatfloat('0.00',size*100/(1024*1024)/100);endelsebeginsizeStr:='0';end;timeStr:='0';if songList[i].O['time'].AsString<>'' thenbegintimeStr:=change_length(strtoint(songList[i].O['time'].AsString)*1000);end;slb2.Caption:=' 时长:'+timeStr;slb3.Caption:=songList[i].O['artistName'].AsString+'  '+sizeStr+'MB / '+songList[i].O['format'].AsString+' / '+songList[i].O['rate'].AsString+'kbps';m:=songList[i].O['songName'].AsString+'-'+songList[i].O['artistName'].AsString+'.'+songList[i].O['format'].AsString;path:=songList[i].O['songName'].AsString+'-'+songList[i].O['artistName'].AsString+'.lrc';musicPath:=ExtractFilePath(Application.Exename)+'Songs\'+m;lyPath:=ExtractFilePath(Application.Exename)+'Lyrics\'+path;edt1.Text:= songList[i].O['songLink'].AsString;edt2.Text:= 'http://music.baidu.com'+songList[i].O['lrcLink'].AsString;btn1.Enabled:=true;btn2.Enabled:=true;if songList[i].O['songLink'].AsString='' thenbeginedt1.Text:= '未找到歌曲下载链接,请尝试其他音质。';btn1.Enabled:=false;end;if songList[i].O['lrcLink'].AsString='' thenbeginedt2.Text:= '未找到歌词下载链接,请尝试其他音质。';btn2.Enabled:=false;end;      //显示歌曲图片if songList[i].O['songPicBig'].AsString<>'' thenbeginimagestream := TMemoryStream.Create();jpg:=TJpegImage.Create;idhtp1.Get(songList[i].O['songPicBig'].AsString,imagestream);imagestream.Position:=0;jpg.LoadFromStream(imagestream);img1.Picture.Assign(jpg);end;end;end;endelsebeginShowMessage('下载失败!');end;
end;
procedure TdlForm.FormCreate(Sender: TObject);
beginrate:='320';musicType:='flac';dlForm.getMusicInfo();
end;procedure TdlForm.btn1Click(Sender: TObject);
beginShellExecute(Handle, 'open', 'IExplore.exe', PAnsiChar(edt1.Text), nil, SW_SHOWNORMAL);
end;procedure TdlForm.btn2Click(Sender: TObject);
beginShellExecute(Handle, 'open', 'IExplore.exe', PAnsiChar(edt2.Text), nil, SW_SHOWNORMAL);
end;procedure TdlForm.btn3Click(Sender: TObject);
beginrate:='128';         musicType:='mp3';dlForm.getMusicInfo();
end;procedure TdlForm.btn4Click(Sender: TObject);
beginrate:='192';             musicType:='mp3';dlForm.getMusicInfo();
end;procedure TdlForm.btn5Click(Sender: TObject);
beginrate:='320';musicType:='mp3';dlForm.getMusicInfo();
end;procedure TdlForm.btn6Click(Sender: TObject);
begin  rate:='320';musicType:='flac';dlForm.getMusicInfo();
end;end.

调用插件superobject.pas、superxmlparser.pas