test de connexion internet

Salut,

J'ai fais une fonction (que j'ai trouvé sur ce site) qui sert à savoir si on est connecté à internet.


function IsUserOnline:Boolean;
var
Connect_status : dword ;
begin
connect_status := 2 { si vous etes en LAN} +
1 { si vous utilisez un modem}+
4 { si vous etes en proxy} ;
result := InternetGetConnectedState (@connect_status,0);
end;

Mon problème est qu'il me dit tout le temps que je suis connecté. J'utilise un modem(adsl), donc je pense qu'il faut seulement mettre connect_status := 1, mais ça marche pas.

Je suis en modem adsl usb est ce pour ça que ça marche pas ?

Merci si vous pouvez m'aider.

uses
WinInet;

function DetectionConnexion: Boolean;
var
dwFlags: DWord;
begin
dwFlags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwFlags, 0);
end;

InternetGetConnectedState marche seulement avec les modems rtc __pour l'adsl et autres connexion (cables , routeurs ) ... vaut mieux utiliser l'astuce suivante :

tester l'ip
si l'ip est ladresse de loopback (127.0.0.1) alors je suis pas connecté au net