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组件的选中状态 。

　　通过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;

interface

uses

Windows, 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.