Текущий архив: 2002.05.02;
Скачать: CL | DM;
Вниз
HOST - IP Найти похожие ветки
← →
cypher © (2002-02-19 00:49) [0]Как в локальной сети, имя имя комьютера, получить его IP адрес ?
← →
cypher © (2002-02-19 00:53) [1]или что тут не правильно?
function GetIPAddr(name:String):String;
var
pHostEn : PHostEnt;
lwsaData : WSAData;
begin
result := "<unknown>";
WSAStartup($0101, lwsaData);
pHostEn := gethostbyname(PChar(name));
if (pHostEn = nil) then begin
WSACleanup;
Exit;
end;
result := String (pHostEn^.h_addr);
WSACleanup;
end;
← →
cypher © (2002-02-19 01:01) [2]Ага... вроде так нада
result := String (inet_ntoa(PInAddr(pHostEn.h_addr^)^));
Да?! Вроде работает...
Страницы: 1 вся ветка
Текущий архив: 2002.05.02;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.007 c
