| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать IP-адрес компьютера? [D7, WinXP]
Calibr © (2006-08-20 21:28:00)Как узнать IP-адрес компьютера?
Calibr (2006-08-21 14:05:00) [41]
> Чем ipconfig.exe не устроил ?
127.0.0.1 чтоли? так от на всех компах одинаковый, а мне надо чтоб номер был только на одном компе.
Сергей М. (2006-08-21 13:33:00) [42]
> как тогда узнать адрес сетевого интерфейса?
Чем ipconfig.exe не устроил ?
Calibr (2006-08-21 13:25:00) [43]
> Открою секрет: у компов не IP-адреса вовсе. Адрес бывает
> у сетевого интерфейса
Хорошо, как тогда узнать адрес сетевого интерфейса?
Мичман Панин (2006-08-21 02:18:00) [44]В военное время каждый компьютер должен знать и четко исполнять команду "Айпиконфиг". Вражеский компьютер допрашивается на иностранном языке: ipconfig.
Чапаев (2006-08-20 23:10:00) [45]"не" в смысле "нет".
Чапаев (2006-08-20 23:08:00) [46]Открою секрет: у компов не IP-адреса вовсе. Адрес бывает у сетевого интерфейса.
Calibr (2006-08-20 22:21:00) [47]А что он у всех компов одинаковый чтоли?
DrPass (2006-08-20 21:50:00) [48]
> Как узнать IP-адрес компьютера?
127.0.0.1
DprYg (2006-08-20 21:34:00) [49]
uses
WinSock;
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;
| |
Страницы: 