获取本地计算机的名称和IP地址

最新推荐文章于 2023-04-16 09:28:28 发布

踏雪无痕

最新推荐文章于 2023-04-16 09:28:28 发布

阅读量1.8k

点赞数

分类专栏： Delphi程序实例

Delphi程序实例专栏收录该内容

44 篇文章 4 订阅

订阅专栏

本程序介绍如何获取本地计算机的名称和IP地址。

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

图6-8 主界面
首先在程序的uses段中添加对WinSock的引用，然后添加一个GetHostName自定义函数，在其中调用GetComputerName函数获取计算机名称，响应代码如下：

function TfrmMain.GetHostName:String;
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
  Size: Cardinal;
begin
  result:='';
  Size := MAX_COMPUTERNAME_LENGTH+1;
  GetComputerName(ComputerName, Size);
  Result:=StrPas(ComputerName);
end;

添加一个NameToIP自定义函数，在其中调用GetHostByName函数根据计算机名称获取计算机的IP地址，响应代码如下：

function TfrmMain.NameToIP(Name:string):String;
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
  result:='';
  WSAStartup(2, WSAData);
  HostEnt := GetHostByName(PChar(Name));
  if HostEnt <> nil then
  begin
    with HostEnt^ do
     result:= Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),
                                    Byte(h_addr^[2]), Byte(h_addr^[3])]);
  end;
  WSACleanup;
end;

程序代码如下：

unit Unit1;
interface
uses
  Windows, Messages, Sys Utils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinSock;
 
type
  TfrmMain = class(TForm)
    btnStart: TButton;
    edtIP: TEdit;
    edtName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    function GetHostName:String;
    procedure btnStartClick(Sender: TObject);
    function NameToIP(Name:string):String;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frmMain: TfrmMain;
implementation
{$R *.dfm}
 
function TfrmMain.GetHostName:String;
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
  Size: Cardinal;
begin
  result:='';
  Size := MAX_COMPUTERNAME_LENGTH+1;
  GetComputerName(ComputerName, Size);
  Result:=StrPas(ComputerName);
end;
 
procedure TfrmMain.btnStartClick(Sender: TObject);
begin
    edtName.Text:=GetHostName;
    edtIP.Text:=NameToIP(edtName.Text);
end;
 
function TfrmMain.NameToIP(Name:string):String;
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
  result:='';
  WSAStartup(2, WSAData);
  HostEnt := GetHostByName(PChar(Name));
  if HostEnt <> nil then
  begin
    with HostEnt^ do
     result:= Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),
                                Byte(h_addr^[2]), Byte(h_addr^[3])]);
  end;
  WSACleanup;
end;
 
end.

保存文件，然后按F9键运行程序，程序运行的初始画面如图6-9所示。
单击“开始”按钮，就会获取并显示本地计算机的名称和IP地址。程序运行结果如图6-10所示。