Dosen adalah pendidik profesional dan ilmuwan dengan tugas utama mentransformasikan, mengembangkan, dan menyebarluaskan ilmu pengetahuan, teknologi melalui pendidikan, penelitian, dan pengabdian kepada masyarakat (Permendikbud 49/2014 Pasal 1:14)

08 Agustus 2011

Mengkonversi IP address ke Hostname

Menggunakan winsock



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 Rresult:=StrPas(Hostent^.h_name)

else Result:='';

end;


0 komentar :

Posting Komentar

Terima kasih atas kunjungan dan komentarnya