Как определить программно свой 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]

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

> [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: Совет, не цитируйте неправильные примеры...

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

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