相关疑难解决方法(0)

有人可以帮助告诉有关如何卸载Indy 10并安装最新版本的详细信息吗？我找到了它http://indy.fulgan.com/ZIP/IndyTiburon.zip

有一个类似的问题,但不是一个令人满意的答案,只是来自用户的一些评论,但这不是一步一步的指导.

为什么没有这个工具？

我使用Indy TIdhttp组件构建了一个简单的网站监控应用程序.我想检测何时在指定的时间范围内没有返回指定的页面(我使用5000毫秒).作为测试,我在网站上创建了一个页面,故意需要15秒才能响应.但是我不能让我的程序在5秒后"放弃".我尝试过ReadTimeout,一个使用计时器和OnWorkBegin事件的建议解决方案(在get调用之后永远无法让OnWorkBegin立即触发).

注意我并不担心连接超时.我担心的是服务器返回页面的超时.

这是我一直在使用的一些源代码.它包含我引用的许多元素.

procedure TServLogic.WorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
begin
  GetTimer.Enabled := True;
end;
procedure TServLogic.WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  GetTimer.Enabled := False;
end;

procedure TServLogic.GetTimerTimer(Sender: TObject);
begin
  idHttp.Disconnect(True);
end;

procedure TServLogic.CallHttp(mlink: String): String;
begin
  result := '';
  GetTimer := TTimer.create(nil);
  GetTimer.OnTimer := GetTimerTimer;
  GetTimer.Interval := 5000;
  try
    IdHTTP := TIdHTTP.create(nil);
    idhttp.ReadTimeout := 5000;
    IdHttp.OnWorkBegin := WorkBegin;
    IdHttp.OnWorkEnd   := WorkEnd;
    try
      result  := idhttp.get(mLink);
    except
      on e:exception do begin …

所以我正在使用tidhttp发布帖子请求.当我尝试设置connectTimeout时,无论什么时间段它都没有效果.在我得到例外之前,我仍然等待〜5秒.提前致谢!