Discussion :

[iznogoud_23]

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

Merci d'avance

[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 :

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

le codage est assez simple :

Code :

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

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.

[iznogoud_23]

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 :

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

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é...

[GoustiFruit]

Parefeu ?

[iznogoud_23]

oui mais non
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 :

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
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...

[exoseven]

tu peux tester cette méthode http://www.swissdelphicenter.com/en/showcode.php?id=466