Bonjour a tous,
Depuis la version 2009 de delphi, la fonction qui permet de recuperer le nom d host a partir d une IP ne fonctionne plus :
function IPAddrToHostName(IPAddr: string): string; stdcall;
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
Result := StrPas(Hostent^.h_name)
else
Result := '';
end;
erreur : Incompatible types : 'Char' and 'AnsiChar', 'Name' and 'PAnsiChar', etc....
Quelqu un l aurait-il deja adapte pour delphi 2009 ?
Merci