一、酷狗 歌词搜索 Indy TIdhttp

 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;

 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;