Detecter si l'on a toujours la synchro sur son modem

Version imprimable

18/10/2005, 11h34
yoghisan

Detecter si l'on a toujours la synchro sur son modem

Salut,

Je viens de m'abonner chez Free et c'est la catas...
J'aimerai savoir durant mon absent (devant mon ordi) si mon modem se déconnecte régulièrement, à quelle fréquence, etc...

Je pose ici la question car je ne connais absolument à ce domaine...

Comment faire pour savoir si son modem est toujours synchronisé ?

Il faut que je fasse une fonction avec un retour boolean du style :
function TesteSynchro: boolean;

Merci de votre aide, David.
18/10/2005, 13h40
declencher

Bonjour,

Si tu as une machine que tu peux sur laquelle faire un ping, tu peux le faire à intervalle régulier, mais je doute que ce soit la méthode la propre.
18/10/2005, 19h01
Sub0

:faq:

http://delphi.developpez.com/faq/?pa...ctionconnexion

http://sub0.developpez.com/tag.png
Lien tout en bas à gauche de cette fenêtre

Merci sub0 mais ce code ne convient pas car il ne permet pas de savoir si le modem est desynchronisé.

Si tu as une inactivité d'un certain temps, le connexion internet est inactive alors que j'ai toujours la synchro...

Quand je perds ma synchro alors que je serfais, le code dit que je suis toujours connecté...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
unit Unit1;
 
interface
 
uses
  Windows, SysUtils, Forms, ExtCtrls, StdCtrls, Classes, Controls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
  public
    Instant: TDateTime;
    NbrDeconnection: integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
Uses WinInet;
 
function DetectionConnexion: boolean;
var
  dwFlags: DWORD;
begin
  dwFlags := INTERNET_CONNECTION_MODEM +
             INTERNET_CONNECTION_LAN   +
             INTERNET_CONNECTION_PROXY ;
  RESULT := InternetGetConnectedState(@dwFlags,0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Instant := Now;
  NbrDeconnection := 0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Compteur: integer;
begin
  if DetectionConnexion
    then begin
      Label1.Caption := 'Connection active';
    end
    else begin
      Inc( NbrDeconnection );
      Label1.Caption := 'Connection désactivée';
    end;
 
  if NbrDeconnection<2
    then Label2.Caption := 'Il y a eu '+IntToStr(NbrDeconnection)+' déconnexion'
    else Label2.Caption := 'Il y a eu '+IntToStr(NbrDeconnection)+' déconnexions';
 
  Caption := FormatDateTime('hh"h "nn"min "ss"s "zzz"ms', Instant-Now)
end;
 
end.

Dans ce cas, essaye ça et dis-moi ce que tu obtiens :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
//**************************************************
//* test de connection Internet par Sébastien GENOS*
//* http://www.perrysoft.org                       *
//**************************************************
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, registry, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
// Detec V1.01
Function Detection_Connexion : Boolean;
Var
 Reg: Treginifile;
 buff : integer;
Begin
 Reg:=TreginiFile.Create('');
 Reg.rootkey:=HKEY_LOCAL_MACHINE;
 Reg.OpenKey('System\CurrentControlSet\Services\RemoteAccess', False) ;
 Reg.ReadBinaryData('Remote Connection',buff,16);
 if buff = 1 then  Detection_Connexion:=True else
    Detection_Connexion:=False;
 Reg.CloseKey;
 Reg.Free;
End;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Detection_Connexion then Form1.Label1.Caption:='Connexion'
  Else Form1.Label1.Caption:='Pas de Connexion';
end;
 
end.

Sinon, je possède une autre méthode de détection de connexion un peu plus complexe...

Autrement, regarde cette page si tu trouves bonheur, ;)
à+

19/10/2005, 17h28
yoghisan

Avec ton code, il me dit que je ne suis pas connecté alors que j'ai la synchro.

Pour l'autre page, je suis entrain de regarder et rien de satisfaisant

