IP-адрес

← →
Gringoire © (2007-06-26 03:32) [0]

Народ, Help! Как программно узнать свой IP-адрес?

← →
AleksandrR © (2007-06-26 08:10) [1]

const WSVer = $101; var wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char; begin label1.Caption := ""; if WSAStartup(WSVer, wsaData) = 0 then begin if GetHostName(@Buf, 128) = 0 then begin P := GetHostByName(@Buf); if P <> nil then label1.Caption := iNet_ntoa(PInAddr(p^.h_addr_list^)^); end; WSACleanup; end;
В Uses пропиши WinSock

← →
iXT © (2007-06-26 09:23) [2]

> свой IP-адрес

Это который?

← →
StriderMan © (2007-06-26 09:27) [3]

> Как программно узнать свой IP-адрес?

127.0.0.1

← →
Gydvin © (2007-06-26 09:27) [4]

это который 127.0.0.1 :0)

← →
Gydvin © (2007-06-26 09:27) [5]

Ну вот так всегда ((

← →
Ega23 © (2007-06-26 09:31) [6]

> AleksandrR © (26.06.07 08:10) [1]

Если мне память не изменяет, то всё не так просто. Т.е. для одной сетевухи - нормально. А вот если их две - то уже не прокатит.

← →
Desdechado © (2007-06-26 09:50) [7]

> для одной сетевухи - нормально. А вот если их две
А если не только сетевухи...

← →
KilkennyCat © (2007-06-26 12:15) [8]

А если не только сетевухи, то айпиконфиг их покажет один фиг, как сетевой интерфейс. А его, если не ошибаюсь, можно запустить с выводом в текстовый файл. Просто и программно.

AleksandrR Спасибо!

> KilkennyCat (26.06.2007 12:15:08) [8]

А ИП все равно есть

Всегда пожалуйста!

IP-адрес Найти похожие ветки