Idhttp Get方法

idhttp.get(AURL:string):string;//返回字符串

idhttp.get(AURL:string;AResponseContent: TStream)//返回流

基于网站的不同编码格式，第二种返回流的更加适用

function httpGetByStr(Url: string): string;
begin
    FIdhttp := TIdHTTP.Create(nil);
  try
    FIdhttp.ConnectTimeout := 3000;
    FIdhttp.ReadTimeout := 6000;
    Result := FIdhttp.Get(Url);
  finally
    FIdhttp.Disconnect;
    FreeAndNil(FIdhttp);
  end;
end;

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

 基于Unicode版本，根据网站的不同编码设置不同的AEncoding.类型即可，返回的Datastring编码格式即会正常，不会出现乱码的情况