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

IP адрес машины, находящейся в другой рабочей группе?   Найти похожие ветки 

← →
RoMka   (2004-09-24 12:39) [0]

Как узнать IP адрес машины, находящейся в другой рабочей группе?
Вот эт код работает только по имени компа, без раб.группы.


function GetIPAddress(name: string): string;
var
WSAData: TWSAData;
p: PHostEnt;
begin
WSAStartup(WINSOCK_VERSION, WSAData);
p := GetHostByName(PChar(name));
Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
end;


Мож тут чё неправильно, иль чё добавить?


← →
clickmaker ©   (2004-09-24 12:40) [1]

а причем тут рабочая группа?


← →
RoMka   (2004-09-24 13:30) [2]

А притом, что здесь Delphi понимает только "имя_компа", а мне нужно "домен\имя_компа"!


← →
clickmaker ©   (2004-09-24 13:43) [3]


> [2] RoMka   (24.09.04 13:30)

зачем? имя компа в пределах ЛВС уникально


← →
RoMka   (2004-09-24 14:33) [4]

У меня тут не только локальные компы, а ещё и штук десять, которые коннектятся к серверу по телефонной линии через модемы. Вот их IP-шники мне и необходимо узнать!


← →
clickmaker ©   (2004-09-24 15:10) [5]


> [4] RoMka   (24.09.04 14:33)

Подсовывай ей имя в полном формате, например compname.domain.spb.ru


← →
RoMka   (2004-09-24 16:12) [6]

Нет, у меня имена типа - WORKGROUP\COMP..локалка у меня


← →
clickmaker ©   (2004-09-24 16:14) [7]


> [6] RoMka   (24.09.04 16:12)

Че-то я недопираю... Если у тебя рабочая группа, значит все в пределах одной сети, в т.ч. и диалапные компы. Значит виндозного имени должно хватить


← →
Anatoly Podgoretsky ©   (2004-09-24 21:34) [8]

WORKGROUP отношения к ИП не имеет


← →
RoMka   (2004-09-25 15:22) [9]

Ну, тогда, значит это функция глючит - не определяет она IP дайлапных компов! Мож чо другое подскажите, плиз?


← →
Cobalt ©   (2004-09-25 21:48) [10]

Только если ты конкретно опишешь - как же подключаются эти "диалапные компы"


← →
RoMka   (2004-09-26 10:31) [11]

Ну, в общем, стоит у нас сервак (винда 2000-server), к нему по модему через обычный дайлап подключаются компы..по обычному городскому номеру..



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

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



Память: 0.47 MB
Время: 0.037 c
1-1101164773
Dmitry_04
2004-11-23 02:06
2004.12.05
ShortCut в PopupMenu


6-1095851631
MSergey
2004-09-22 15:13
2004.12.05
Получение данных из Интернета


14-1100706976
Kolan
2004-11-17 18:56
2004.12.05
Как 32 разрядное приложение на Delphi стать 16 разрядным?


1-1101114370
highlander
2004-11-22 12:06
2004.12.05
Шифрование и дешифрование текста


11-1083641459
yustas
2004-05-04 07:30
2004.12.05
Доп. компоненты.




   Наверх