Текущий архив: 2006.10.15;
Скачать: CL | DM;
Вниз
IP2HostName Найти похожие ветки
← →
kernel © (2006-05-19 15:53) [0]Как мне узнать имя компьютера, если я знаю его IP?
← →
Сергей М. © (2006-05-19 16:16) [1][WSAAsync]GetHostbyAddr
← →
kernel © (2006-05-19 16:32) [2]
> [WSAAsync]GetHostbyAddr
Этого я уже наслышался. Я так и не смог разобраться с этим GetHostbyAddr. Сколько уже всяких функций перерыл с GetHostbyAddr - ничего мне это не дало.
← →
Сергей М. © (2006-05-22 08:45) [3]
> не смог разобраться
И что непонятно ?
← →
beglec © (2006-05-22 23:45) [4]
> kernel ©
тебе человек правильно подсказал где искать. То что тебе лень искать это уже другой фактор
// ------------------------------------------------------------------------------ возвращает IP адрес взависимости от имени
// что бы узнать свой IP дрес просто указать локальное имя
function GetIPAddress(const Name: String): String;
var WSAData : TWSAData;
HostEnt : PHostEnt;
begin
WSAStartup($0101,WSAData);
Result :="";
HostEnt :=GetHostByName(PChar(name));
Result :=Inet_ntoa(PInAddr(HostEnt.H_addr_list^)^);
WSACleanUp;
end;
// ------------------------------------------------------------------------------ возвращает имя компа по IP адресу
function GetIPName(const IPAddr: String): String;
var Host : TSockAddrIn;
HostEnt : PHostEnt;
WSAData : TWSAData;
begin
WSAStartup($0101,WSAData);
Result :="";
Host.Sin_addr.S_addr:=Inet_Addr(PChar(IPAddr));
HostEnt :=GetHostByAddr(@Host.Sin_Addr.S_Addr,4,AF_INET);
Result :=StrPas(HostEnt^.H_Name);
WSACleanUp;
end;
Страницы: 1 вся ветка
Текущий архив: 2006.10.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.042 c
