Как узнать собственный IP?

← →
Ega23 © (2007-01-18 18:03) [0]

Про GetComputerName знаю. А тут вот нужен именно IP.
Как?

← →
Игорь Шевченко © (2007-01-18 18:06) [1]

1. ipconfig
2. GetHostByName + inet_ntoa

← →
Ega23 © (2007-01-18 18:09) [2]

> Игорь Шевченко © (18.01.07 18:06) [1]

Спасибо

← →
kaZaNoVa © (2007-01-18 18:37) [3]

а если у компьютера много IP?)
тогда какой из них "важнее" или какой покажется?

← →
Anatoly Podgoretsky (2007-01-18 19:40) [4]

> kaZaNoVa (18.01.2007 18:37:03) [3]

А много ты знаешь компьютеров подключеных к сети и работающий, у которых был бы один адрес?
Я таких не знаю. Их как минимум три

← →
iXT © (2007-01-18 21:11) [5]

И ИМХО не у компьютеров :)

← →
TUser © (2007-01-18 21:54) [6]

http://www.delphimaster.ru/cgi-bin/nuts.pl?&showpage=5

← →
kaZaNoVa © (2007-01-18 23:33) [7]

Anatoly Podgoretsky (18.01.07 19:40) [4]
Я таких не знаю. Их как минимум три
а какой 3-тиЙ?))
1)127.0.0.1
2)внешний IP
3) ???
или это типа 192.168.1.2 ?

← →
Anatoly Podgoretsky © (2007-01-18 23:34) [8]

> kaZaNoVa (18.01.2007 23:33:07) [7]

Например 0.0.0.0

Не считая сетевого адреса и адреса бродкаста.

← →
NovaC (2007-01-19 05:02) [9]

при изменении ip адресации в сети может быть два IP адреса, но это только на какой-то период например ~ 2 месяца ...

← →
DrPass © (2007-01-19 10:16) [10]

> NovaC (19.01.07 05:02) [9]

У одного сетевого интерфейса может быть хоть десять адресов, и не только при изменении IP-адресации в сети, и не только на какой-то период. Это зависит от настроек и потребностей

Rouse писал демку
// ****************************************************************************
// * Unit Name : Unit1
// * Purpose : Демо получения ТСР статистики
// * Author : Александр (Rouse_) Багель
// * Version : 1.02
// ****************************************************************************
//

тут гдето валялась, можно посмотреть udp порты и их адреса
3шт у меня показываются

← →
orinoko (2007-01-24 12:44) [12]

GetAdaptersInfo
GetIFTable

← →
KyRo (2007-01-24 13:24) [13]

Вот держи
// Функция определения локального айпи адреса
function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := "";
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;

Вообще этих IP может быть туева хуча, чтоб определить у какого сетевого интерфейса какие - смотри эту демку: http://rouse.drkb.ru/network.php#netifenum

Как узнать собственный IP? Найти похожие ветки