无损音乐下载器 Delphi版

最新推荐文章于 2022-10-14 09:46:38 发布
最新推荐文章于 2022-10-14 09:46:38 发布
阅读量1.9k 收藏 2
点赞数 1
分类专栏： Delphi 文章标签： Delphi Delphi播放器 音乐播放器
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gxp_java/article/details/50402066
版权

无损音乐下载器 Delphi版

先上图


完整版源码下载地址：

http://download.csdn.net/detail/guoxuepeng123/9376720


searchMusic.pas 搜索界面

unit searchMusic;

interface

uses
  Windows, 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;

type
  TsearchForm = 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;

var
  searchForm: TsearchForm;
  phbType:string;

implementation
       uses 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);
var
  songid:string;
begin
  try
      songid:=lv1.Items.Item[lv1.Selected.Index].Caption;
      Constant.download_songid:=songid;
      if dlForm<>nil then
        dlForm.hide;
      application.CreateForm(TdlForm, dlForm);
      dlForm.Show;
   except
      ShowMessage('请选择要下载的歌曲!');
   end;
end;
function ReversePos(SubStr, S: String): Integer;
var
  i : Integer;
begin
  i := Pos(SubStr, ReverseString(S));
  if i > 0 then i := Length(S) - i - Length(SubStr) + 2;
  Result := i;
end;

procedure TsearchForm.btn1Click(Sender: TObject);
var
  i,count,EndPos,len: Integer;
  url,content,musicName,p,m,path,param: string;
  WItem:TListItem;
  jo: ISuperObject;
  songList:TSuperArray;
begin
  if edt1.Text<>'' then
  begin
    lv1.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 then
    begin
      ShowMessage('未找到歌曲【'+edt1.Text+'】');
      lv1.Clear;
    end;
    if songList.Length>0 then
    begin
        for i := 0 to songList.Length-1 do
        begin   
              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;
  end
  else
  begin
    ShowMessage('请输入歌曲名称！');
  end;
end;

procedure TsearchForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if dlForm<>nil then
      dlForm.Hide;
end;

procedure TsearchForm.phbMusicList();
 var
  i,count,EndPos,len: Integer;
  url,content,musicName,p,m,path,param: string;
  WItem:TListItem;
  jo: ISuperObject;
  songList:TSuperArray;
begin
    lv1.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 then
    begin
      ShowMessage('未找到歌曲【'+edt1.Text+'】');
      lv1.Clear;
    end;
    if songList.Length>0 then
    begin
        for i := 0 to songList.Length-1 do
        begin
              WItem:=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);
begin
  phbType:='1';
  searchForm.phbMusicList();
end;

procedure TsearchForm.btn3Click(Sender: TObject);
begin
  phbType:='2';
  searchForm.phbMusicList();
end;
procedure TsearchForm.btn4Click(Sender: TObject);
begin
  phbType:='21';
  searchForm.phbMusicList();
end;

procedure TsearchForm.btn5Click(Sender: TObject);
begin
  phbType:='22';
  searchForm.phbMusicList();
end;

procedure TsearchForm.btn6Click(Sender: TObject);
begin
  phbType:='23';
  searchForm.phbMusicList();
end;

procedure TsearchForm.btn7Click(Sender: TObject);
begin
  phbType:='24';
  searchForm.phbMusicList();
end;

procedure TsearchForm.btn8Click(Sender: TObject);
begin
  phbType:='25';
  searchForm.phbMusicList();
end;

end.

download.pas 下载界面


unit download;

interface

uses
  Windows, 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;

type
  TdlForm = 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;

var
  dlForm: TdlForm;
  musicPath,lyPath:string;
  HttpReq: IXMLHttpRequest;
  rate:string;
  musicType:string;
