Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

Как узнать программно свой IP? 


kex   (2001-12-19 12:05) [0]

Народ, поскажите как мне узнать программно свой IP, желательно чезер Win API функции...?



Snake2000   (2001-12-19 12:39) [1]

var WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
showmessage(inet_ntoa(PInAddr(p.h_addr_list^)^));
WSACleanup;
end;




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.015 c
3-19062           alex_dorin            2002-02-07 14:56  2002.03.07  
фильтр для таблицы БД informix


7-19355           bios_i_ego            2001-12-01 13:06  2002.03.07  
В Паскале было Port


6-19274           Serg!                 2001-12-19 12:18  2002.03.07  
Подскажите плз как заставить net send egor message принимать мессаги на компе с 9Х/МЕ


14-19340          alexproger            2002-01-19 18:32  2002.03.07  
Где найти программу


14-19330          Андрей Сенченко       2002-01-09 18:54  2002.03.07  
Вопросы - ответы ...