определение ip адреса

← →
Out © (2005-10-05 00:17) [0]

Необходимо определить ip адрес компа на котором запущена программа. Предупреждая вопросы - пишу внутрикорпоративную софтину, при запуске он должна определить ip адрес юзера и отправить его в БД на сервер. С остальным вопросов нет - а как определить ip адрес - не знаю

← →
XProger © (2005-10-05 01:27) [1]

http://www.delphimaster.ru/cgi-bin/forum.pl?n=4&search=%EE%EF%F0%E5%E4%E5%EB%E8%F2%FC

← →
Out © (2005-10-05 07:30) [2]

Что-то я не понял куда ведёт эта ссылка... )

← →
Digitman © (2005-10-05 13:12) [3]

> определить ip адрес компа

таковых может быть и ни одного, и один-единственный, и более чем один

каждый ip-адрес ассоциируется с конкретным сетевым интерфейсом, каковых может быть более одного

с каждым сетевым интерфейсом может быть ассоциирован и более чем один ip-адрес

вдумайся в это ...

Уточню - все ip адреса потом программно отфильтрую

неужели это так сложно, что никто не знает?

var WSAData: TWSAData; SockAddrIn: TSockAddrIn; Host: PHostEnt; //Эти переменные объявлены в Winsock.pas begin if WSAStartup($101, WSAData) = 0 then begin Host := GetHostByName(@Localname[1]); if Host then begin SockAddrIn.sin_addr.S_addr:= longint(plongint(Host^.h_addr_list^)^); LocalIP := inet_ntoa(SockAddrIn.sin_addr); end; WSACleanUp; end; end;
Из старого FAQ... сам надеюсь доработаеш

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