Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c