| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить программно свой IP адрес? [D5, D6]
Petrovitch © (2004-02-04 14:12:00)Кто подскажет Как определить программно свой IP адрес?
Или кто знает о классе PHostEnt ?
Kor@l (2004-02-08 20:03:00) [1]кинь на форму IDIPWatch и гляди на здаровие
Rouse_ (2004-02-07 16:27:00) [2]> [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: Совет, не цитируйте неправильные примеры...
Anatoly Podgoretsky (2004-02-07 15:15:00) [3]Не стоит говорить в единственном лице, если есть сетевые адаптеры, то их как минимум два.
Dimich1978 (2004-02-07 15:03:00) [4]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;
Verg (2004-02-06 20:49:00) [5]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1075796204&n=4
XeON (2004-02-06 20:13:00) [6]Чтобы определить IP адрес компа - поройся в компонентах... Не помню как называется покмпонент... но помню, что у него есть свойство, что-то типа LocalIP... Вобщем я когда IPScaner писал - именно его использвал...
| |
