[mobiliti]

Возникает ошибка, если интернета нет, или его принудительно вырубить, а вот и сама ошибка: Soket Error # 11001 Вопрос как её перехватить чтобы выключить? Или посоветуйте хорошую функцию для проверки интернет соединения. Перерыл весь интернет, пробовал логические функции Windows

INTERNET_CONNECTION_MODEM ;
INTERNET_CONNECTION_LAN ;
INTERNET_CONNECTION_PROXY ;
INTERNET_CONNECTION_MODEM_BUSY ;

ДА они показывают статус интернет соединения, но есть очень большое ‘но’ чтобы поменялся статус соединения надо перегрузить мое приложение, это мне не подходит, мне надо, что бы статус соединения проверялся каждую секунду. Всем спасибо, особенно кто, поможет по делу)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function CheckInternetConnection(Host: string='google.com'; Port: integer=80; Timeout: integer=1000): boolean;   var TCP: TIdTCPClient; begin   TCP:=TIdTCPClient.Create(nil);   try     TCP.Host:=Host;     TCP.Port:=Port;     TCP.ConnectTimeout:=Timeout;     try       TCP.Connect;       Result:=TCP.Connected;     except       Result:=false;     end;   finally     TCP.Free;   end; end;

[v1s2222]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

private     procedure ClException(Sender: TObject; Error: Exception);   procedure TForm1.ClException(Sender: TObject; Error: Exception); begin   If(Error.ClassName = 'ESocketError') then begin     Memo.Lines.Add('[' + TimeToStr(Time) + '] ' + Error.Message);   end   else     Application.ShowException(Error); // ошибки не сокета end; ... FormCreate:   Application.OnException := ClException;

Это даст возможность ВСЕ не нужные ошибки не выводить, или вывести (как в примере), в мемо.

[mobiliti]

ошибка Socket Error #10038

[eXplorer]

я соединение всегда проверял так:

Код:

1 2 3 4 5 6

begin if Form1.tcpClient1.LocalHostAddr<>'127.0.0.1' then ShowMessage('Соединение есть...') else ShowMessage('Соединения нет...'); end;

[eXplorer]

в OnTimer хорошо работает...

[mobiliti]

Могу с полной уверенностью сказать, что это не правильно , и это полный бред. Поясняю: 1) Если у тебя сетка 2) Если у тебя стоит сервер 3)ну наконец, если у тебя proxy ТО у тебя программа будет все время показывать CONNECT. Т. е. делаем вывод это в корне не правильно.

[eXplorer]

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

Могу с полной уверенностью сказать, что это не правильно , и это полный бред. Поясняю: 1) Если у тебя сетка 2) Если у тебя стоит сервер 3)ну наконец, если у тебя proxy ТО у тебя программа будет все время показывать CONNECT. Т. е. делаем вывод это в корне не правильно.

1) у меня нету сетки
2) у меня нету сервера
3) у меня нуту прокси
для меня то все условия подходит... честно этого не знал знаю только то что у меня работает хорошо и всё сорри...

[mobiliti]

Ты программы делаешь для себя или для людей?

[eXplorer]

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

Ты программы делаешь для себя или для людей?

для себя

[mobiliti]

Ну, это в корне меняет дело

[Rat]

Ошибка вылазит только при запуске из IDE? или просто когда отдельно exe запускаешь?