| Student :) |
27.08.2009 11:46 |
автоматическая перегрузка модема
Добрый день написал программу на delphi для автомат перегрузки роутера через веб интерфейс но программа зависает ( где ошибка подскажите пожалуйста с меня +
листинг
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
error:=1;
timer1.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
icmp.Host:=edit1.text;
icmp.Ping();
label1.Caption:='Âðåìÿ äî õîñòà: '+inttostr(icmp.ReplyStatus.MsRoundTripTime)+'ms';
label2.Caption:=inttostr(error);
if (icmp.ReplyStatus.MsRoundTripTime>4000) then error:=error+1;
if (error=3)
then
begin
timer1.Enabled:=false;
// showmessage('aaaaa');
idhttp1.Request.BasicAuthentication :=true;
idhttp1.Request.Username:='admin';
idhttp1.Request.Password:='admin';
try
idhttp1.Get('http://192.168.0.1/cgi-bin/reset.cgi') ;
finally
FreeAndNil( idhttp1 );
end;
error:=1;
timer1.Enabled:=true;
end;
end;
end.
|
