关于idHTTP超时问题?

Question

高人,有没办法判断如果不超时?再执行后面的代码?        IdHTTP1.Head(trim(Edit1.Text));
        IdHTTP1.ReadTimeout:=5000; // 2.5秒        if IdHTTP1.Response.ResponseCode=200 then (这一句怎么改,使其不超时才执行?)
        begin
                ..........(此处代码忽略)
        end; 
在线等....谢了..........

Answer 1

为什么IdHTTP1老是报错啊?可不可隐藏错误继续执行..........?????如何改?

Answer 2

就算我做了以下的改进,还是不行..1. 加上 IdHTTP1.Response.ResponseCode<5000 的条件,还是不行.为什么?2.加了try语句还是报错?

Answer 3

用
try
  retStr:=idHttp.Get('http://...');
  if Pos(keyword,retstr)=0 then 
    showmessage('异常')
  else
    showmessage('正常');
except
  showmessage('异常');
end;

Answer 4

分太低，懒得动-------------------------------------------------------
本回复由大傻的破玩意儿【CSDN's forum Explorer】完成！
软件功能强大，速度超快！！支持中...
软件下载地址：http://CoolSlob.ys168.com