Discussion :

[pieroznight]

Bonjour à tous,
Je cherche à obtenir les adresses ip d'un réseau local, et a faire coresspondre le nom des pc...j'ai regardé sur la fac mais ça ne m'a pas aider ... (au fait je ne trouve pas la use sockets.dcu ....)
si vous avez un tuyau, merci de votre aide...
a+

[SergioMaster]

gethostbyname() et gethostbyaddr() de l'API Winsock permette de passer du nom de serveur à l'adresse IP et vis et versa.

[pieroznight]

peux tu m'en dire plus au sujet de ces fontions, je ne sais pas comment les utiliser et F1 ne donne rien. Et de quel serveur parle tu ?
merci

[edam]

peut être tu trouvra ta réponce avec les WMI

[Clorish]

Sockets.dcu ne fait pas partit du package dclsockets.bpl ? dans Delphi/Bin.
C'est ce paquet qui est necessaire pour les TClientSocket et TServerSocket.
Je pense que c'est lié.

[Cl@udius]

Salut

Sockets.dcu ne fait pas partit du package dclsockets.bpl ? dans Delphi/Bin.

Les fonctions gethostbyaddr et gethostbyname sont déclarées dans WinSock.pas.

Il y a un exemple d'utilisation chez Torry's là.

@+ Claudius

[SergioMaster]

peux tu m'en dire plus au sujet de ces fontions, je ne sais pas comment les utiliser et F1 ne donne rien. Et de quel serveur parle tu ?
merci

Désolé j'étais en vacances déconnectées . Je crois que Cl@udius répond à la question

[Pergos]

Un bout de code que j'avais trouvé par un post sur le forum :

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
 
//Trouve l'adresse IP d'un ordinateur
function TfrmResolveIpFromName.OrdiIP(Ordi: string): string;
var
  WSAData : TWSAData;
  Name,Address : String;
  Phe : PHostEnt;
begin
  //Demarrage du gestionnaire de socket
  WSAStartup(2,WSAData);
  SetLength(Name,255);
  Phe := GetHostByName(PChar(Ordi));
  with Phe^ do
  //Formatage du resultat en string
  Address := Format ('%d.%d.%d.%d' , [Byte(h_addr^[0]),Byte(h_addr^[1]),
                                      Byte(h_addr^[2]),Byte(h_addr^[3])]);
  //Fermeture du gestinnaire de socket
  WSACleanup;
  OrdiIP := Address;
end;

(ne pas oublier "Winsock" dans les uses...)

Testé et approuvé !!!

[pieroznight]

Merci a tous pour vos réponces !!
désolé pour cette réponse tardive, j'étais parti en vacances ...
encore merci
a+