Форум: "Сети";
Поиск по всему сайту: 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.014 c
1-19189           tiger_                2002-02-18 13:01  2002.03.07  
перетастивание (Drag&Drop)


6-19292           iXANiA                2001-12-19 11:17  2002.03.07  
Как организовать SPX соединение под WIN32


1-19252           Марина                2002-02-20 09:44  2002.03.07  
FastReport


1-19137           Андре                 2002-02-20 12:32  2002.03.07  
TDBRichEdit


14-19331          tovSuhov              2002-01-22 08:43  2002.03.07  
Предложение к Хозяевам сайта...