Question

delphi idhttp如果网络断开，怎么让程序本身延时然后再自动开始？

procedure TForm1.Button2Click(Sender: TObject);
var
temp:ansistring;
Response: TStringStream;
begin
Response := TStringStream.Create('');
try
idhttp1.get('http://www.baidu.com',response);
except
on e:Exception do
begin
richedit1.lines.Add('网络可能不好，自动停止采集');
//这里怎么处理呢？比如延时五分钟，然后再自动运行这个过程？
exit;//
end;
end;

Answer 1

在Form上放一个TTimer,建立OnTimer事件

procedure TForm1.Button2Click(Sender: TObject);
var
temp:ansistring;
Response: TStringStream;
begin
Response := TStringStream.Create('');
try
idhttp1.get('http://www.baidu.com',response);
except
on e:Exception do
begin
richedit1.lines.Add('网络可能不好，自动停止采集');

Timer1.Interval := 5*60*1000; // 5分钟
Timer1.Enabled := True; // 开始计时

//这里怎么处理呢？比如延时五分钟，然后再自动运行这个过程？

exit;//
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Button2.Click; // 继续调用
end;

Answer 2

如果网络断开，电脑会自动寻找网络，但不会自动复 原而是回到，刚开始的界面