Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: 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 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.099 c
3-1079344789
satron
2004-03-15 12:59
2004.04.11
Blob Size ...


1-1082715039
pasha_golub
2004-04-23 14:10
2004.04.11
Использование директивы absolut


6-1075285004
ZioN
2004-01-28 13:16
2004.04.11
Как открывать новые окна моим браузером?


8-1070898750
Rexti
2003-12-08 18:52
2004.04.11
TImage


14-1082017686
MPS
2004-04-15 12:28
2004.04.11
Хуки, хуки, и ещё раз Хуки