科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件Delphi编程根据IP地址得到主机名

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

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本实例将演示如何根据用户输入的IP地址获取对应主机的名称。

作者:佚名 来源:天极BLOG 2007年10月31日

关键字: 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.


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

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


图2 程序运行的初始画面


图3 程序运行结果

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章