Как узнать IP-адрес

← →
<Lamer> (2004-03-27 10:46) [0]

Господа, Мастера Подскажите пожалуйста,как програмно узнать какой Ip адрес сейчас у моего компьютера.

← →
Verg © (2004-03-27 13:28) [1]

http://delphimaster.net/view/6-1077768546/
http://delphimaster.net/view/6-1077768546/
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988620992&n=20

← →
DeQuick (2004-03-27 13:43) [2]

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;

← →
Anatoly Podgoretsky © (2004-03-27 14:10) [3]

Ну раз тебе любой, а не все, то 127.0.0.1

ФАКИ почитай

Как узнать IP-адрес Найти похожие ветки