Discussion :

[xenos]

Salut,

J'ai trouvé plusieurs fonctions qui permettent de savoir si oui ou non on est connecté à internet. Entre autre les deux suivantes :

(1) http://www.darkskull.net/?module=vie...e&idarticle=40 :

Lorsqu'on crée une application qui a un accès à internet (par exemple, un navigateur), il peut être interressant de déterminer si l'on est connecté ou pas. La solution se trouve dans la base de registre, sous la clé
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\RemoteAccess\Remote Connection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses
  Windows, Registry;
 
function is_Connect : Boolean;
Const
  DIR_REG_IS_CONNECT = '\System\CurrentControlSet\Services\RemoteAccess';
  REG_Remote_Connection = 'Remote Connection';
var
  Reg : TRegistry;
  Buff : Dword;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKeyReadOnly(DIR_REG_IS_CONNECT);
  Reg.ReadBinaryData(REG_Remote_Connection, buff, 4);
  Result:= (Buff = 1);
  Reg.Free;
end;

(2) http://delphi.developpez.com/faq/?pa...ctionconnexion :

Il suffit de se servir de la fonction de l'API suivante contenue dans l'unité WinInet :
InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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;

Cette fonction nous renvoie True si on est connecté ou False si on ne l'est pas.
Ceci ne fonctionne pas pour une connection par LAN.

Cette seconde méthode, à savoir l'utilisation de l'API InternetGetConnectedState se retrouve aussi sur les sites suivants :
- http://delphipage.free.fr/astuces/connecteoupas.html
- http://phidels.com/php/index.php3?pa...ip.php3&id=125

J'aimerais savoir si il y a une réelle différence à utiliser une fonction plutôt que l'autre. Si oui, quels sont les différences, avantages, ...

D'avance merci pour votre analyse.

[Soulama]

Salut,
jai essayé les 2 Methodes, elles marche bien mais sur des OS Differents.
La premiere sur Win 98, la deuxieme sur Win XP.
Enfin jai fais ma propre Function qui fait un ping vers google.fr.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Function Isconnected2Internet: Boolean ;
Result:= Ping('www.google.fr')

La Function Ping est a developer avec Indy 9 ou 10

[Droïde Système7]

Bonjour,

Hé hé ! un super topic qui devrait servir à complémenter la FAQ... ;-)

[Sub0]

Salut!

http://www.developpez.net/forums/showthread.php?t=60369

Quelques sources :
http://sub0.developpez.com/delphi/ping.zip
http://sub0.developpez.com/delphi/detect_sync.zip
http://sub0.developpez.com/delphi/netcheck.zip

à+