Recuperer le Hostname a partir de l IP sous Delphi2009
Résolu
cs_mimimou
Messages postés
48
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
31 août 2011
-
23 févr. 2009 à 09:09
cs_mimimou Messages postés 48 Date d'inscription vendredi 17 janvier 2003 Statut Membre Dernière intervention 31 août 2011 - 24 févr. 2009 à 06:35
cs_mimimou Messages postés 48 Date d'inscription vendredi 17 janvier 2003 Statut Membre Dernière intervention 31 août 2011 - 24 févr. 2009 à 06:35
2 réponses
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
23 févr. 2009 à 13:47
23 févr. 2009 à 13:47
Salut,
function IPAddrToHostName(IPAddr: string): string; stdcall;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(PAnsiChar(AnsiString(IPAddr)));
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
Result := string(Hostent^.h_name)
else
Result := '';
end;
@+
Cirec
<hr siz="" />
function IPAddrToHostName(IPAddr: string): string; stdcall;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(PAnsiChar(AnsiString(IPAddr)));
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
Result := string(Hostent^.h_name)
else
Result := '';
end;
@+
Cirec
<hr siz="" />
cs_mimimou
Messages postés
48
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
31 août 2011
24 févr. 2009 à 06:35
24 févr. 2009 à 06:35
Merci beaucoup, ca marche impec