Текущий архив: 2002.10.28;
Скачать: CL | DM;
Вниз
Сообщение windows о смене IP адреса Найти похожие ветки
← →
smok_er (2002-10-17 02:22) [0]Уважаемые знатоки!
Получаю IP адрес компа слдеующим кодом:
function TfrMain.GetIPAddress: String;
var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
Result:= inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
end;
(нашел в faq на этом сайте)
А есть ли сабж, чтобы отлавливать момент его изменения?
Т.е. когда я не в сети, у меня 127.0.0.1. Как только я вошел в сеть - IP от провайдера.
Можно конечно использовать так называемый "метод таймера", но не хочется найти другое решение...
Заранее огромное спасибо!
← →
Kuljok © (2002-10-17 02:56) [1]ИМХО тебе нужно отлавливать момент входа в сеть (тоже есть на этом сайте), потому как IP не меняется при входе в сеть, он добавляется...
← →
smok_er (2002-10-17 03:42) [2]Спасибо за разъяснение! А можно ссылку..?
Страницы: 1 вся ветка
Текущий архив: 2002.10.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
