Delphi使用IdTcp控件时的死锁问题

Delphi使用IdTcp控件时的死锁问题2012-02-02 博客园 DJ尐舞Delphi使用IdTcp控件，在IdTCPServer1Connect事件中对未显示出的Form操作发生死锁

例如：Form2中包含几个Button,1个listbox（如果什么控件都没有可能不会发生死锁）

在IdTCPServer1Connect事件中加入

procedure TServerForm.IdTCPServer1Connect（AThread: TIdPeerThread）;
begin

  Form2.show;

end;

然后就发生死锁。具体原因还没找出，不过找到了一个解决方法：

通过添加一个timer可以将timer1.interval设为1,Enable=false然后

procedure TServerForm.IdTCPServer1Connect（AThread: TIdPeerThread）;

begin

  timer1.Enable:=true;
end;

procedure TServerForm.Timer1Timer（Sender: TObject）;
begin

 Form2.show;
  timer1.Enabled:=false;
end;

===============================脑残分割线====================================

后来冷静了想了一下：

procedure TServerForm.IdTCPServer1Connect（AThread: TIdPeerThread）;

begin

  AThread.Synchronize（Form2.Show）;

end;

这样就解决了··