|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ошибка soketerrot #10057
Код:
function IsConnectedToInternet: Boolean; begin dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState (@dwConnectionTypes, 0); end; Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin If IsConnectedToInternet then begin IdHTTP2.HandleRedirects:=true; data:=IdHTTP2.Get('http://fegorsk.ru/script/time.php?zapros=784');// сдесь пишет что ошибка из за socket error#10057 maskedit1.Text:=Copy(data, Pos('%', data) + 1, 8); end else begin showmessage('провертье соединение интернета'); timer1.Enabled:=false; end; end ; |
#2
|
||||
|
||||
Oшибка 10057 - Socket is not connected
IMHO, не хватает элементарной обработки исключительной ситуации... (Exception...) Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Цитата:
Код:
uses WinInet; function IsConnectedToInternet: Boolean; begin Result:= InternetCheckConnection('http://www.msftncsi.com/ncsi.txt', 1, 0); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Цитата:
все работает без нареканий а тут ошибки с памятью и сокет ерор лезет в чем дело не пойму подскажи как правильно написать исключение |
#6
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled:= false; If IsConnectedToInternet then ..... .... ... Timer1.Enabled:= true; end ; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |