大佬教程收集整理的这篇文章主要介绍了delphi – 有没有办法为Indy Tidhttp设置响应超时?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
注意我并不担心连接超时.我担心的是服务器返回页面的超时.
这是我一直在使用的一些源代码.它包含我参考的许多元素.
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;
以上是大佬教程为你收集整理的delphi – 有没有办法为Indy Tidhttp设置响应超时?全部内容,希望文章能够帮你解决delphi – 有没有办法为Indy Tidhttp设置响应超时?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。