Форум: "Сети";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизОпределение IP Найти похожие ветки
← →
BWG (2001-12-23 19:28) [0]Необходимо определить собственный IP.
Делаю так:
var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
Writeln("Your IP is : ",inet_ntoa(PInAddr(p.h_addr_list^)^));
WSACleanup;
Получаю "1.0.0.1" Фигня, естественно.
Как мне нормально получить собственный IP?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c