test de connexion internet

Question

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.

cs_subzero · Answer

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;

soldier8514 · Answer

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&#233; au net

Test de connexion internet

2 réponses

Votre réponse

Discussions similaires