Je vais regarder un peu de coté ping comme le suggere "declencher".
19/10/2005, 17h50
Sub0

Essaye ce dernier code alors et tiens moi au courant :

http://sub0.developpez.com/delphi/netcheck.zip

J'espère au moins que l'état de cette synchro est bien envoyé au système car si ton modem n'envoit pas cette info, tu ne risques pas de pouvoir obtenir son état... Sinon, je suis pas sûr, mais peut-être qu'il faudra chercher du côté des fonctions WMI...
19/10/2005, 19h31
yoghisan

Ben non plus dommage mais c'est plus plus précis que le reste
19/10/2005, 20h18
Sub0

Je crois que cela signifie que la méthode consiste à tester une url (avec un ping) dont on est certain de l'éxistence du serveur. Si on arrive pas à se connecter à ce serveur, c'est que le réseau est coupé (plutot la communication serveur client). Ci-dessous, voici une fonction Delphi qui permet d'éxécuter une url. Si tu ne reçois rien au retour, c'est que tu n'es plus connecté. En réalité, si le serveur cible est out (ce qui est quand même très rare avec certain), tu obtiendras le même résultat. La solution dans ce cas est de tester une autre url, tout simplement. Par exemple, effectue le test de connexion d'une page sur ton propre serveur, puis à la page d'acceuil de Google.com... Si possible, utilise une page web qui s'éxécute rapidement car l'inconvéniant de cette méthode est sa lenteur je crois et n'est pas prévue pour fonctionner dans un timer trop rapide...

http://www.developpez.net/forums/vie...753885#1753885

Cela te convient-il ?
19/10/2005, 22h56
tintin22

j'ai une méthode mais c'est du bricolage, à laisser en dernier recours :D je crois que l'appli du modem possede une icone dans le systray de couleur verte, jaune, ou rouge selon l'etat de la synchro. L'idée c'est de tester la couleur, un genre de GetColor(X,Y), faut aussi connaitre la position de l'icone... voila voila
19/10/2005, 23h38
sfpx

