一、酷狗 歌词搜索 Indy TIdhttp

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

酷狗歌词编码：UTF-8

中文歌名转UTF8编码代码

function StrToHex(str: string; AEncoding: TEncoding): string;
var
  ss: TStringStream;
  i: Integer;
begin
  Result := '';
  ss := TStringStream.Create(str, AEncoding);
  try
    for i := 0 to ss.Size - 1 do
      Result := Result + '%' + Format('%.2x', [ss.Bytes[i]]);
  finally
    ss.Free;
  end;
end;

StrToHex(歌词，TEncoding.utf8)

TIdhttp调用代码

  function httpGetByStream(Url:string;AEncoding:TEncoding):TStringStream;
  begin
   try
    Result := TStringStream.Create('', AEncoding);
    FIdhttp := TIdHTTP.Create(nil);
    FIdhttp.ConnectTimeout := 3000;
    FIdhttp.ReadTimeout := 6000;
    FIdhttp.Get(FUrl, Result);
   finally
     FIdhttp.Disconnect;
     FreeAndNil(FIdhttp);
     end;
  end;

var
  ReStreamBuff : TStringStream;
begin
       //以Utf8编码格式实例化字符串流，
        ReStreamBuff := TStringStream.Create('', TEncoding.UTF8);
        try
          ReStreamBuff := httpGetByStream(FUrl, TEncoding.UTF8);
         //do   datasting;
        finally
          ReStreamBuff.Free;
        end;
end;

最后解析出来的ReStreamBuff为字符串流，其Datastring为JSON串

使用系统自带的System.JSON类解析即可