Delphi编程根据IP地址得到主机名(1)_Deiphi网络编程_Deiphi_编程开发

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

日期：2008-10-20 22:07:36　　　　来源：

　·Delphi拖放编程（2）(1)　·在Delphi中使用IP控件
　·路由器基于每个ip地址限速配置－18系列　·Delphi中用ICMP探测远程主机状态

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

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

Delphi编程根据IP地址得到主机名（图一）

图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.

　　保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。

　　在“IP地址”对应的文本框中输入一个有效的IP地址，单击“转换”按钮，程序就会在“主机名”对应的文本框中显示该IP地址对应的主机名，如图3所示。
　[1]

--->腾讯QQ IP数据库 2007.05.13┊附带IP数据维护工具V1.1┊珊瑚虫精简绿色特别版
--->腾讯QQ IP数据库 2007.05.06┊附带IP数据维护工具V1.1┊珊瑚虫精简绿色特别版
--->QQ2007 BETA1 飘云/珊瑚虫┊简体中文绿色精简双IP版
--->腾讯QQ显IP显隐身彩虹奥运版 V2.3
--->腾讯 QQ/TM 珊瑚虫增强包 V5.0 B3┊支持QQ2006Final的97％显示IP┊绿色特别版
Tags:　编程 IP 地址主机 {$enumber$}

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

Delphi编程实现3D图形修饰技术(2)

通过IP反查域名

Adsense账号与地址的通知

选择Internet连接共享主机

◎→	本类最新
远程程序运行状态的简单监控在IE上增添一个按钮在Delphi中实现ASP编程在Delphi程序中应用IE浏览器控件在DELPHI程序中拨号上网用Delphi编写ASP的ActiveX服务器用Delphi编写CGI程序返回图象

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
Delphi拖放编程（2）(1) Delphi“流”实现文件加密器(3) Delphi“流”实现文件加密器(2) Delphi“流”实现文件加密器(1) Delphi6函数大全（8）(2) Delphi6函数大全（8）(1) Delphi6函数大全（12）