| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IP-адрес
Gringoire © (2007-06-26 03:32:00)Народ, Help! Как программно узнать свой IP-адрес?
AleksandrR (2007-06-26 13:12:00) [1]Всегда пожалуйста!
Anatoly Podgoretsky (2007-06-26 13:05:00) [2]> KilkennyCat (26.06.2007 12:15:08) [8]
А ИП все равно есть
Gringoire (2007-06-26 12:50:00) [3]AleksandrR Спасибо!
KilkennyCat (2007-06-26 12:15:00) [4]А если не только сетевухи, то айпиконфиг их покажет один фиг, как сетевой интерфейс. А его, если не ошибаюсь, можно запустить с выводом в текстовый файл. Просто и программно.
Desdechado (2007-06-26 09:50:00) [5]> для одной сетевухи - нормально. А вот если их две
А если не только сетевухи...
Ega23 (2007-06-26 09:31:00) [6]
> AleksandrR © (26.06.07 08:10) [1]
Если мне память не изменяет, то всё не так просто. Т.е. для одной сетевухи - нормально. А вот если их две - то уже не прокатит.
StriderMan (2007-06-26 09:27:00) [7]
> Как программно узнать свой IP-адрес?
127.0.0.1
Gydvin (2007-06-26 09:27:00) [8]это который 127.0.0.1 :0)
Gydvin (2007-06-26 09:27:00) [9]Ну вот так всегда ((
iXT (2007-06-26 09:23:00) [10]> свой IP-адрес
Это который?
AleksandrR (2007-06-26 08:10:00) [11]
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
| |
