Có cách nào để đặt thời gian chờ phản hồi cho Indy Tidhttp không?

Question

Tôi đã xây dựng một ứng dụng giám sát trang web đơn giản bằng cách sử dụng thành phần Indy TIdhttp. Tôi muốn phát hiện khi một trang được chỉ định không được trả lại trong một khung thời gian cụ thể (tôi đang sử dụng 5000 mili giây). Như một bài kiểm tra, tôi đã tạo một trang trên một trang web cố ý mất 15 giây để trả lời. Nhưng tôi không thể có được thủ tục của tôi để "từ bỏ" sau 5 giây. Tôi đã thử ReadTimeout, một suggested solution sử dụng bộ hẹn giờ và sự kiện OnWorkBegin (không bao giờ có thể nhận được OnWorkBegin để kích hoạt ngay sau khi nhận được cuộc gọi).

Lưu ý Tôi không lo lắng về thời gian chờ kết nối. Mối quan tâm của tôi ở đây là một thời gian chờ cho máy chủ trở lại với một trang.

Đây là một số mã nguồn tôi đã sử dụng. Nó chứa nhiều yếu tố tôi tham khảo.

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 
     AppendToLog('Server did not respond withing 5 seconds'); 
     end; 
    end; 
    finally 
    GetTimer.Free; 
    idhttp.free; 
    end; 
end; 

Answer 1

Tôi cuối cùng đã nhận được câu trả lời dựa trên nhận xét của Rob Kennedy. Tôi đã cố gắng nhiều lần để liên lạc với anh ta và yêu cầu anh ta trả lời "chính thức" để tôi có thể cho anh ta phiếu bầu. Chưa bao giờ nghe lại.