一、酷狗歌词搜索 Indy TIdhttp

最新推荐文章于 2025-09-13 21:59:18 发布

转载最新推荐文章于 2025-09-13 21:59:18 发布 · 129 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ab0416/p/4087626.html

文章标签：

#json #php

本文介绍如何通过编程方式获取酷狗音乐平台上的歌词，并对其进行解析。文章提供了使用特定编码格式请求酷狗歌词URL的方法，包括将中文歌名转换为UTF-8编码的函数，以及通过HTTP请求获取歌词的具体实现。

酷狗歌词Url: http://lib9.service.kugou.com/websearch/index.php?page=1&cmd=100&pagesize=9&keyword= +歌名

酷狗歌词编码：UTF-8

中文歌名转UTF8编码代码

 1 function StrToHex(str: string; AEncoding: TEncoding): string;
 2 var
 3   ss: TStringStream;
 4   i: Integer;
 5 begin
 6   Result := '';
 7   ss := TStringStream.Create(str, AEncoding);
 8   try
 9     for i := 0 to ss.Size - 1 do
10       Result := Result + '%' + Format('%.2x', [ss.Bytes[i]]);
11   finally
12     ss.Free;
13   end;
14 end;

StrToHex(歌词，TEncoding.utf8)

TIdhttp调用代码

 1   function httpGetByStream(Url:string;AEncoding:TEncoding):TStringStream;
 2   begin
 3    try
 4     Result := TStringStream.Create('', AEncoding);
 5     FIdhttp := TIdHTTP.Create(nil);
 6     FIdhttp.ConnectTimeout := 3000;
 7     FIdhttp.ReadTimeout := 6000;
 8     FIdhttp.Get(FUrl, Result);
 9    finally
10      FIdhttp.Disconnect;
11      FreeAndNil(FIdhttp);
12      end;
13   end;
14 
15 var
16   ReStreamBuff : TStringStream;
17 begin
18        //以Utf8编码格式实例化字符串流，
19         ReStreamBuff := TStringStream.Create('', TEncoding.UTF8);
20         try
21           ReStreamBuff := httpGetByStream(FUrl, TEncoding.UTF8);
22          //do   datasting;
23         finally
24           ReStreamBuff.Free;
25         end;
26 end;