Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.54 MB
Время: 0.03 c
3-92344
Alexsys
2002-10-03 18:34
2002.10.28
SQL запрос с несколькими таблицами с несоответствием...


14-92738
Sergey13
2002-10-09 11:00
2002.10.28
Качество обучения в ВУЗах.


1-92592
jen_bond
2002-10-17 08:52
2002.10.28
MainMenu 2000/Xp


1-92569
SiJack
2002-10-16 12:47
2002.10.28
таблица в QReport без базы данных


3-92375
PAVELsinicinV
2002-09-29 20:27
2002.10.28
Добавить ещё один столбец в существующую таблицу ...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский