Проверка подключения к интернету

[badfilin]

Здраствуйте.

Как сделать так чтобы программа проверяла подключен ли мой компьютер к интернету или чтобы проверяла работает ли данное подключение.

Спасибо.

[badfilin]

неужели никто не знает? =)

[mihali4]

Это называется PING...
Зайдите в раздел "Работа с сетью в Delphi", там этот вопрос неоднократно освещался. По сути к языку этот вопрос не привязан.

[Руслантус]

нашел кое-что в одном из справочьников, может тебе поможет
FAQ o Win API
Q> Как определить,имеется ли соединение по RAS?
A>

BOOL IsInternetConnected ()
{
DWORD nRasDevices = 20;
DWORD nSize = 20;

RASCONN rasconnected [10]; // Ras Connected struct

rasconnected[0].dwSize = sizeof(RASCONN);
RasEnumConnections( rasconnected, &nSize, &nRasDevices );

return ( BOOL (nRasDevices) );
}

Note:Win95(в отличие от NT) считает что соединение произошло,как только модем подымает трубу ;-)

[merax]

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

Это называется PING...
Зайдите в раздел "Работа с сетью в Delphi", там этот вопрос неоднократно освещался. По сути к языку этот вопрос не привязан.

Причем тут пинг???? Все элементарно.

#include <windows.h>

 #include <wininet.h>

 #include <stdio.h>

 #include <conio.h>
 
 
 
 typedef BOOL (WINAPI* INETCHECKPROC) (LPDWORD lpdwFlags, DWORD dwReserved);
 
 bool GetStatusConnect()
 {
 
     bool bRetVal;
 
     HINSTANCE hLib = NULL;
 
     INETCHECKPROC pfnInternetGetConnectedState;
 
     hLib = LoadLibrary("wininet.dll");
 
     if (!hLib) 
 
         return 0;
 
      pfnInternetGetConnectedState = (INETCHECKPROC)GetProcAddress(hLib, "InternetGetConnectedState");
 
 
     if(!pfnInternetGetConnectedState)
 
         return false; 
 
     DWORD lpdwFlags;
 
     bRetVal = pfnInternetGetConnectedState(&lpdwFlags, 0) != 0;

     FreeLibrary(hLib); 

     return bRetVal; 

 }

 void main(void)

 {

     printf(GetStatusConnect()?"Connected":"Disconnected");
     printf("\r\nPress any key to continue"); 

     while(!_getch());
 
     return; 

 }

[mihali4]

Причем тут пинг?

Да при том, что это - единственно достоверный способ.
Все эти "CONNECTED" могут висеть сколько угодно, хотя реально соединения с инетом нет. Собственно, вопрос уже достаточно обмусолен, не вижу смысла повторяться.

[merax]

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

Да при том, что это - единственно достоверный способ

А если пинг зарублен на маршрутизаторах? И телнет ? Скажите еще письмо отправить и ждать ответ

P.S. Хотя можно tracer и nslookup попробовать. Интересная тема. Попробую решение найти.

[mihali4]

А если пинг зарублен на маршрутизаторах? И телнет ? Скажите еще письмо отправить и ждать ответ

Так а что - это будем считать как "есть доступ"?
Странная логика.
Тогда, знаете ли, мы все с вами - миллионеры. Ведь где-то там эти деньги есть...
И то, что нас "зарубают" на входе в банк - это ерунда, ведь деньги-то там лежат...
И что банк на наши письма не отвечает - тоже чепуха, ведь мы то знаем - деньги там есть...

[B_N]

Даже более того, признаком того, что интернет есть может быть только то, что мы сумели прицепиться по определённому порту к определённому адресу или (О! Нас пустили на DNS!) определённому домену. Все Ras-, Net-, WNet- енумы хороши только чтобы определиться в новом "жизненном" пространстве или попробовать "дозвониться". Если учесть, что сейчас чуть не каждый текстовый редактор или гляделка картинок так и норовят вылезти в интернет, да еще высунуть туда пару-тройку портов, ответ им всегда один - ACCESS DENIED. Ну можно еще покопать в сторону Skype - крайне мерзопакостная программа.

[badfilin]

Всем спасибо. Буду смотреть и эксперементировать.