![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Определение IP [D7, WinXP]
Std © (2006-03-29 12:14:00)доброго времени суток, подскажит как програмно узнать ip своего компа
Japp (2006-03-30 12:36:00) [1]127.0.0.1
:)
Fay (2006-03-29 23:29:00) [2]2 Std (29.03.06 12:14)
1) У компа ip не бывает.
2) Если у тебя 10 сетевых интерфейсов, тебе какой адрес-то?
Evgeny V (2006-03-29 15:47:00) [3]Как вариант, конструкция gethostbyname. ПОлучить имя своего коспьютера gethostname или в параметре gethostbyname передать nil. Так же появилась более новая функция getaddrinfo
apic (2006-03-29 15:39:00) [4]function GetLocalIP:string;
var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
Result:=(inet_ntoa(PInAddr(p.h_addr_list^)^));
WSACleanup;
end;
//если прочел, откликнись
Yegorchic (2006-03-29 14:52:00) [5]Или можно использовать TIdIPWatch, а вообще, надо бы FAQ посмотреть... :\
AbrosimovA (2006-03-29 14:19:00) [6]Если используешь TTCPClient, то у него есть метод LocalHostAddr, который возвращает искомый IP.