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
;