Текущий архив: 2003.10.30;
Скачать: CL | DM;

Вниз

А мне нужно наоборот :)   Найти похожие ветки 

← →
Dennisius   (2003-09-05 10:56) [0]

все интересуются как имея (или просто зная :)) IP определить имя компа, и никто неспрашивает как зделать наоборот.
А всё таки как ?????

---

← →
Vladimir   (2003-09-05 11:05) [1]

uses
WinSock;

const
WINSOCK_VERSION = $0101;

function GetIPAddress(name: string): string;
var
WSAData: TWSAData;
p: PHostEnt;
begin
WSAStartup(WINSOCK_VERSION, WSAData);
p := GetHostByName(PChar(name));
Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
end;
Кажется так:
http://delphiworld.narod.ru/internet.html

---

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

Текущий архив: 2003.10.30;
Скачать: CL | DM;

Наверх

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