Discussion :

[dj_lil]

Bonsoir !!

J'ai un p'tit problème qui je l'espère vous paraitra trivial.
Je cherche à récupérer un nom d'ordi à partir d'une adresse IP (style NBTSTAT sous DOS).
J'ai pas mal cherché, mais j'ai pas trouvé comment on fait.

Si quelqu'un a une idée, je le remercie d'avance de bien vouloir m'éclairer...

[portu]

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
 
function IPAddrToName(IPAddr: string): string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));
  HostEnt:= GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt<>nil then
  begin
    Result:=StrPas(Hostent^.h_name)
  end
  else
  begin
    Result:='';
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=IPAddrToName(Edit1.Text);
end;

*Déclarer l'unité Winsock dans la partie Uses

[fredtheman]

Sous Windows, GetHostByAddr() fonctionne aussi si aucun DNS n'a été installé sur le LAN pour résoudre les adresses locales, c.a.d. en faisant un broadcast avant de retourner une erreur?

Fred.