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

  • A+
所属分类:DelPhi

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

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

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

解决办法有两种:

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

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

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

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

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;

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: