Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как определить IP-адрес пользователя

Oleg777 © (2005-12-16 13:46:00)
Программа запускается с сети несколькими пользователями. Как определить IP-адреса машин где запущена программа из самой программы?

clickmaker (2005-12-16 15:45:00) [1]

> Reindeer Moss Eater © (16.12.05 15:11) [7]
> программа сама должна тогда отвечать на запросы.
>
> Что бы у такой программы спросить адрес её хоста надо предварительно
> узнать этот адрес

:)
ну типа бродкаст...

Oleg777 (2005-12-16 15:19:00) [2]
Кажется понял. Буду при запуске программы запрашивать адрес и хранить в таблице и, пожалуй, добавлю время запуска для статистики. Надеюсь все получится.

Reindeer Moss Eater (2005-12-16 15:11:00) [3]
программа сама должна тогда отвечать на запросы.

Что бы у такой программы спросить адрес её хоста надо предварительно узнать этот адрес.
:)

Reindeer Moss Eater (2005-12-16 15:04:00) [4]
... для всех, кто выполняет этот код

clickmaker (2005-12-16 15:04:00) [5]

> Oleg777 (16.12.05 15:01) [3]

программа сама должна тогда отвечать на запросы. Например, слушать какой-то порт. Если ты в этот порт на какой-то комп пишешь и получаешь ответ, значит она там запущена

Reindeer Moss Eater (2005-12-16 15:03:00) [6]
Но он показывает только мой адрес, а как сделать чтобы показывал всех?

Он для всех и показывает.

Oleg777 (2005-12-16 15:01:00) [7]
Написал так:
var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
showmessage(inet_ntoa(PInAddr(p.h_addr_list^)^));
WSACleanup;
end;
Но он показывает только мой адрес, а как сделать чтобы показывал всех?

Oleg777 (2005-12-16 14:31:00) [8]
Уважаемый Reindeer Moss Eater, а нельзя ли поподробней?

Reindeer Moss Eater (2005-12-16 14:28:00) [9]
WSAStartup
GetHostName
GetHostByName
inet_ntoa

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »