Discussion :

[pottiez]

Bonjour a tous,
je voudrais savoir si il y a moyen de trouver les adresses ip des différentes postes d'un réseaux local.
Si vous avez une idée ca m'interrésse, car moi je n'en ai pas du tout (a par tester toute les adresse ip mais ce n'est pas possible vu le nombre d'adresse possible).
A plus

[nemo69500]

Tu vas dans favorie reseau et la tu recupere tous les nom dont tu ve l ip , ensuite tu fais demarer->executer et tu tape "cmd" puis entrer

ensuite tu tape "ping nom_de_ordi" et tu tape entrer et la tu a l ip

[pottiez]

oui, mais je sous entendai que je voulais le faire dynamiquement.
excuse moi de m'être mal exprimé.

[nemo69500]

ba je suis dsl j vois pas maias la reponse a ca m interresse , si qqun connait

[niglo]

Par exemple, tu peux faire un serveur sur le poste qui doit lister les ips !!
Ce serveur attend les connexions de toutes les machines du réseau local et les listent ! Problème de cette méthode : tu dois lancer une appli sur tous les postes de ton réseau local. Tout dépend de ton réseau local (taille, diverses contraintes...) et de ce que tu veux faire avec la liste dynamique des ips !!

Sinon, je ne vois rien d'autre pour le moment !
Désolé

[pottiez]

En fait j'ai une appli qui se connecte a un serveur dont l'adresse ip est configurée et stocké dans un fichier, mais je voudrais que, si l'appli n'arrive pas a se connecter a l'adresse indiqué, elle cherche automatiquement si il n'y a pas un autre serveur démarré sur le réseau.
Je sais, c'est un peut fou, mais j'aimerais développer cette fonctionalité.

[Freeze]

Salut,

Tu devrais essayer 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
33
34
35
36
37
38
39
40
41
42
43
44
 
void TFPrincipal::EnumNetRes(NETRESOURCE *nr,int rtype,int rusage)
   {
   AnsiString temp;
   HANDLE hEnum;
   if (WNetOpenEnum(RESOURCE_GLOBALNET,rtype,rusage,nr,&hEnum)!=NO_ERROR)
      return;
   DWORD Count=-1;
   DWORD BufferSize=1024;
   DWORD ReturnVal=0;
   NETRESOURCE *NetRes=(NETRESOURCE *)new char[BufferSize];
   ZeroMemory(NetRes,BufferSize);
   for (;;)
      {
      ReturnVal=WNetEnumResource(hEnum,&Count,NetRes,&BufferSize);
      if (ReturnVal==ERROR_MORE_DATA)
         {
         Count=-1;
         delete []NetRes;
         NETRESOURCE *NetRes=(NETRESOURCE *)new char[BufferSize];
         ZeroMemory(NetRes,BufferSize);
         ReturnVal=WNetEnumResource(hEnum,&Count,NetRes,&BufferSize);
         }
      if (ReturnVal!=NO_ERROR)   break;
      for (DWORD i=0;i<Count;i++)
         {
         if (NetRes[i].dwDisplayType==RESOURCEDISPLAYTYPE_SERVER)
         {
            temp=NetRes[i].lpRemoteName;
            LB->Items->Add(temp.SubString(3,temp.Length()));
         }
         if (( NetRes[i].dwUsage & RESOURCEUSAGE_CONTAINER)==RESOURCEUSAGE_CONTAINER)
            EnumNetRes(&NetRes[i],rtype,rusage);
         }
      if (ReturnVal==ERROR_NO_MORE_ITEMS)
         {
         delete []NetRes;
         WNetCloseEnum(hEnum);
         }
      }
   delete []NetRes;
   WNetCloseEnum(hEnum);
   }
//---------------------------------------------------------------------------

bon pour le moment j'ai mis le résultat dans une listbox que j'ai appelé LB
, tu peux appeler cette fonction comme ca :

Code :

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

1
2
 
EnumNetRes(0,RESOURCETYPE_ANY,0);

ca te donne le nom des postes ... si ca peut t'aider ...

[pottiez]

Merci beaucoup, cela me suffit amplement.

[menoran]

bjour j'ai voulu essayer ce procedure en modifiant just l'affichage et sa ma pas marché elle rien afficher . merci d'avance

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
33
34
35
36
37
38
39
40
41
42
43
void TFPrincipal::EnumNetRes(NETRESOURCE *nr,int rtype,int rusage)
   {
   AnsiString temp;
   HANDLE hEnum;
   if (WNetOpenEnum(RESOURCE_GLOBALNET,rtype,rusage,nr,&hEnum)!=NO_ERROR)
      return;
   DWORD Count=-1;
   DWORD BufferSize=1024;
   DWORD ReturnVal=0;
   NETRESOURCE *NetRes=(NETRESOURCE *)new char[BufferSize];
   ZeroMemory(NetRes,BufferSize);
   for (;;)
      {
      ReturnVal=WNetEnumResource(hEnum,&Count,NetRes,&BufferSize);
      if (ReturnVal==ERROR_MORE_DATA)
         {
         Count=-1;
         delete []NetRes;
         NETRESOURCE *NetRes=(NETRESOURCE *)new char[BufferSize];
         ZeroMemory(NetRes,BufferSize);
         ReturnVal=WNetEnumResource(hEnum,&Count,NetRes,&BufferSize);
         }
      if (ReturnVal!=NO_ERROR)   break;
      for (DWORD i=0;i<Count;i++)
         {
         if (NetRes[i].dwDisplayType==RESOURCEDISPLAYTYPE_SERVER)
         {
            temp=NetRes[i].lpRemoteName;
            ShowMessage(temp.SubString(3,temp.Length()));
         }
         if (( NetRes[i].dwUsage & RESOURCEUSAGE_CONTAINER)==RESOURCEUSAGE_CONTAINER)
            EnumNetRes(&NetRes[i],rtype,rusage);
         }
      if (ReturnVal==ERROR_NO_MORE_ITEMS)
         {
         delete []NetRes;
         WNetCloseEnum(hEnum);
         }
      }
   delete []NetRes;
   WNetCloseEnum(hEnum);
   }

et je l'ai appler dans ma code avec :

Code :

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

EnumNetRes(0,RESOURCETYPE_ANY,0);

[pottiez]

Salut,
comment s'appelle la fenêtre principal de ton application ?

[menoran]

Form1, mais moi j'ai enlever TFPrincipal::
merci d'avance

[pottiez]

Alors dans les fichier .cpp de ta fenêtre principal tu ajoute le code donnée dans cette discussion en remplaçant TFPrincipal par TForm1
Dans le .h de la même fenêtre tu dois avoir du code qui ressemble à cela, ajout-y la ligne que j'ai mis en rouge :

Code :

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

1
2
3
4
5
6
7
8
9
class TForm1 : public TForm
{
  published :
  ...
  public :
  TForm1(TObject* Owner);
  ...
  void EnumNetRes(NETRESOURCE *nr,int rtype,int rusage);
};

Et maintenant tu n'as plus qu'a appeler cette méthode d'où tu veut dans la fenêtre principal