|
#1
|
|||
|
|||
IdHTTP
Здравствуйте, подскажите пожалйста
Код:
procedure TForm1.Button1Click(Sender: TObject); var html,a:string; begin timer2.Enabled:=false; m:=0; s:=0; label4.Caption:='00:00'; Try //попытка 1 idHttp1.ReadTimeout:=10000; html :=IdHTTP1.Get('http://ifconfig.me/ip'); Edit1.Text :=Copy(html, Pos('<pre>', html)+1, 21); timer2.Enabled:=true; Except //попытка2 idHttp1.ReadTimeout:=10000; html :=IdHTTP1.Get('http://ifconfig.me/ip'); Edit1.Text :=Copy(html, Pos('<pre>', html)+1, 21); timer2.Enabled:=true; end; end; до этого в коде не было старта и стопа секундомера Код:
timer2.Enabled:=false; m:=0; s:=0; label4.Caption:='00:00'; // и timer2.Enabled:=true; Последний раз редактировалось lmikle, 11.10.2018 в 18:52. |
#2
|
|||
|
|||
убери строку 13, а строку18 перенеси перед последним end. Ну и, собственно, а кто будет обрабатывать возможную ошибку в секции Except.
|
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Alex7 (11.10.2018)
|