delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
TIdTCPClient的联接问题 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiNetwork/html/delphi_20061119143329299.html
TIdTCPClient1.Connect(500);  
  连接失败时,有时能够在500返回,有时需要几十秒返回,为什么呢  
 

我也碰到这个问题,这个问题主要出现在不存在的ip情况下,最好先ping一下后连接。

很多IP是不允许PING的,好像隔三五次就有一次时间很长的。

重现很容易的,谁有时间帮看一下  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      i:   Integer;  
      b:   Cardinal;  
  begin  
      for   i:=   0   to   100   do   begin  
          try  
              b:=   GetTickCount;  
              IdTCPClient1.Connect(500);  
          except  
   
          end;  
          b   :=   GetTickCount   -B;  
          Memo1.Lines.Add(FloatToStr(b));  
      end;  
  end;

随便指定一个连接不上的IP和Port

有没有人搞过,看INdy的代码一天,没有进展,调connect系统函数直接死住了。

你可以ping指定的端口号,为什么不行呢

posted on 2009-05-26 17:29 delphi2007 阅读(626) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。