Perso, j'utilise la méthode du ping sur un site dont l'uptime est reconnu comme étant très élevé (pas besoin de vous dire que c'est pas "torry.net" hehe) afin de détecter la connexion à Internet. C'est pas parfait mais c'est proche.

Tous les autres codes de vérifs ne sont pas fiables à 100% de toutes façons. Certains fonctionnent avec un modem standard mais pas avec adsl(PPOE) ou modem cable, etc. Bref , le ping est fiable dans un grosse proportion même si imparfait.
20/10/2005, 12h09
yoghisan

Merci Sub0, j'ai essayé la dernière proposition que tu m'as fait. C'est celle qui me donne le plus de satisfaction comme le dit sfpx.

Je ne pige pas grand chose au code tu as écrit mais juste assez pour arriver à mes fins.
En cas de connexion, le retour de l'erreur HTTP est un peu long (20s), il faut donc un timer assez long sinon ca va.
Comme ca, je pourrais donner à Free de stat sur mes déconnexions !

Encore merci beaucoup Sub0 pour t'etre rendre aussi disponible et courtois pour moi. J'ai beaucoup apprécié tes gestes.

Pour ilyes
Avec Free, il n'y a rien dans la barre des taches.

Il doit y avoir moyen d'optimiser mon code car ce qui t'intérresse en fait, ce n'est pas le retour de la page web, mais simplement vérifier que la communication à internet soit dispo. Regarde dans le code source de la fonction GetHTML(), on vérifie d'abord si on accède au réseau avant d'effectuer la requête... cela peut suffir je pense. Déjà, pour commencer, tu peux simplifier le code comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Uses Wininet; {----------------------------------------------------------------} Function IsConnect: Boolean; Var hSession, hfile: hInternet; Begin Result := False; hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0); If (Assigned(hsession)) Then Begin hfile := InternetOpenUrl(hsession, PChar('http://google.com/index.html'), Nil, 0, INTERNET_FLAG_RELOAD, 0); If (Assigned(hfile)) Then Begin Result := True; InternetCloseHandle(hfile); End; End; InternetCloseHandle(hsession); End; {----------------------------------------------------------------} Procedure TForm1.Timer1Timer(Sender: TObject); Begin If (IsConnect) Then Label1.Caption := 'Connecté' Else Label1.Caption := 'Déconnecté'; End;

Avec Indy
Code:

1 2 3 4 5 6 7 8 ... pinger: TIdIcmpClient; ... pinger.Host:='100.100.100.100';//adresse fictive,mets celle que tu veux pinger.Ping; if pinger.ReplyStatus.ReplyStatusType=rsTimeOut then ...
La propriété ReceiveTimeout de mon pinger est à 2500 c'est à dire que j'attend un maximum de 2.5 secondes pour recevoir la réponse.

20/10/2005, 19h49
yoghisan

il y a les composant indy en version perso ?
20/10/2005, 20h03
sfpx

http://www.indyproject.org/Sockets/Download/Borland.en.iwp
20/10/2005, 20h05
Laurent Dardenne

je suppose que ce type de modem à un firmware ?
est-il possible de l'interroger, comme un modem analogique, avec les commandes hayes ?
Wanadoo dans son soft propose un test de mire pour informer le support si le modem répond bien.
T'es-tu renseigné auprès de ton provider et/ou du fabricant du modem pour ce problème ?
20/10/2005, 23h01
yoghisan

Non, j'ai accès à rien sur le modem lui-meme et ca depasse largement mes compétences de programmateur du dimanche.

Afin d'essayer le truc de sfpx : Comment je fais pour trouver l'adresse ip de "www.google.fr" par exemple ?
20/10/2005, 23h16
sfpx

L'ip de www.google.fr est 64.233.161.147
mais tu peux affecter directement 'www.google.fr' à la valeur host

Vous pourriez me dire pourquoi il me dit que je suis déconnecté alors que je ne le suis pas. Ou plutot pourquoi le ping plante...

En fait, le ping de cette adresse ip est en moyenne de 71ms.
J'ai un "ReceiveTimeout" de 3000, ca devrait etre largement suffisant... ben non !

Où est-ce que je me plante ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
unit Unit1;
 
interface
 
uses
  Windows, SysUtils, Graphics, Forms, Controls, Classes, StdCtrls, ExtCtrls, ShellApi,
  IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient;
 
type
  TDonnee = record
    DateTime: TDateTime;
    Connexion: Boolean;
  end;
  TForm1 = class(TForm)
    pinger: TIdIcmpClient;
    Timer1: TTimer;
    Label1: TLabel;
    Shape1: TShape;
    LabelConnexion: TLabel;
    Label2: TLabel;
    LabelMesure: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Afficher;
    procedure AjouterLigneMemo(Value: TDonnee);
  private
    Donnees: array[0..10000] of TDonnee;
    Mesure: integer;
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  pinger.Host := '66.102.11.104'; // google --> http://www.webrankinfo.com/google/data-centers.php
  pinger.ReceiveTimeout := 3000;
  Timer1.Interval := pinger.ReceiveTimeout + 2000;
 
  Memo1.Clear;
  Mesure := 0;
 
  Donnees[Mesure].DateTime := Now;
  pinger.Ping;
  Donnees[Mesure].Connexion := not (pinger.ReplyStatus.ReplyStatusType=rsTimeOut);
  AjouterLigneMemo(Donnees[Mesure]);
 
  Afficher;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var Donnee: TDonnee;
begin
  Caption := 'Test en cours...';
 
  Donnee.DateTime  := Now;
  pinger.Ping;
  Donnee.Connexion := not (pinger.ReplyStatus.ReplyStatusType=rsTimeOut);
 
  if not (Donnees[Mesure].Connexion=Donnee.Connexion)
    then begin
      Inc(Mesure);
      Donnees[Mesure] := Donnee;
      AjouterLigneMemo(Donnees[Mesure]);
    end;
 
  Afficher;
end;
 
procedure TForm1.Afficher;
begin
  Caption := 'En attente du prochain test';
 
  LabelMesure.Caption := IntToStr(Mesure);
 
  if Donnees[Mesure].Connexion
    then begin
      LabelConnexion.Caption := 'Connecté';
      Shape1.Brush.Color := ClGreen;
    end
    else begin
      LabelConnexion.Caption := 'Déconnecté';
      Shape1.Brush.Color := ClRed;
    end;
end;
 
procedure TForm1.AjouterLigneMemo(Value: TDonnee);
var TexteConnexion: string;
begin
  if Value.Connexion
    then TexteConnexion := 'Connecté'
    else TexteConnexion := 'Déconnecté';
  Memo1.Lines.Strings[Mesure] := DateTimeToStr(Value.DateTime)+#9+TexteConnexion;
  Memo1.Lines.Add('');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'Open', Pchar('http://'+pinger.Host), nil, nil, SW_SHOW);
