| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать IP-адрес [D5, D7, WinXP]
<Lamer> © (2004-03-27 10:46:00)Господа, Мастера Подскажите пожалуйста,как програмно узнать какой Ip адрес сейчас у моего компьютера.
Kolyan (2004-03-28 14:30:00) [1]ФАКИ почитай
Anatoly Podgoretsky (2004-03-27 14:10:00) [2]Ну раз тебе любой, а не все, то 127.0.0.1
DeQuick (2004-03-27 13:43:00) [3]procedure TForm1.Button1Click(Sender: TObject);
var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
while (p.h_addr_list^ <> nil) do
begin
Memo1.Lines.Add(inet_ntoa(PInAddr(p.h_addr_list^)^));
Inc(p.h_addr_list);
end;
WSACleanup;
end;
Verg (2004-03-27 13:28:00) [4]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1077768546&n=4
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1079968492&n=4
http://www.delphimaster.ru/cgi-bin/ faq.pl?look=1&id=988620992&n=20
| |
