Discussion :

[SergioMaster]

Si la question semble simple , je ne vois pas comment , par programmation bien sur , je peux y répondre .

la problématique :

disons que j'ai un poste sur lequel se trouve le programme . Je veux savoir si "le voisinage réseau" est accessible ou non (et ce avec un temps de réponse court de préférence)

Objectif : "browser" le voisinage réseau si actif

pour l'instant voici ce que j'ai fait pour le "browser"

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
 
procedure TForm3.BrowseDirBtnClick(Sender: TObject);
var
  sFolder : string;
  bforFolder : TBrowseForFolder;
begin
  bForFolder:=TBrowseForFolder.Create(self);
  try
   if Mode='LOCAL' then bForFolder.RootDir:='::{20D04FE0-3AEA-1069-A2D8-08002B30309D}'
                   else bForFolder.RootDir:='::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}';
    if bforFolder.Execute then
       if bForFolder.Folder<>'' then Repertoire.Text:=bForFolder.Folder;
  finally
    bForFolder.Free;
  end;
end;

inconvénient : si Mode est <>'LOCAL' mais que je ne suis pas connecté a un réseau , je "browse" le poste

C'est peut être une question de débutant , mais là, je sèche complètement , le ping me semblant exclu

[Paul TOTH]

avec un gethostbyname('localhost') ?

[SergioMaster]

Bonne idée ! Merci
néanmoins , j'essaierai plutôt getaddrinfo
car :

Note The gethostbyname function has been deprecated by the introduction of the getaddrinfo function. Developers creating Windows Sockets 2 applications are urged to use the getaddrinfo function instead of gethostbyname.

La suite au prochain Post

[SergioMaster]

Suite :
Après ,approfondissement et lectures , j'ai laissé le GetHostByName/GetaddrInfo pour le WNetOpenEnum apres lecture de cet article

Il me faut encore quelques tests et embellissement de code avant de proposer quelque chose de correct , mais je pense avoir trouvé la solution à mon problème