Delphi编程根据IP地址得到主机名

在网络程序的设计过程中，经常需要根据得到的IP地址取得主机的名称，本实例将演示如何根据用户输入的IP地址获取对应主机的名称。

向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件，设计完成的主界面如图1所示。

图1 主界面

在程序运行过程中首先需要向程序的uses段中加入Winsock，这样就可以调用与Winsock相关的函数进行操作。

Attributes和FileName是两个全局变量。其中Word类型的Attributes变量用于存储文件的属性，而String类型的FileName属性用于存储文件的路径和文件名。

另外还要在FormCreate过程中添加下列代码：

procedure TfrmMain.btnConversionClick(Sender: TObject);
　 var
　　 WSAData: TWSAData;
　　 HostEnt: PHostEnt;
　　 IPAddress: string;
　　 addr: dword;
　 begin
　　 edtName.Clear;
　　 WSAStartup(2, WSAData);
　　 IPAddress:=edtAddress.Text;
　　 try
　　　 addr := inet_addr(PChar(IPAddress));
　　　 HostEnt:= GetHostByAddr(@addr, Length(IPAddress), PF_INET);
　　　 edtName.Text:=HostEnt.h_name;
　　 except
　　　 ShowMessage('无效的IP地址');
　　 end;
　　 WSACleanup;
end;