安云网 - AnYun.ORG | 专注于网络信息收集、网络数据分享、网络安全研究、网络各种猎奇八卦。
当前位置: 安云网 > 技术关注 > 编程茶楼 > DelPhi > delphi IdHTTP造成程序假死的解决办法

delphi IdHTTP造成程序假死的解决办法

时间:2020-07-01来源:未知 作者:安云网点击:
IdHTTP造成程序假死的解决办法 在程序中使用了IdHTTP的话,在执行Get或Post过程的时候,程序界面会无法响应,造成程序假死,但在任务管理器中又能看到程序正在运行。 这是因为Indy系统组件都使用了阻塞式Sock,阻塞式Sock的缺点就
//内容来自安云网

IdHTTP造成程序假死的解决办法

在程序中使用了IdHTTP的话,在执行Get或Post过程的时候,程序界面会无法响应,造成程序假死,但在任务管理器中又能看到程序正在运行。

这是因为Indy系统组件都使用了阻塞式Sock,阻塞式Sock的缺点就是使客户程序的用户界面“冻结”。当在程序的主线程中进行阻塞式Socket调用时,由于要等待Socket调用完成并返回,这段时间就不能处理用户界面消息,使得Update、Repaint以及其它消息得不到及时响应,从而导致用户界面被“冻结”,就是常说的“程序假死”。

解决办法有两种:

1.在程序中放一个IdAntiFreeze控件,个人使用中发现把IdAntiFreeze控件的OnlyWhenIdle置为False,效果会更好。

2.将IdHTTP放进线程,在线程中动态建立IdHTTP控件来使用。

//内容来自AnYun.ORG



第一种办法使用简单,但程序界面的响应还是会有些延迟感。

第二种办法使用后,程序的表现十分好,感觉不到延迟。不过因为涉及到线程的操作,使用起来比第一种办法要麻烦一点。. //本文来自安云网

3.

有大数循环的情况,通常会出现假死,在循环前加一句: 就可以了。。
比如下面的例子:
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to 100000 do
  begin
    Edit1.Text := IntToStr(i);
  end;
end;
这样程序执行上面的代码时会出现假死,如果改成下面的就不会了。
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to 100000 do
  begin
    Application.ProcessMessages;
    Edit1.Text := IntToStr(i);
  end;
end;


本文标题: delphi IdHTTP造成程序假死的解决办法 安云网
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
验证码: 点击我更换图片
相关内容
推荐内容