Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Вниз

Как узнать IP-адрес компа в локалке по его сетевому имени?   Найти похожие ветки 

 
Zion   (2005-03-22 00:03) [0]

subject


 
Ozone ©   (2005-03-22 05:20) [1]

GetHostByName


 
TankMan ©   (2005-03-22 07:35) [2]

function GetIPFromName(DNS: string): string;
const
ERR_HOST      = "Can not get host information.";
RES_UNKNOWN   = "Unknown";
ERR_WSA       = "Can not initialize WSA.";
WSA_TYPE      = $101; //$202;
var
WSA   : TWSAData;
Host  : PHostEnt;
Err   : Integer;
begin
Result := RES_UNKNOWN;
Err := WSAStartup(WSA_TYPE, WSA);
if Err <> 0 then
begin
  MessageDlg(ERR_WSA, mtError, [mbOK], 0);
  Exit;
end;
Host := GetHostByName(PChar(DNS));
if Assigned(Host.h_addr_list) then
  Result :=
    inet_ntoa(PInAddr(Host.h_addr_list^)^)
else
  MessageDlg(ERR_HOST, mtError, [mbOK], 0);
WSACleanup;
end;


 
ZioN   (2005-03-22 22:22) [3]

спасибо большое!!! Щас проверю, как работает...


 
Alex Konshin ©   (2005-03-23 00:07) [4]

О каком сетевом имени идет речь? Если о netbios-имени ("имени компьютера"), то по-моему оно напрямую не зависит от DNS-имени (хотя обычно совпадают).
Я лично не знаю ответа на такой вопрос. Но это точно не то, что здесь написали ранее.
Хотя нет, какой-то ответ я знаю. Если в локальной сети домен контроллер - ActiveDirectory сервер, то оттуда можно вытащить такую информацию.


 
TankMan ©   (2005-03-23 06:49) [5]

>>Alex Konshin
Это вы к чем вообще сказали?
Вопрос был поставлен ясно и понятно ответ на него дал Ozone, а я пример привел использования.... зачем разглагольствовать?


 
Alex Konshin ©   (2005-03-23 07:38) [6]

Вопрос был поставлен ясно и понятно ответ на него дал Ozone, а я пример привел использования.... зачем разглагольствовать?
Ваши ответы неверны, если понимать вопрос буквально.
"Сетевое имя компьютера" в Windows это отнюдь не DNS имя. Хотя бы потому, что оно имеет смысл даже тогда, когда TCP/IP не установлен.  Более того, они могут и не совпадать.


 
Zion   (2005-03-24 21:31) [7]

а где находятся TWSAData и PHostEnt? пишет undeclarated identifier...


 
Zion   (2005-03-24 21:52) [8]

а главное что GetHostByName тоже undeclarated identifier! что делать? пробовал и на D5 и на D7 - не работает(((


 
Ozone ©   (2005-03-25 05:24) [9]

uses WinSock


 
Zion   (2005-03-25 14:29) [10]

Спасибо! :)



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

Форум: "Сети";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.038 c
6-1111951833
Змей
2005-03-27 23:30
2005.06.14
webbrowser


3-1115298176
Alexandr
2005-05-05 17:02
2005.06.14
DbgridEh+FIBPlus


11-1098418435
Владимир Кладов
2004-10-22 08:13
2005.06.14
COLLAPSE


3-1115553366
SergeyPVC
2005-05-08 15:56
2005.06.14
После удаление размер БД не уменьшился... :(


3-1115290541
-=XP=-
2005-05-05 14:55
2005.06.14
Получить список полей, их типы и индексы при помощи SQL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский