girilen ip nin ağda kimler tarafından kullanıldığının sorgul
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
girilen ip nin ağda kimler tarafından kullanıldığının sorgul
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)
pardon ya çok daldim biran işte kod:
[/code]
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;
LAN API
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]
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]