请问如何在局域网中如何实现ip地址到主机名的转换？

Question

Function GetNameByIP(MIP:string; var Name:string):boolean;//IP->名字
var
  PHt:PHostEnt;
  WSData: TWSAData;
  i:Word;
  j:integer;
  k:u_long;
begin
  result:=false;
  i:=MAKEWORD(1,1);
  if WSAStartup(i,WSData)<>0 then exit;
  k:=inet_addr(PChar(MIP));
  PHt:=gethostbyaddr(@k,4,PF_INET);
  if PHt=nil then begin
     j:=WSAGetLastError;
     Name:='Error:'+inttostr(j-WSABASEERR);
  end else begin
     Name:=PHt.h_name;
     result:=true;
  end;
  WSACleanup;
end;第二问
用Additional下的MaskEdit控件

Answer 1

不是很懂啊，为什么运行时老出错？[Error] Unit2.pas(28): Undeclared identifier: 'PHostEnt'
[Error] Unit2.pas(29): Undeclared identifier: 'TWSAData'...........................................................................................................................

Answer 2

2
MaskEdit，可以规定输入形式

Answer 3

我也不太懂啊
是Ctrl+V过来的，嘿嘿嘿对了，你是怎么搞定的啊？PHostEnt，TWSAData没定义，你是怎么定义的啊？说出来听听啊，我也想知道