tester si un ordi est connecté au net

Version imprimable

22/09/2009, 18h24
iznogoud_23

tester si un ordi est connecté au net

Bonjour à tous amis programmeurs.

Je développe une appli et je souhaiterais, au démarrage, déterminer si le poste sur lequel cette appli s'exécute est connecté à internet ou non, que ce soit par modem (si ca existe encore), ou via une box ou un LAN d'entreprise (bref, quelle que soit la configuration possible.
Après avoir fureté sur le forum ici et sur d'autres sites, j'en suis vite venu à la conclusion logique que la meilleure facon de faire est de pinger un site et de vérifier si ca passe ou pas.

J'ai cru trouver mon bonheur ici : http://delphi.developpez.com/faq/?pa...ne_ip#indyping
mais problème, il faut les droits admin sur NT/2000/XP/vista/Seven sous peine de recuperer une erreur : Access Denied Error (Socket Error #10013) during runtime (class EIdSocketError).

J'ai également testé ca : http://www.delphi-central.com/tutorials/icmp-ping.aspx
Mais ca ne fonctionne pas non plus car j'ai des pb liés à l'unicode de delphi 2009. Donc, sachant que les fonctions Fetch et TranslateStringToTInAddr existent déjà dans l'unité IdGlobal, j'ai essayé de simplifier, mais étant un pur débutant en programmation, qui pour ne rien arranger, est une bille en réseau, je suis totalement bloqué.

Comment faire , simplement, et sans droit admin, un test de connexion?

PS : la question semble simple, mais au vue du nombre de codes qui ne fonctionnent pas trouvés sur le net, la solution n'est p'tete pas si simple :lol:

Merci d'avance
23/09/2009, 00h01
Just-Soft
Salut;

si tu es sous windows tu peux utiliser la librairie URL.DLL, tu l'importes puis tu utilises la fonction InetIsOffline comme ceci :

Citation:

function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

le codage est assez simple :
Code:

1 2 3 4 if InetIsOffline(0) then ShowMessage('Vous êtes connectés à Internet!') else ShowMessage('Vous n''êtes pas connectés à Internet!');
l'argument flag est toujours mis à 0.
23/09/2009, 14h45
iznogoud_23
Citation:
Envoyé par Just-Soft

Salut;

si tu es sous windows tu peux utiliser la librairie URL.DLL, tu l'importes puis tu utilises la fonction InetIsOffline comme ceci :

le codage est assez simple :

Code:

1 2 3 4 if InetIsOffline(0) then ShowMessage('Vous êtes connectés à Internet!') else ShowMessage('Vous n''êtes pas connectés à Internet!');

l'argument flag est toujours mis à 0.
Je viens d'essayer et bizarement, ca ne fonctionne pas. Ca me dit toujours que je ne suis pas connecté...:cry:
23/09/2009, 15h33
GoustiFruit

Parefeu ?

oui mais non :lol:
effectivement, c'est une très judicieuse remarque GoustiFruit, mais meme avec le par-feu desactivé, j'ai droit au "non connect"

Bon, poussant un peu mes recherche, j'ai tenté ca :

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
function TForm1.Connected2: Boolean;
var
  bconnect: boolean;
  httphandle: HINTERNET;
  openhandle: HINTERNET;
  connectionhandle: HINTERNET;
begin
  bconnect:=false;
  openhandle := InternetOpen('PRM8', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(openhandle) then
    begin
      try
        connectionhandle:=InternetConnect(openhandle,PChar('http://rapporteur.meteo.free.fr'),INTERNET_DEFAULT_HTTP_PORT,nil,nil,INTERNET_SERVICE_HTTP,0,1);
        if Assigned(connectionhandle) then
          begin
            try
              httphandle:=HttpOpenRequest(connectionhandle,nil,PChar('/PRM.html'),nil,nil,nil, INTERNET_FLAG_RELOAD, 1);
              if Assigned(httphandle) then
                begin
                  bconnect:=true;
                  InternetCloseHandle(httphandle);
                end;
           finally
             InternetCloseHandle(connectionhandle);
           end;
         end;
      finally
        InternetCloseHandle(openhandle);
      end;
    end;
  Result := bconnect
end;

et là c'est l'inverse... connecté ou non, je récupere 'true' comme resultat (donc connecté)

c'est dingue ca...

23/09/2009, 17h10
exoseven

tu peux tester cette méthode http://www.swissdelphicenter.com/en/showcode.php?id=466
24/09/2009, 23h49
iznogoud_23

cette methode ne marche pas mieux :( je desespere
25/09/2009, 09h46
GoustiFruit

Essaye de télécharger un petit fichier, si tu peux le récupérer, tu es connecté ;-)
25/09/2009, 13h49
mick605

Salut

Je sais que sous Delphi 2005, j'avais trouvé une fonction qui permettait de savoir le type de connection du PC (modem, etc.). Je la posterai des que je la retrouverai ;) !

Bonne chance sinon !

Edit : Voila, je viens de trouver ... Je sais pas si ca te va : http://www.greatis.com/delphicb/tips...ctedstate.html