procedure Download(Url: String);
var
  Sstr   : TStringStream;
  Idhttp : TIdHTTP;
begin
  Idhttp := TIdHTTP.Create(nil);
  Sstr   := TStringStream.Create('', TEncoding.GetEncoding(65001)); {指定gb2312的中文代码页,或者54936(gb18030)更好些utf8对应65001}
  Idhttp.Get(Url, Sstr);
  {
  ..............
  ..............
  ..............
  }

 

posted on 2014-06-05 09:42  二进制的猫  阅读(245)  评论(0)    收藏  举报