Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.22;
Скачать: 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 вся ветка

Текущий архив: 2007.07.22;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.015 c
10-1134471389
Well
2005-12-13 13:56
2007.07.22
Excel. Как управлять автофигурами.


15-1182169577
русланннннннн
2007-06-18 16:26
2007.07.22
Ошибка Ado


15-1182203401
SerJaNT
2007-06-19 01:50
2007.07.22
Сеть...


2-1181921347
wesel
2007-06-15 19:29
2007.07.22
Ограничить Программку на использование ресурсов компа


4-1171121208
DevilDevil
2007-02-10 18:26
2007.07.22
Добавить пункт к контекстному меню.