Главная страница
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.48 MB
Время: 0.084 c
3-1081851425
united
2004-04-13 14:17
2004.04.11
Oracle. вставка CLOB c помощью DOA


14-1079600414
Aristarh
2004-03-18 12:00
2004.04.11
Помогите перевести (рус->англ)


4-1075673828
i-s-v
2004-02-02 01:17
2004.04.11
CreateComObject(CLSID_ShellLink); вылетает с ошибкой


14-1079435390
Nous Mellon_
2004-03-16 14:09
2004.04.11
Клавиатура сходит с ума :)


1-1080201556
IraiZor
2004-03-25 10:59
2004.04.11
Про подсветку в TRichEdit