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;
本文展示了一个使用Delphi进行网络GET请求的例子。通过IdHTTP组件实现对指定URL的访问,并将响应数据收集到字符串列表中。示例代码中包含了错误处理逻辑。
1475

被折叠的 条评论
为什么被折叠?



