Главная страница
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.028 c
1-1079966087
Юкс
2004-03-22 17:34
2004.04.11
Проверка строки на число


1-1082566479
Shag
2004-04-21 20:54
2004.04.11
Опять Excel


7-1079959110
Kalishenko Stas
2004-03-22 15:38
2004.04.11
Владелец файла в Novell


14-1079638361
Seldon
2004-03-18 22:32
2004.04.11
Задача...


1-1082748935
Demi
2004-04-23 23:35
2004.04.11
Проблема с типом PAnsiChar.