girilen ip nin ağda kimler tarafından kullanıldığının sorgul

[aydogan46]

arkadaşlar merhaba; benim aşagıda size göndereceğim fonksiyon şeklinde tanımlanmış bir kodum var ve hatasız da çalışıyor. yalnız sadece makinanın adını buluyor.ben istiyorumki makinanın adının yanında bilgisayar tanımı ve çalışma grubu bilgileride bulunsun istiyorum. eğer ilgilenen olursa sevinirim. hepinize kolay gele..( ağ komşuları/özellikler/tanımlama sekmesinde ki veriler)

[hardndark]

kod nerde ???

[aydogan46]

pardon ya çok daldim biran işte kod:

Kod: Tümünü seç

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;

[/code]

[aydogan46]

arkadaşlar ilgilenen yok mu bu konuyla. şuan acil ihtiyacım var...

[sobakava]

MSDN'de vardi birseyler bir ara ugrasmistim. Yarin iste bakacagim.
Acelen varsa MSDN'de Network API'ye bakabilirsin

--
edit:

Sanirim bu tam olarak aradigin sey:
kucuk bir ornek uygulama + delphi source'u var.
"Get List" butonuna basinca LAN'daki tum makinelerin
adlarini, comment'lerini ve tanimlamalarini bir StringGrid'e
listeliyor. Umarim isine yarar.

http://www.gokhanbektas.com/download/delphi/netapi.zip [237KB]