Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: IP Listesini Almak  (Okunma sayısı 2106 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
IP Listesini Almak
« : 13 Ekim 2005 14:02:14 »
Kod:  (Unknown Language)
  1. Uses WinSock;
  2.  
  3.  
  4.  
  5. {...}
  6.  
  7.  
  8.  
  9. Function GetIPs(): Tstrings;
  10.  
  11. Type
  12.  
  13.   TaPInAddr = Array[0..10] of PInAddr;
  14.  
  15.   PaPInAddr = ^TaPInAddr;
  16.  
  17. Var
  18.  
  19.    phe: PHostEnt;
  20.  
  21.    pptr: PaPInAddr;
  22.  
  23.    Buffer: Array[0..63] of Char;
  24.  
  25.    I: Integer;
  26.  
  27.    GInitData: TWSAData;
  28.  
  29.  
  30.  
  31. Begin
  32.  
  33.   WSAStartup($101, GInitData);
  34.  
  35.   Result:= TstringList.Create;
  36.  
  37.   Result.Clear;
  38.  
  39.   GetHostName(Buffer, SizeOf(Buffer));
  40.  
  41.   phe:= GetHostByName(buffer);
  42.  
  43.   If phe = Nil Then Exit;
  44.  
  45.   pPtr:= PaPInAddr(phe^.h_addr_list);
  46.  
  47.   I:= 0;
  48.  
  49.   While pPtr^&#91;I&#93; <> Nil Do
  50.  
  51.           Begin
  52.  
  53.           Result.Add&#40;inet_ntoa&#40;pptr^&#91;I&#93;^&#41;&#41;;
  54.  
  55.           Inc&#40;I&#41;;
  56.  
  57.           End;
  58.  
  59.   WSACleanup;
  60.  
  61. End;
  62.  
  63.  






Kullanım Şekli

Kod:  (Unknown Language)
  1.  
  2.  
  3. Procedure TForm1.Button1Click&#40;Sender&#58; TObject&#41;;
  4.  
  5. Begin
  6.  
  7.   Memo1.Lines&#58;= GetIps;
  8.  
  9. End;
  10.  
  11.  
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

Çevrimdışı muratveb

  • Delphi 1 Level 1
  • *
  • İleti: 1
  • Rep: +0/-0
Ynt: IP Listesini Almak
« Yanıtla #1 : 16 Aralık 2009 16:54:15 »
Teşekkürler Üstad. Peki Aynı Ağ Üzerinde Bulunan Tüm Bilgisayarları İsmiyle Yada İp Adresiyle Butona Tıklandığında comboBox İçersine Atayan Programı Nasıl Yapabiliriz ? Bilgin Varmı Acaba ? Yada Yada Elinde Hazır Yapılmışı Varsa Paylaşabilirmisin ?
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »