IP Adresi Sorgulama |
Yanıt Yaz |
Yazar | |
Recep Turan
Üye Profili
Özel Mesaj Yolla
Bu kullanıcıya ait mesajları bul
Üyenin Web Sitesie Git
Arkadaş Listeme Ekle
Moderator Group Kayıt Tarihi: 02.Aralik.2010 Online: Sitede Değil Gönderilenler: 6 |
Alıntı Cevapla
Konu: IP Adresi Sorgulama Gönderim Zamanı: 21.Mart.2011 Saat 18:00 |
Kendi İp Adresiniz ( İnternet )
Uses WinSock; Function LocalIP : string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer; GInitData : TWSADATA; begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then Exit; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^ <> nil do begin result:=StrPas(inet_ntoa(pptr^^)); Inc(I); end; WSACleanup; end; // Kullanım procedure TForm1.Button1Click(Sender: TObject); begin showmessage('İp Adresiniz : ' + LocalIP); end; // İp Adresi İle Ad Sorgulama 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 HostEnt<>nil then begin result:=StrPas(Hostent^.h_name) end else begin result:=''; end; end; //Kullanım Forma 2 tane edit 1 tane buton procedure TForm1.Button1Click(Sender: TObject); begin edit2.Text := IPAddrToName(edit1.text); end; // Kaynak : Kodbank Düzenleyen Recep Turan - 21.Mart.2011 Saat 18:06 |
|
Yanıt Yaz |
Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |