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

 

程序代码如下：

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键运行程序，程序运行的初始画面如图6-12所示。

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

             

              图6-12  程序运行的初始画面                图6-13  程序运行结果

上一页  [1] [2]