| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сообщение windows о смене IP адреса [D5, WinXP]
smok_er © (2002-10-17 02:22:00)Уважаемые знатоки!
Получаю 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 от провайдера.
Можно конечно использовать так называемый "метод таймера", но не хочется найти другое решение...
Заранее огромное спасибо!
smok_er (2002-10-17 03:42:00) [1]Спасибо за разъяснение! А можно ссылку..?
Kuljok (2002-10-17 02:56:00) [2]ИМХО тебе нужно отлавливать момент входа в сеть (тоже есть на этом сайте), потому как IP не меняется при входе в сеть, он добавляется...
| |
