解决INDY组件IDHTTP ConnectTimeout 超时问题(转载)

wang_80919

原帖地址：
http://www.piaoyi.org/delphi/INDY-IDHTTP-chaoshi.html
正文：
飘易在以前的博文里曾经提起过INDY组件IDHTTP超时问题，链接：《INDY组件IDFTP/IDHTTP的connecttimeout超时问题》，在那篇文字里，我采用了ICS的组件代替INDY组件的方法解决这个超时问题。今天，我看到那篇文章下面的一位网友留言：
“嘿嘿，哪儿有那么麻烦了，不需要修改代码。indy这么多年了，这种低级错误在indy10里面处理的差不多了。
只要设置
   IdFTP1.ReadTimeout:=3000;
   IdFTP1.ConnectTimeout:=3000;
这就OK了。
IdIOHandlerStack 里的 WaitFor 是受ReadTimeout限制的，不要去掉，加上 IdFTP1.ReadTimeout:=3000;
就成了。”
    经过飘易的测试，果然，当加上 ReadTimeout 的属性时，我要的延时时间的效果就出来了。虽然超时的时间和我预期的有所差别，但这个INDY 10 版本的超时时间真的起了作用。详细的分析看我的测试，我的测试代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
t1,t2:int64;
str1:string;
IdHTTP1:TIdHTTP;
begin
try
t1:=GetTickCount; //毫秒级
IdHTTP1 := TIdHTTP.create(nil);
IdHTTP1.ReadTimeout:= strtoint(edit2.Text)*1000;
IdHTTP1.ConnectTimeout:= strtoint(edit3.Text)*1000;
str1:=IdHTTP1.Get(edit1.Text);
IdHTTP1.Free;
t2:=GetTickCount;
memo1.Clear ;
memo1.Lines.add(inttostr(t2-t1));
memo1.Lines.add(str1);
except
t2:=GetTickCount;
memo1.Clear ;
memo1.Lines.add(inttostr(t2-t1));
memo1.Lines.add('err:'+DateTimeToStr(now()));
end;
end;

    我对这样的网址 www.qq.org、www.youtube.com 进行了测试，当我没有加上 IdHTTP1.ReadTimeout 这个属性时，访问以上2个网址的超时时间均是 20秒左右，无论 IdHTTP1.ConnectTimeout 设置多少。而当我加上 IdHTTP1.ReadTimeout 属性时，超时时间立即体现了出来。

ReadTimeout设为1000ms时，实际超时时间为3125ms
ReadTimeout设为2000ms时，实际超时时间为6125ms
ReadTimeout设为3000ms时，实际超时时间为9125ms
ReadTimeout设为4000ms时，实际超时时间为12125ms
ReadTimeout设为5000ms时，实际超时时间为15125ms
ReadTimeout设为6000ms时，实际超时时间为18125ms
ReadTimeout设为7000ms时，实际超时时间为20969ms
ReadTimeout设为8000ms时，实际超时时间为20953ms
ReadTimeout设为9000ms时，实际超时时间为20953ms

    从以上的实际测验数据来看，飘易发现，当 ReadTimeout 设置值小于7秒时，实际超时时间是 ReadTimeout的值的3倍（即=ReadTimeout*3）；当 ReadTimeout 设置值大于7s时，实际超时时间维持在20s左右，这是因为indy10组件的默认最大超时时间即20S。实际超时时间和 ConnectTimeout 并无关系。
    飘易猜测，ConnectTimeout只有在网络正常的情况下才有效，而当网络不正常时，ReadTimeout才真正的起作用，即IdIOHandlerStack 里的 WaitFor 是受ReadTimeout限制的，因此，这2个属性应该结合实用，感谢“悦然大悟”。