关于ClientSocket错误捉

Question

在Lookup时Disconnect就会出现这种情况，如何解决呢？

Answer 1

也碰到过类似的问题
提供一点思路：
1.需要捕捉错误，可以自己写一个TSocketErrorProc类型的处理函数，然后用 
  ScktComp单元中的 SetErrorProc 注册。
  这样，严重错误的时候也由自己处理，Delphi就不会弹出对话框（关于这一点，可以通过
  分析源码知道）；
2.连接两次才能连接的情况：
  可能实是Delphi中的一个逻辑错误造成的吧。
  对于这一点，我有过贴子，见：
  http://www.csdn.net/expert/topic/121/121071.shtm
  还有...一时找不到，在找找。
  function SetErrorProc(ErrorProc: ): TSocketErrorProc;
begin
  Result := SocketErrorProc;
  SocketErrorProc := ErrorProc;
end;

Answer 2

谢谢Musicwind(吾爱是Yaya!)
捕捉错误我已经通过修改原码解决了，但是怎么解决连接两次的问题？

Answer 3

我一般不用Host而用Address，从来没有类似问题。