end;
 
end.

Je peux toujours me debrouiller pour retirant les déconnexions qui sont inférieurs au temps de resynchronisation du modem (25s) mais bon, c'est pas très propre comme méthode.

21/10/2005, 13h43
Sub0

Voilà, j'ai trouvé je crois !! :D

Ce code le fait. Il m'affiche "Déconnecté" dès que je débranche le cable du modem.
Il fonctionne sans Indy, mais avec Icmp.dll :

http://www.howtodothings.com/ViewArticle.aspx?Article=226

Est-ce bien cela que tu recherchais ?

http://sub0.developpez.com/tag.png
Lien tout en bas à gauche de cette fenêtre
21/10/2005, 14h06
Laurent Dardenne

Citation:

Envoyé par Sub0

Voilà, j'ai trouvé je crois !! :D

Bravo pour ta ténacité en tout cas !

Châpeau :ccool:
21/10/2005, 15h34
yoghisan

Encore une nouvelle fois un grand merci sub0.

Cette dernière proposition est encore mieux que celle du composant indy pour sa rapidité de réponse indépendante d'un délai de réponse !

Il arrive que la fonction "ping" réponde "False" alors que tout semble correct !
Tu confirmeras que les deux paramètres pouvant donner cette réponse est
- le modem est déconnecté (alors qu'il qu'il est synchronisé)
- le site est HS (Je prends toujours "www.google.fr" et il n'y a pas de soucis.

Tu as une idée du problème ou est ce normal ?
21/10/2005, 17h30
Sub0

Merci pour vos compliments. ;)

Citation:

Envoyé par yoghisan

Tu confirmeras que les deux paramètres pouvant donner cette réponse est
- le modem est déconnecté (alors qu'il qu'il est synchronisé)
- le site est HS (Je prends toujours "www.google.fr" et il n'y a pas de soucis.

Je confirme.

Quelle est la fréquence de ton timer ?
Perso, j'ai testé avec une fréquence de 1 seconde et ça marche nickel.

http://sub0.developpez.com/delphi/ping.zip
21/10/2005, 17h59
yoghisan

Bon ben Bon ben j'ai la meme instabilité avec ton logiciel. Ca confirme mes craintes, j'ai une connexion à chier...

Encore merci sub0, tu t'es montré d'une disponibilité exceptionnelle !
21/10/2005, 18h09
Sub0

Citation:

Envoyé par yoghisan

j'ai une connexion à chier...

Peut-être possèdes-tu un filtre adsl défectueux...
Ou bien un problème matériel au niveau du modem ou du câble...
Ou bien les pilotes et/ou la configuration du modem ne sont pas correctes... :koi:

Vérifie bien tous ces points avant de te plaindre à ton FAI. :)