[Вовка]

Код:

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 ;

[Alegun]

Oшибка 10057 - Socket is not connected

IMHO, не хватает элементарной обработки исключительной ситуации... (Exception...)

[Вовка]

Сообщение от Alegun

Oшибка 10057 - Socket is not connected

IMHO, не хватает элементарной обработки исключительной ситуации... (Exception...)

для определения соединения интернет или для get запроса?

[Alegun]

Сообщение от Вовка

для определения соединения интернет или для get запроса?

Лучше везде, но почему InternetGetConnectedState должна реагировать на прерванно\неправильное соединение, лучше задействовать "фирменную" для мелкомяконьких проверку

Код:

uses
  WinInet;
function IsConnectedToInternet: Boolean;
begin
  Result:= InternetCheckConnection('http://www.msftncsi.com/ncsi.txt', 1, 0);
end;

[Вовка]

Сообщение от Alegun

Oшибка 10057 - Socket is not connected

IMHO, не хватает элементарной обработки исключительной ситуации... (Exception...)

если отдельно в новом проекте запустить проверку интернета и гет запрос
все работает без нареканий а тут ошибки с памятью и сокет ерор лезет в чем дело не пойму подскажи как правильно написать исключение

[Alegun]

Сообщение от Вовка

...в чем дело не пойму подскажи как правильно написать исключение

Да что ж, добавить блоки try..finally..end;..except..end; это проблема что ли а вылет кстати, может быть ещё и из-за повторных срабатываний таймера, желательно делать

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:= false;
If IsConnectedToInternet then
.....
....
...
Timer1.Enabled:= true;
end ;