Скачать: CL | DM;

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]

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

---

← →
Gringoire ©   (2007-06-26 12:50) [9]

AleksandrR Спасибо!

---

← →
Anatoly Podgoretsky ©   (2007-06-26 13:05) [10]

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

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

---

← →
AleksandrR ©   (2007-06-26 13:12) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c