IDHTTP的超时怎么解决？

仓库管理软件版1楼: 使用IDHTTP向一个网站不断发送数据，但是碰到网络发生问题或者网站服务器出问题，IDHTTP没有返回值，那我的程序就一直在等待，就象程序死了一样。请问如何在程序中处理这种情况？

2楼: IdHTTP1.ReadTimeout := 3000; // 读取超时：3秒如下载金蝶财务软件

3楼: 如何在程序中处理超时？如果我发过去数据，即没有正确消息返回，又没有错误消息返回，程序怎么判断，怎么样能让程序继续走下去？

4楼: 我也正好有这个问题

5楼: 刚才试验一下，原来出错都是会产生exception的，捕捉一下就行了

6楼: 比如下面这样的代码：
procedure ThreadTracData.Execute;
var
strsql: string;
i: integer;
PostStr: string;
strMsg: string;
sParam: TStringStream;
begin
{ Place thread code here }
SuperviseInfaceService.Query.Connection :=SuperviseInfaceService.Conn ;
SuperviseInfaceService.idHttp.Request.ContentType :=＇＇application/x-www-form-urlencoded＇＇;
SuperviseInfaceService.IdHTTP.ReadTimeout:=5000;
try
while not Terminated do
begin
//受理项目
strsql:=＇＇select * from AcceptItem order by Serialno＇＇;
SuperviseInfaceService.Query.SQL.Clear ;
SuperviseInfaceService.Query.SQL.Text:=strsql;
SuperviseInfaceService.Query.Open ;
if not SuperviseInfaceService.Query.Eof then
begin
for i:=0 to SuperviseInfaceService.Query.RecordCount -1 do
begin
SuperviseInfaceService.Conn.BeginTrans;
PostStr:=SuperviseInfaceService.Query.fieldByName(＇＇SerialNO＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.FieldByName(＇＇CreateTime＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇RecordType＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.FieldByName(＇＇DepartmentID＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇ItemClassID＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇ItemObjectID＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇ItemType＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇IsUnitObject＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇UnitOrder＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇AcceptDate＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇AcceptTime＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇OperatorID＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇OperatorName＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇OperatorBus＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇ApplicantOrgName＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇ApplicantPassType＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇ApplicantPassID＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇Material＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇Telephone＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇MobileTelephone＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇Fax＇＇).AsString ;

PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇EMail＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇PostCode＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇Address＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇TagReturn＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇WriteReturn＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇IsAccepted＇＇).AsString ;
PostStr:=PostStr + ＇＇|&＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇Mark＇＇).AsString ;
//SuperviseInfaceService.LogMessage(PostStr);

Try
sParam:=TStringStream.Create(＇＇＇＇);
sParam.WriteString(＇＇message=＇＇+UrlEncode(PostStr,true));
SuperviseInfaceService.IdHTTP.Post(SuperviseInfaceService.sURL,sParam);
sParam.Free;

if SuperviseInfaceService.IdHTTP.ResponseCode=200 then
begin
try
SuperviseInfaceService.Conn.BeginTrans;
InsertStr:=＇＇insert into AcceptItem_History(SerialNO,CreateTime,RecordType,DepartmentID,ItemClassID,ItemObjectID,＇＇;
InsertStr:=InsertStr + ＇＇ItemType,IsUnitObject,UnitOrder,AcceptDate,AcceptTime,OperatorID,OperatorName,＇＇;
InsertStr:=InsertStr + ＇＇OperatorBus,ApplicantOrgName,ApplicantPassType,ApplicantPassID,Material,Telephone,＇＇;
InsertStr:=InsertStr + ＇＇MobileTelephone,Fax,Email,PostCode,Address,TagReturn,WriteReturn,IsAccepted,Mark,TranDate) values (＇＇;
InsertStr:=InsertStr + ＇＇＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇SerialNo＇＇).AsString + ＇＇＇＇＇＇＇＇;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇CreateTime＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇RecordType＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇DepartmentID＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇ItemClassID＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇ItemObjectID＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇ItemType＇＇).AsString + ＇＇＇＇＇＇＇＇ ;

InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇IsUnitObject＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇UnitOrder＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇AcceptDate＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇AcceptTime＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇OperatorID＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇OperatorName＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇OperatorBus＇＇).AsString + ＇＇＇＇＇＇＇＇ ;

InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇ApplicantOrgName＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇ApplicantPassType＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇ApplicantPassID＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇Material＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇Telephone＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇MobileTelephone＇＇).AsString + ＇＇＇＇＇＇＇＇ ;

InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇Fax＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇Email＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇PostCode＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇Address＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇TagReturn＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇WriteReturn＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇IsAccepted＇＇).AsString + ＇＇＇＇＇＇＇＇ ;

InsertStr:=InsertStr + ＇＇,＇＇＇＇＇＇ +SuperviseInfaceService.Query.fieldByName(＇＇Mark＇＇).AsString + ＇＇＇＇＇＇＇＇ ;
InsertStr:=InsertStr + ＇＇,getdate())＇＇;
//SuperviseInfaceService.LogMessage(InsertStr);
SuperviseInfaceService.Conn.Execute(InsertStr);

strsql:=＇＇delete AcceptItem where SerialNO=＇＇＇＇＇＇ + SuperviseInfaceService.Query.fieldByName(＇＇SerialNO＇＇).AsString + ＇＇＇＇＇＇＇＇;
SuperviseInfaceService.Conn.Execute(strsql);
SuperviseInfaceService.Conn.CommitTrans;
except
SuperviseInfaceService.Conn.RollbackTrans;
end;
end;
except
//SuperviseInfaceService.LogMessage (＇＇受理发送异常＇＇);

end;
SuperviseInfaceService.Query.Next;
if SuperviseInfaceService.Query.Eof then Break;
end;
end;
SuperviseInfaceService.Query.Close ;

sleep(5000);
end
except on E: Exception do
begin
SuperviseInfaceService.Conn.RollbackTrans;
SuperviseInfaceService.LogMessage(＇＇数据库错误：＇＇ + e.message);
end;
end;
end;

仓库管理软件版7楼: 忘记说明了
这个是服务中的一个线程。数据库连接是在服务开始的时候配置的。IDHTTP的超时设置为5000。在服务运行过程中，在晚上的某个时候就停止发送数据了，但是服务还在运行中。只有重新启动服务才能恢复数据发送功能。请问：问题可能出现在什么地方？是不是HTTP的设置上有问题还是程序的逻辑上有问题？

8楼: 哪用这么麻烦，idhttp1.ConnectTimeout:＝10000;ok！

上一篇：怎样复制同名数据库的数据下一篇：100大元求助!关于Ftp站点的探测问题

联系我们

财务软件使用常见问题

进销存财务管理软件常见问题

仓库管理软件论坛精华

销售管理软件论坛精华

进销存软件精彩推荐

一个selcet 搜索语句的

如何在FastReport3.15中

SOS:这个问题似乎有些难

请问:如何将多条记录(只

怎样复制同名数据库的数