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

Как определить программно свой IP адрес?   Найти похожие ветки 

← →
Petrovitch   (2004-02-04 14:12) [0]

Кто подскажет Как определить программно свой IP адрес?
Или кто знает о классе PHostEnt ?

---

← →
XeON ©   (2004-02-06 20:13) [1]

Чтобы определить IP адрес компа - поройся в компонентах... Не помню как называется покмпонент... но помню, что у него есть свойство, что-то типа LocalIP... Вобщем я когда IPScaner писал - именно его использвал...

---

← →
Verg ©   (2004-02-06 20:49) [2]

http://delphimaster.net/view/6-1075796204/

---

← →
Dimich1978 ©   (2004-02-07 15:03) [3]

Function GetLocalIP: string;
var
wsaData: TWSAData;
P : PHostEnt;
S : array [0..128] of char;
begin
WSAStartup(MAKEWORD(1,1), wsaData);
GetHostName(@s, 128);
P:= GetHostByName(@s);
Result:= iNet_ntoa(PInAddr(p^.h_addr_list^)^);
WSACleanup;
end;

---

← →
Anatoly Podgoretsky ©   (2004-02-07 15:15) [4]

Не стоит говорить в единственном лице, если есть сетевые адаптеры, то их как минимум два.

---

← →
Rouse_ ©   (2004-02-07 16:27) [5]

> [3] Dimich1978 ©   (07.02.04 15:03)
А если вот так:

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 Assigned(p.h_addr_list^) do
begin
  memo1.Lines.Add(inet_ntoa(PInAddr(p.h_addr_list^)^));
  inc(p.h_addr_list);
end;
WSACleanup;
end;

PS: Совет, не цитируйте неправильные примеры...

---

← →
Kor@l ©   (2004-02-08 20:03) [6]

кинь на форму IDIPWatch и гляди на здаровие

---

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

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



Память: 0.46 MB
Время: 0.031 c