Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
focus Гость
|
Добавлено: Ср Май 21 2003 08:42 Заголовок сообщения: Помогите. Хочу узнать по имеющейся IP имя компа. |
|
|
Помогите! Хочу узнать по IP имя компьютера. Пользуюсь Delphi. Пробовал через gethostbyaddr но что то не хочет работать. |
|
Вернуться к началу |
|
|
bss Гость
|
Добавлено: Чт Май 22 2003 06:16 Заголовок сообщения: Легко(+) |
|
|
вот тебе рабочий фрагмент кода
var DstIp,S:String; dwDstIp:LongWord;
//=== ====================================================
dwDs tIp:=inet_Addr(PChar(DstIp));
pIp:=@dwDstIp; IpHostEntry :=GetHostByAddr(pIp,4,PF_INET); if IpHostEntry=nil then begin error:=(WSAGetLastError); S:='GetHostByAddr failed: '+IntToStr(error); end else Begin S:=IpHostEntry^.h_name; //в S имя компьютера End; //==================================================== === |
|
Вернуться к началу |
|
|
Biji Гость
|
Добавлено: Пт Май 23 2003 15:44 Заголовок сообщения: А код-то почему-то не работает? |
|
|
[Error] Unit1.pas(36): Undeclared identifier: 'inet_Addr' [Error] Unit1.pas(3: Undeclared identifier: 'pIp' [Error] Unit1.pas(39): Undeclared identifier: 'IpHostEntry' и т.д. и т.п. |
|
Вернуться к началу |
|
|
bss Гость
|
Добавлено: Пт Май 23 2003 16:54 Заголовок сообщения: Да ты че прикалываешься!!!(+) |
|
|
Это рабочий фрагмент кода!!! Но для того чтобы его использовать надо подключить модуль WinSock например и описать необходимые структуры
ты заметил что автор ничего не написал т.к у него все заработало
если тебе действительно необходимо чтобы этот код работал могу попробовать напрячься и дописать недостающее хотя фигней заниматься неохото |
|
Вернуться к началу |
|
|
|