Скачать: CL | DM;

Как узнать 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

---

← →
Kolyan ©   (2004-03-28 14:30) [4]

ФАКИ почитай

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c