Samanalevi Netkafe Anasayfa

Bilgisayarın Ip Adresini Bulmak

Sosyal Ağ Paylaşımı :                                

	Ekleyen : seasparrow Zaman : 27 Haziran 2005 Okunma : 1124 Yorumlar : 0 - Yorumları Oku - Yorum Yaz

Bilgisayarin IP adresinin alinmasi
uses Winsock;

function DetectHostIP(var IP: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
    gethostname (hostName, sizeof (hostName));
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
finally
    WSACleanup;
end
end;

// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
var IPAdres: string;
begin
if DetectHostIP(IPAdres) then
   Label1.Caption := IpAdres
else
   Label1.Caption := 'Ip Adresi alinamadi';
end;

Konuya Ait Yorumlar

Şu an yorum yazılmamış!..

İlginizi Çekebilecek Konular
Başlık	Ekleyen
Karakter Düzenleme	seasparrow
Hangı Kullanıcı Logın Yaptı..	beykozlu
Text Nasıl Şifrelenir.	beykozlu
Sitenizdeki Aktif Ziyaretçiler	admin
Dos Programını Çalıştırıp, İnput Ve Output'unu Yonlendirmek	seasparrow
Programdan Dosya Kopyalama	seasparrow
>birden Fazla Alanda Arama Yapmak	seasparrow
Veri Tipleri	seasparrow
Windows Icon Ve Bitmaplarını Programdan Almak	seasparrow
Panelde Avi Oynatma	seasparrow
Asp İle Veritabanı	seasparrow
Türkçe Karakter Desteği	admin
Windows Lisans Bilgilerinin Alınması	seasparrow
Select Case	seasparrow
Harddiskin Seri Numarasının Bulmak	seasparrow
Çalışan Bir Exe Nin Silinmesi	seasparrow
Dosya Açılış Yolları	seasparrow
Programı Bekletmek	seasparrow
Sql Tablolarda Değişiklik Yapmak	beykozlu
Asp İle Verileri Sayfalama	seasparrow