Forum.St| Enteresen Bir Forum Sitesi

Lütfen Sitemize Üye Olunuz Üyeliğiniz Varsa Lütfen Giriş Yapın...

Bağlı değilsiniz. Bağlanın ya da kayıt olun

(Delphi)Ip Adresinden Herhangi Bir Bilgisayar Adının Bulunması

Aşağa gitmek  Mesaj [1 sayfadaki 1 sayfası]

CyberDuck

avatar
Varlığımızı Bilmeyenlere Yokluğumuz Kapak Olsun..!
Varlığımızı Bilmeyenlere Yokluğumuz Kapak Olsun..!
Kod:
uses 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 HostEntnil then


begin


result:=StrPas(Hostent^.h_name)


end


else


begin


result:='';


end;


end;

alntı





Designer­s[Resimleri görebilmek için üye olun veya giriş yapın.]CyberDuck[Resimleri görebilmek için üye olun veya giriş yapın.]

%100 Netlebi Forum [Resimleri görebilmek için üye olun veya giriş yapın.] Kalitesiyle Her Hakkı Saklıdır!
Söz Uçar Yazı Kalır..!
Kullanıcı profilini gör http://sanalkolik.forum.st

Sayfa başına dön  Mesaj [1 sayfadaki 1 sayfası]

Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz