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;

　　程序运行初期就会执行FormCreate中的代码，首先通过OpenDialog.Execute语句来显示一个提示读者选择文件的对话框。如果用户在该对话框中确认选择了一个有效文件后，就把文件路径和文件名等信息存储在变量FileName中，把文件读写属性等信息存储在变量Attributes中。然后通过判断Attributes分别与faReadOnly、faArchive、faSysFile和faHidden常量比较的结果，来决定ReadOnly、Archive、System和Hidden4个CheckBox组件的选中状态。