- 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;
- 我的微信
- 这是我的微信扫一扫
- 我的微信公众号
- 我的微信公众号扫一扫