Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Определение 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.


Наверх

Титульная страница Поиск, карта сайта Написать письмо