Скачать: CL | DM;

IP+Name   Найти похожие ветки 

← →
начинающий ©   (2004-08-07 14:51) [0]

В хелпе к PeerIP написано: PeerIP can be a computer name, such as "wvnvm.wvnet.edu", or an IP address in dotted-decimal format, such as "129.71.2.4".
А как мне получить и айпи и имя компьютера(дело будет происходить в локальной сети)?

---

← →
VID ©   (2004-08-07 19:11) [1]

А разве я тебе не ответил на этот вопрос, а ?

---

← →
начинающий ©   (2004-08-07 19:22) [2]

Возможно, что и так, но в поиске по нику и по контенту(я вводил 129.71.2.4 - согласитесь редкое сочетание) вопрос я не могу найти. Может форум глюканул, или я. Если Вас не затруднит, отпишите мне еще раз.

---

← →
VID ©   (2004-08-07 21:14) [3]

Используй функции gethostbyaddr и gethostbyname. они объявлены в модуле Winsock.

---

← →
начинающий ©   (2004-08-07 21:22) [4]

Благодарю! Буду пробовать!

---

← →
Jim Li   (2004-08-29 12:33) [5]

А можно пример использования?

---

← →
VID ©   (2004-08-29 20:45) [6]

ses 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
   result := StrPas(Hostent^.h_name)
 else
   result:="";
end;

//Пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption := IPAddrToName(Edit1.Text);
end;

взято с http://www.delphisyte.ru/Articles/base/get_domain_by_ip.html

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.955 c