implementation
   uses Constant,superobject;
{$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;
function change_length(songlength: integer): string;//将单位为秒的时间长度转化
var                                                        //为00:00:00的时间格式的字符串
s:string; //定义S为字符串变量
hours,minutes,seconds:integer;//定义hours,minutes,seconds为整形变量
begin
   songlength:=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形式
   else
      s:=inttostr(hours);                     //不然，为xx形式
   s:=s+':';
   if strlen(pchar(inttostr(minutes)))=1 then
      s:=s+'0'+inttostr(minutes)
   else
      s:=s+inttostr(minutes);
   s:=s+':';
   if strlen(pchar(inttostr(seconds)))=1 then
      s:=s+'0'+inttostr(seconds)
   else
      s:=s+inttostr(seconds);
   change_length:=s;
end;
procedure TdlForm.getMusicInfo();
var
  i,count,EndPos,size: Integer;
  url,content,sizeStr,p,m,path,param,songid,downloadurl,timeStr: string;
  jo: ISuperObject;
  songList:TSuperArray;
  imagestream:TMemoryStream;
  jpg:TJpegImage;
begin
  songid:=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' then
  begin
    songList := jo['data'].o['songList'].AsArray;
    if songList.Length=0 then
    begin
      ShowMessage('未找下载链接!');
    end;
    if songList.Length>0 then
    begin
        for i := 0 to songList.Length-1 do
        begin
            slb1.Caption:=songList[i].O['songName'].AsString;
            if songList[i].O['size'].AsString<>'' then
            begin                                    
              size:= strtoint(songList[i].O['size'].AsString);
              sizeStr:=formatfloat('0.00',size*100/(1024*1024)/100);
            end
            else
            begin
              sizeStr:='0';
            end;
            timeStr:='0';
            if songList[i].O['time'].AsString<>'' then
            begin
              timeStr:=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='' then
            begin
              edt1.Text:= '未找到歌曲下载链接,请尝试其他音质。';
              btn1.Enabled:=false;
            end;
            if songList[i].O['lrcLink'].AsString='' then
            begin
              edt2.Text:= '未找到歌词下载链接,请尝试其他音质。';
              btn2.Enabled:=false;
            end;      
            //显示歌曲图片
            if songList[i].O['songPicBig'].AsString<>'' then
            begin
              imagestream := 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;
  end
  else
  begin
    ShowMessage('下载失败!');
  end;
end;
procedure TdlForm.FormCreate(Sender: TObject);
begin
    rate:='320';
    musicType:='flac';
    dlForm.getMusicInfo();
end;

procedure TdlForm.btn1Click(Sender: TObject);
begin
      ShellExecute(Handle, 'open', 'IExplore.exe', PAnsiChar(edt1.Text), nil, SW_SHOWNORMAL);
end;

procedure TdlForm.btn2Click(Sender: TObject);
begin
     ShellExecute(Handle, 'open', 'IExplore.exe', PAnsiChar(edt2.Text), nil, SW_SHOWNORMAL);
end;

procedure TdlForm.btn3Click(Sender: TObject);
begin
    rate:='128';         
    musicType:='mp3';
    dlForm.getMusicInfo();
end;

procedure TdlForm.btn4Click(Sender: TObject);
begin
    rate:='192';             
    musicType:='mp3';
    dlForm.getMusicInfo();
end;

procedure TdlForm.btn5Click(Sender: TObject);
begin
    rate:='320';
    musicType:='mp3';
    dlForm.getMusicInfo();
end;

procedure TdlForm.btn6Click(Sender: TObject);
begin  
    rate:='320';
    musicType:='flac';
    dlForm.getMusicInfo();
end;

end.


调用插件superobject.pas、superxmlparser.pas

gxp_java
关注
  • 1
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
superxmlparser xml json 解析
10-27
superxmlparser JSON (JavaScript Object Notation) is a lightweight data-interchange format. It is easy for humans to read and write. It is easy for machines to parse and generate. It is based on a subset of the JavaScript Programming Language, Standard ECMA-262 3rd Edition - December 1999. JSON is a text format that is completely language independent but uses conventions that are familiar to programmers. These properties make JSON an ideal data-interchange language. You can get more informations on json.org.
用DELPHI写的播放器核心代码，播放MP3无压力
tcmakebest的专栏
12-14 3540
主窗口代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, tcMMControl; type TForm1 = class(TForm) Button1: TButton;
delphi 用 lame 输出mp3
活下去,学下去
10-14 250
lame mp3
delphi简单的mp3播放器源代码
06-09
MP3播放计划借个和天空和认可几乎他和看见人看好就 各回各家
MP3无损音乐下载器Python
12-04
Windows版本、Mac版本、安卓版本都有音乐下载器音乐下载付费歌曲mp3音乐下载python爬虫下载付费音乐免费音乐下载网站无损音乐下载python音乐下载器python下载音乐代码python免费下栽音乐
无损音乐下载器
11-16
转可下载无损音质音乐，简单方便，用了很长时间了。
无损音乐下载器，无需付费
11-29
无损音乐下载器，优惠券www.panpansq.com无损音乐下载器V3.2.6859.39189一键试听下载(无需付费，动态歌词，MV)
无损音乐下载器-来自吾爱破解大神
07-08
此工具来自吾爱破解大神@FireworksSmiles，更新时间5月6日，上传时正常使用！
Delphi 播放器[源码]
ying32的专栏
12-18 5200
Delphi 音乐播放器，支持桌面歌词、换肤、换颜色、歌词自动下载，Win7下支持小窗口预览，有些功能未完全完成，就如调整音量（懒得搞，但是可以听了，只写了一次性播放列表没得循环的）。支持酷狗、QQ的动感歌词，以动感方式显示自己的实现方法，工程是使用Delphi XE2开发,原本是用delphi7后因为要支持win7下面的那个小窗口模式的，所以改为delphi xe2了。 主界面：
Delphi MP3歌曲网络批量下载器.rar
07-10
Delphi MP3歌曲网络下载器，下载百度音乐内的MP3文件，支持批量下载功能，不过现在程序失效了，原因是百度改版了，不过你可了解一下实现原理，也可用于下载其它的网络文件。程序内含说明和源码更新历史。程序还可以试听百度音乐，进行音乐播放的控制等功能。
DELPHI 音频格式互转控件（MP3、WMA、APE、FLAC、MPC、Ogg、WV）
01-01
因为项目需要将wav音频格式的文件压缩成MP3格式的文件，网上找了很多资料，终于找到了这款控件。这款控件能实现各种音频格式的互转，例如wav转MP3，MP3转avi......给的是源代码，安装十分方便，编程也十分简单，有丰富的例子。 MP3Converter - converts mp3 files to wav format. MP32WMA - converts mp3 files to wma format preserving tags information. Wav2Ape - converts wav files to Monkey's Audio Wav2FLAC - converts wav files to FLAC Wav2MPC - converts wav files to Musepack Wav2Ogg - converts wav files to Ogg Vorbis Wav2Ogg-2 - converts wav files to Ogg Vorbis with a different set of controls Wav2WMA - converts wav files to Windows Media Audio (WMA) Wav2WMA-2 - converts wav files to Windows Media Audio using direct codec/format selection. Wav2WV - converts wav files to WavPack WMA2Ogg - This converter demostrates how to select WMA output formats。 另外还可以实现各类音频格式的播放、编辑功能。 本控件在delphi7上经本人调试通过，确认没有问题。
Delphi 音乐播放器（有源码）
01-05
用Delphi做的一个简单音乐播放器，实现基本播放控制，歌曲列表、flash动画，托盘图标、记忆播放歌曲列表等功能
superobject superxmlparser
03-27
包含superobject、superxmlparser可用于delphi7
DELPHI MP3Play1.2
11-08
Delphi下唯一不用DLL，不使用其它控件的MP3播放器，全部PASCAL源码。 是德国人写的C++程序的DELPHI版。 很不好找，原版的有内存泄漏问题，已修正。
Delphi Json/XML 解析类
10-27
Delphi的Json、XML解析类，附带例子。
无损音乐 整轨分轨 foobar
05-27
无损音乐整轨分轨，一款很好用的无损分轨资源
小喇叭播放器
11-26
很好的MP3播放软件,方便，实用。
用Delphi做的MP3播放器
11-24
用Delphi做的MP3播放器，喜欢就下，呵呵，不错的，
pakur开源无损音乐播放器硬件
最新发布
12-19
Pakur开源无损音乐播放器硬件还具有可拆卸的设计，用户可以根据自己的喜好和需求选择适合的音频芯片和放大器，从而达到最佳的音质效果。此外，该播放器还支持多种音频输出接口，包括3.5mm耳机接口、2.5mm平衡接口等...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值