神马品牌网美特斯邦威女装加盟:delphi程序问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/11 05:33:34
我是新手，在写一个小程序，就是每隔10秒钟去检测一个地址，如果地址不能访问，就计数，在一分钟内不能访问的次数超过5次，就重启电脑。
请问能大致帮我写一个吗？我加了Timer,乱乱的，好像是用Inc函数,但又不会用，谢谢了。
请问能大致帮我写一个吗？我加了Timer,乱乱的，好像是用Inc函数,但又不会用，谢谢了。
procedure TForm1.Timer1Timer(Sender: TObject);
var IP :string;
i:integer; //i为记数
begin
if i<=5 then //如果不可访问次数i<=5
begin
{地址访问}； //访问地址,给出访问返回值IP
if {地址不可访问 then //
Inc(i);
end
else
{重启电脑}； //如果不可访问次数>5,重启
end;
end.
使用2个Timer时间,一个控制每十秒去检测地址,一个控制每1分钟把记数请零,以上是第一个Timer事件大致代码,第2个好写,不多赘述
设计思想有点问题,网络不能访问时,返回结果一般会有一点延时,这样一分钟内一定不会超5次, 即总时<=5.
如果是在局域网中,并且返回很快,在哪个地址不能访问时,运行这个程序的计算机只有不断重启了.
实现方法,用两个timer,一个事件发生间隔时间为1000ms,另一个为也60000ms,即一分钟,
第一个事件发生时,检测网络,如果不通计数加1.
第二个事件发生时,检查第一个的计数,如果大于5就重启,否则就将计数清零.