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

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;