Форум: "Сети";
Поиск по всему сайту: 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.72 MB
Время: 0.03 c
3-19114           af                    2002-02-11 16:29  2002.03.07  
Задумал я переделать базу работавшую под досом


3-19044           HDD                   2002-02-07 15:50  2002.03.07  
Помогите пожалуйста дамы и господа


14-19296          Suntechnic            2002-01-19 00:24  2002.03.07  
Вот объясните мне неучу, что обсуждается вот в этом посте...


3-19061           некто_02              2002-02-02 03:02  2002.03.07  
dbExpress и Oracle


3-19081           SelfDestructor        2002-01-31 14:40  2002.03.07  
Прокрутка в DBGrid