Определение IP

← →
Std (2006-03-29 12:14) [0]

доброго времени суток, подскажит как програмно узнать ip своего компа

← →
AbrosimovA (2006-03-29 14:19) [1]

Если используешь TTCPClient, то у него есть метод LocalHostAddr, который возвращает искомый IP.

← →
Yegorchic © (2006-03-29 14:52) [2]

Или можно использовать TIdIPWatch, а вообще, надо бы FAQ посмотреть... :\

← →
apic © (2006-03-29 15:39) [3]

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;

//если прочел, откликнись

← →
Evgeny V © (2006-03-29 15:47) [4]

Как вариант, конструкция gethostbyname. ПОлучить имя своего коспьютера gethostname или в параметре gethostbyname передать nil. Так же появилась более новая функция getaddrinfo

2 Std (29.03.06 12:14)
1) У компа ip не бывает.
2) Если у тебя 10 сетевых интерфейсов, тебе какой адрес-то?

← →
Japp (2006-03-30 12:36) [6]

127.0.0.1
:)

Определение IP Найти похожие ветки