Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: IP Adresi Sorgulama
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

IP Adresi Sorgulama

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
Recep Turan Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 02.Aralik.2010
Online: Sitede Değil
Gönderilenler: 6
  Alıntı Recep Turan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,172 Saniyede Yüklendi. [power by : WebWiz]