下载本文示例代码
在网络程序的设计过程中，经常需要根据得到的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组件的选中状态。 通过lblPosition.Caption:=lblPosition.Caption ExtractFileDir(FileName)语句在lblPosition组件中显示文件位置，通过lblName.Caption:=lblName.Caption ExtractFileName(FileName)语句显示文件名。最后通过GetFileSize函数和lblSize.Caption:=lblSize.Caption Format('%d bytes', [GetFileSize(FileName)])语句来显示文件大小，GetFileSize函数代码如下：
function TfrmMain.GetFileSize(const FileName: string): LongInt; var SearchRec: TSearchRec; begin try if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then Result := SearchRec.Size else Result := -1; finally SysUtils.FindClose(SearchRec);end;end; 首先声明SearchRec为一个查找记录，然后通过FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec)语句来查找目标文件，找到后设置GetFileSize函数的返回值为目标文件的大小SearchRec.Size。 程序代码如下：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Mask,Winsock;type TfrmMain = class(TForm) Label1: TLabel; btnConversion: TButton; edtName: TEdit; Label2: TLabel; edtAddress: TEdit; procedure btnConversionClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure edtAddressChange(Sender: TObject);private { Private declarations }public { Public declarations }end;var frmMain: TfrmMain; implementation {$R *.dfm} 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;procedure TfrmMain.FormCreate(Sender: TObject);begin edtAddress.Clear; edtName.Clear; btnConversion.Enabled:=False;end;procedure TfrmMain.edtAddressChange(Sender: TObject); begin btnConversion.Enabled:=True; if edtAddress.Text='' then begin btnConversion.Enabled:=False; end; end;end. 保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。 在“IP地址”对应的文本框中输入一个有效的IP地址，单击“转换”按钮，程序就会在“主机名”对应的文本框中显示该IP地址对应的主机名，如图3所示。
图2 程序运行的初始画面图3 程序运行结果
在网络程序的设计过程中，经常需要根据得到的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组件的选中状态。 通过lblPosition.Caption:=lblPosition.Caption ExtractFileDir(FileName)语句在lblPosition组件中显示文件位置，通过lblName.Caption:=lblName.Caption ExtractFileName(FileName)语句显示文件名。最后通过GetFileSize函数和lblSize.Caption:=lblSize.Caption Format('%d bytes', [GetFileSize(FileName)])语句来显示文件大小，GetFileSize函数代码如下：
function TfrmMain.GetFileSize(const FileName: string): LongInt; var SearchRec: TSearchRec; begin try if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then Result := SearchRec.Size else Result := -1; finally SysUtils.FindClose(SearchRec);end;end; 首先声明SearchRec为一个查找记录，然后通过FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec)语句来查找目标文件，找到后设置GetFileSize函数的返回值为目标文件的大小SearchRec.Size。 程序代码如下：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Mask,Winsock;type TfrmMain = class(TForm) Label1: TLabel; btnConversion: TButton; edtName: TEdit; Label2: TLabel; edtAddress: TEdit; procedure btnConversionClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure edtAddressChange(Sender: TObject);private { Private declarations }public { Public declarations }end;var frmMain: TfrmMain; implementation {$R *.dfm} 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;procedure TfrmMain.FormCreate(Sender: TObject);begin edtAddress.Clear; edtName.Clear; btnConversion.Enabled:=False;end;procedure TfrmMain.edtAddressChange(Sender: TObject); begin btnConversion.Enabled:=True; if edtAddress.Text='' then begin btnConversion.Enabled:=False; end; end;end. 保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。 在“IP地址”对应的文本框中输入一个有效的IP地址，单击“转换”按钮，程序就会在“主机名”对应的文本框中显示该IP地址对应的主机名，如图3所示。
图2 程序运行的初始画面图3 程序运行结果
下载本文示例代码
Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名Delphi编程根据IP地址得到主机名
