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編碼格式即會正常，不會出現亂碼的情況