Архив форумов ЦИТФорума

[focus]

Помогите! Хочу узнать по IP имя компьютера. Пользуюсь Delphi. Пробовал через gethostbyaddr но что то не хочет работать.

[bss]

вот тебе рабочий фрагмент кода

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]

[Error] Unit1.pas(36): Undeclared identifier: 'inet_Addr'
[Error] Unit1.pas(3: Undeclared identifier: 'pIp'
[Error] Unit1.pas(39): Undeclared identifier: 'IpHostEntry'
и т.д. и т.п.

[bss]

Это рабочий фрагмент кода!!!
Но для того чтобы его использовать надо подключить модуль WinSock например и описать необходимые структуры

ты заметил что автор ничего не написал т.к у него все заработало

если тебе действительно необходимо чтобы этот код работал могу попробовать напрячься и дописать недостающее хотя фигней заниматься неохото