Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизСообщение 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c