IDHTTP.Get时界面卡死的解决方法

再创世纪

于 2019-08-18 16:12:21 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏：【Delphi网格相关】

本文链接：https://blog.youkuaiyun.com/ampeter/article/details/99705726

【Delphi网格相关】专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种在使用IDHTTP进行网络数据采集时防止界面卡死的方法。通过设置TIdAntiFreezeControl控件和调整相关参数，可以在网络状况不佳时保持程序响应，避免任务执行过程中界面冻结。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

今天做了个IDHTTP.get采集网页的时候，网站网络情况不好，界面就卡死了，通过百度发现使用下面的方法可以实现水卡死情况

放一个TIdAntiFreezeControl控件,然后在执行的任务前面加上下面这句即可

IdAntiFreeze1.OnlyWhenIdle:=False;//设置使有反应

比如：

procedure TForm1.Button2Click(Sender: TObject);
var
MyStr:String;
Dcphttp:TIdHTTP;
IsUtf8 :Boolean;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使有反应.
Dcphttp:=TIdHTTP.Create(Application);
IsUtf8:=False;
try
Dcphttp.ReadTimeout:=5000;
Dcphttp.ConnectTimeout:=5000;
Dcphttp.HandleRedirects := True;
Dcphttp.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8';
Dcphttp.Request.ProxyConnection:='keep-alive';
Dcphttp.Request.UserAgent := 'Mozilla/5.0';
MyStr := Dcphttp.Get(Urle+'?SortType=desc&DType=Lastest1Day');
if IsUtf8 then
MyStr:= Utf8ToAnsi(MyStr);
Memo1.Text:=MyStr;
except
Showmessage('网络出错!');
Exit;
end;
FreeAndNil(dcphttp);
end;