您的位置: 首页 > 软件教程 > Delphi教程专题 > Delphi编程根据IP地址得到主机名

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

6.0分
出处:教程在线 时间:2011-08-05

您可能感兴趣的话题: Delphi  

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

olive Magazine(美食杂志)

软件大小:42.3MB版本:5.4.1

下载:www.duote.com/ios/3326.html

立即下载

  在网络程序的设计过程中,经常需要根据得到的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.

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]