Вниз
Скачать: CL | DM;

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

← →
Oleg777   (2005-12-16 13:46) [0]

Программа запускается с сети несколькими пользователями. Как определить IP-адреса машин где запущена программа из самой программы?


← →
Reindeer Moss Eater ©   (2005-12-16 14:28) [1]

WSAStartup
GetHostName
GetHostByName
inet_ntoa


← →
Oleg777   (2005-12-16 14:31) [2]

Уважаемый Reindeer Moss Eater, а нельзя ли поподробней?


← →
Oleg777   (2005-12-16 15:01) [3]

Написал так:
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;
Но он показывает только мой адрес, а как сделать чтобы показывал всех?


← →
Reindeer Moss Eater ©   (2005-12-16 15:03) [4]

Но он показывает только мой адрес, а как сделать чтобы показывал всех?

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


← →
Reindeer Moss Eater ©   (2005-12-16 15:04) [5]

... для всех, кто выполняет этот код


← →
clickmaker ©   (2005-12-16 15:04) [6]


> Oleg777   (16.12.05 15:01) [3]

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


← →
Reindeer Moss Eater ©   (2005-12-16 15:11) [7]

программа сама должна тогда отвечать на запросы.

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


← →
Oleg777   (2005-12-16 15:19) [8]

Кажется понял. Буду при запуске программы запрашивать адрес и хранить в таблице и, пожалуй, добавлю время запуска для статистики. Надеюсь все получится.


← →
clickmaker ©   (2005-12-16 15:45) [9]


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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c
1-1133726222
Alfa
2005-12-04 22:57
2006.01.01
Количество тактов


2-1134245842
Demon1313
2005-12-10 23:17
2006.01.01
Срочно плиз-как сделать чтоб при каждом запуске приложения в


2-1134690413
Змей
2005-12-16 02:46
2006.01.01
окно поверх всех окон и назад


2-1134471057
Kot
2005-12-13 13:50
2006.01.01
Ошибка при копировании файла


14-1134038344
Харько
2005-12-08 13:39
2006.01.01
ЗАМЕТКИ ПО ЖЕHСКОЙ ЛОГИКЕ




   Наверх