IDHTTP获取网页的内容或源码

ts:=TStringList.Create;

RespData:=TStringStream.Create('');

IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko';

try

  for i := 0 to 1000 do

  begin    

    try      

      IdHTTP1.Get(url,RespData);

      ts.Add(RespData.DataString);

    except      

    end;

  end;

finally

  ts.Free;

  RespData.Free;

end;