Форум: "Сети";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
ВнизHelp!!! Найти похожие ветки
← →
T0talCrash (2001-12-21 09:34) [2]Вот небольшой кусок из одной моей проги:
uses winsock;
type TIPAddr=array[1..4] of byte;
function ipaddr2hostname(ip:Tipaddr):string;
var host:phostent;
begin
host:=gethostbyaddr(@ip,4,1024);
if host=nil then ipaddr2hostname:="UNKNOWN"
else ipaddr2hostname:=strpas(host^.h_name);
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c