Текущий архив: 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.019 c
