| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
определение ip адреса [D7, WinXP]
Out © (2005-10-05 00:17:00)Необходимо определить ip адрес компа на котором запущена программа. Предупреждая вопросы - пишу внутрикорпоративную софтину, при запуске он должна определить ip адрес юзера и отправить его в БД на сервер. С остальным вопросов нет - а как определить ip адрес - не знаю
IceBeerg (2005-10-06 17:22:00) [1]
var
WSAData: TWSAData;
SockAddrIn: TSockAddrIn;
Host: PHostEnt;
//Эти переменные объявлены в Winsock.pas
begin
if WSAStartup($101, WSAData) = 0 then begin
Host := GetHostByName(@Localname[1]);
if Host then begin
SockAddrIn.sin_addr.S_addr:= longint(plongint(Host^.h_addr_list^)^);
LocalIP := inet_ntoa(SockAddrIn.sin_addr);
end;
WSACleanUp;
end;
end;
Из старого FAQ... сам надеюсь доработаеш
Out (2005-10-05 23:38:00) [2]Уточню - все ip адреса потом программно отфильтрую
неужели это так сложно, что никто не знает?
Digitman (2005-10-05 13:12:00) [3]
> определить ip адрескомпа
таковых может быть и ни одного, и один-единственный, и более чем один
каждый ip-адрес ассоциируется с конкретным сетевым интерфейсом, каковых может быть более одного
с каждым сетевым интерфейсом может быть ассоциирован и более чем один ip-адрес
вдумайся в это ...
Out (2005-10-05 07:30:00) [4]Что-то я не понял куда ведёт эта ссылка... )
XProger (2005-10-05 01:27:00) [5]http://www.delphimaster.ru/cgi-bin/forum.pl?n=4&search=%EE%EF%F0%E5%E4%E5%EB%E8%F2%FC
| |
